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CONVERSION  CONSTANTS 

CGHMON/GCONVC/C ( 2 , 10 ) ,S10 1 SX ( 1C ) 

COMMON /C R SPL  S/DOB » 17)  »PSCft<  17)  , DFB (408)  »NPSCR 
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COMMON/CNSHLO/USPL  (19)  ,PSI  (19)  ,KSPL,1NUSP 
VARIABLES  USED  IN  JET  NLISE  SHI ELCING  ATTENUATION 
CGMMUN/JN  SHLO/D IAMT2»DSL1»0SL2 


MASS  STORAGE  (RANDOM  DISK  i/C)  INOECES,  CGUNTER,  AND  FLAG 

COMMON  /MSIu/  1N0XU4C),  INUX2I3),  INCX3I36),  ICl,  ICPEN 
DIMENSION  XL (2) 

OIMENSIGN  BUFP(33) ,FTKM(2,2) 

DIMENSION  XNAME (7*13) 

DIMENSION  AL PH (13) 

DIMENSION  GR  T ( 2) » I GRD 1 2 ) 

DATA  GRT/4HKMPH.4M  M PH/ 

DATA  IGRD/16,10/ 

DATA  XNAME/4HPR l M , 4HAR Y ,3HJET,4*1H  ,4HPRIM,4HARY  , 4FANG  .4HSEC0, 

* 4HN0AK * 4H  Y JE  , 1 HT  ,4HCCRE  , CH/ TCR  ,4H8 1 N6 , 4*1H  ,4HU-NP,4HRESS, 

* 4HCR  A.4HND  I,4HNLET,4H  FAN.1H  ,4hEXIT,4H  FAN,5*1H  ,4HAUGM,  • 

* 4HENTt,4HR-WI , 4HNG  J,2HtT,2*lH  ,4HBLCR,4HN-FC,4HAP  J,2HET, 

* 3*  1 F , 4HLIFT  * 4H-FAN  ,5* IF  , 4FE  JEC  » 4 H TCR  »4H-  SU,4hPPRE, 

* 4HSS0K,4H  JET  1 1H  »4HPRGF » 4HELLE  »IHR»4*IF  ,4HHEL 1 , 4HCGPT ,2HER, 

* 4*  Ih  *4HM£AS»4HURED  *4Fi  UAT,IHA,3*1H  , 


* 4HJET  « 4HE0GE  »4H  I NT ,4HtRAC  ,4FT I LN ,2* IH  / 

DATA  ALPH/IHA, 1HB , IHC » ’ HD , IHE , 1 FF , 1HG, IHH , 1H I , IH J, 1 HK, 1HL3 IHM/ 
DATA  PT/IH./,YES/3HYES  /,YNC/2FNC/ 

DATA  XL/2HM.  ,2HFT/ 

DATA  FTKM/JHKM) ,4H100G,IH  ,4H  F T ) / ,CC/ IH,/ , PL/ IH I / , PR/  IH )/ 
SUBK.  ABSORP,  ANGLES,  CCRSPL,  ERRSET 

HAVE  BEEN  CALLED  TO  INCLLOE  THEM  IN  THE  <0,01  OVERLAY 
AL IHC  THEY  ARE  NOT  UStO  IN  THE  <G,0)  OVERLAY. 

THEY  HAVE  VARIABLES  IN  OAlA  STATEMENTS  TFAT  CHANGE 
AFTER  FIRST  LOAOING  , AND  THESE  VALLESAkE 
OVERRIDEN  hITh  INITIAL  VALUES  RFEN  THE  OVERLAYS  ARE 
RELOADED  , HENCF  THEIR  REMOVAL  TC  (O.O)CVERLAY 
I F ( I GRD { 1).EG.IGRD(2) ) CALL  ABsCRP 
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116 

117 

lie 

119 
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122 
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12a 
12  5 
lib 
127 
lie 

129 
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134 
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l ib 
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190 
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IF( IGROl 1).EG.IGRD( 2)1  CALL  ANGLES 

PF6NAC 

173 

IF(IGRD(  1).EU.IGRD(2)  ) CALL  CCRSPL 

PF8NAU 

17* 

I F<  IGRDI  l ) .EQ. I GRD ( 2) ) CALL  LIMNS 

PHBNAC 

175 

IF( IGROl 1).£Q.1GR0<2) )CALL  EPRSETIO, 

0) 

PHBNAC 

1 76 

CALL  TO  INITIALIZING  ROUTINE 

PhbNAC 

1 77 

5 CALL  INITL 

PHBNAC 

178 

INPUT  ALL  PARAMETERS  R6LAIEO  TC  THE 

GENERAL  FORMAT 

CF  THE  PROGRAM 

PHBNAC 

175 

THtSE  INPLTS  INCLUDE  THE  FOLLCMNG  PARAMETERS  IN 

THfc  GPRAM  BLOCK 

PhbNAu 

ISC 

PHBNAC 

IB  1 

AL TP  - ALTITUDE  CF 

IHE 

AIRPLANE 

PhbNAC 

162 

altr  - ALTITU06  CF 

THt 

SIDELINE 

OBSERVATIONS 

PHBNAC 

163 

SLOPE  - CLIMB  GRADIENT 

IT  ANGENT 

OF 

THETA) 

PhBNAC 

164 

AMACH  - AIRCRAFT  MACH  NUMBER 

PHBNAC 

185 

NOBS  - NUMBER  OF  SIOEUNE  OBSERVATIONS  (MAX. 

OF 

1 

PHBNAC 

let 

SLDISTil-10)  - SIDELINE  DISTANCES 

PhbNAu 

187 

NTENG  - NUMSER  CF  CIFFERNT  TYPES 

OF 

ENGINES  (MAX. 

C 

PHBNAC 

188 

IUNIT  - DEFAULT  =0  ALL  CIMENTICNAL  INPUTS 

AND  OUTPUTS 

IN 

M 

PhbNAC 

186 

= 1 IN  ENGLISH  UNITS 

PhBNAC 

19C 

READ  IN  GENERAL  INITIALIZING  OATA 

PhBNAU 

161 

CALL  INPUTG 

PhBNAC 

192 

IF  I 100  - I)  7 1 7.  5G00 

PhBNAC 

193 

7 

CONTINUE 

PHBNAC 

194 

(HIS  SECTION  CALCULATES  THE  DCPLER 

SHIFT 

PhBNAC 

195 

PHBNAC 

19b 

CONVERT  SGDAT A PARAMETERS  IC  ENGLISH 

UMTS  FCR  CCMPUT AT  ICN 

PhbNAC 

167 

PHBNAC 

168 

IF I IUNIT .EU. 10) CALL  CCNVR 1 20 , I I , 1 1 ) 

PhbNAC 

166 

OG  52  1=11,117 

PhBNAC 

200 

DOPSFI I )=F  I 

PHBNAC 

201 

I F 1 IDOP.EO.IOIGQ  TC  52 

PHBNAC 

202 

51 

COPSF ( I ) =F l-AMACH*COS (KETAI I ) ) 

PHBNAC 

203 

52 

CCNT inue 

PhbNAC 

204 

NCAS=NCAS* I l 

PhfiNAC 

205 

OG  4 K=I,ND 

PhBNAC 

2 Gt 

IF(FLD<K*?5).NE.0.)FLDIK)=ALCG1C(FL0(K-H25)  ) 

PHBNAC 

cC7 

4 

ZNIIK)=-ZNHKh25) 

PHBNAC 

2ce 

45 

continue 

PhBNAC 

209 

IFCNCAS.NE.I l)GO  TC  15C 

PHBNAC 

2 lU 

DETERMINE  AND  STORE  1/3  CR  FULL  CCTAVE 

FRECUENCIES 

PhbNAC 

211 

IF! I SPTRM.EC. I I )GG  TO  2 C 

PHBNAC 

212 

NCF=24 

PhBNAU 

213 

NK=  I 3 

PH.BNAu 

214 

00  10  1=11, NCF 

PHBNAC 

215 

SUFI  1 ) =UFREw( I ) 

PHBNAC 

216 

LO 

OCF(  n=CFREO(  I ) 

PhbNAC 

217 

BUFI 25 ) =UFREU( 25) 

PHBNAC 

2ie 

GO  TC-  40 

PhbNAC 

216 

20 

NCF=I8 

PhbNAC 

220 

NK=I  l 

PHBNAC 

2c  1 

J = 1 2 

PhBNAC 

222 

DC  30  I =1  l.NCF 

PHBNAC 

223 

BCFI l )=CFREQ(J) 

PHBNAC 

224 

3uFl I )= jFREuCJ-1) 

PHBNAC 

225 

30 

J=J*3 

PHBNAC 

22t 

BUFI  19 ) =LFREQ ( 2 5 ) 

PHBNAC 

227 

4C 

CCNT INUt 

PHBNAu 

226 

DC  50  ! - I 1 ,-MCF 

PHBNAC 

226 

4 


i 


I 


50 

150 

200 


C 

c 

c 


P FRED  ( n=8CFU  J/100C. 

CONTINUE 

CONVERT  INPUT  UAT A AND  CALCLIAIE  AIRCRAT-GBSERVEK  GEOMETRY  If-  TUN 
CONTINUE 

PERFORM  THE  GCCMETRY  CALCULATIONS  FOR  THE  CURRENT  CASE 
1CALL  =0 

CALL  0VeRLAYCoHEX£ClG,l,C,6HRtCAlL) 

ICALL= l 

is  type  a report  specified  < fi  ightpath/cbserver  geometry) 

IFi IPRT!4i.NE.4)G0  TO  250 

CONVERT  TGDATA  PARAMETERS  TC  M.K.S.  UNITS  FOR  OUTPUT 

IFI  I UN  IT  «£Q.IO)CALL  CCNVRI 19  » I 2 « 12) 

4335  CALL  PK  IN  TH(  IPR  T (4 ) , LC  T , 8) 

WKITE18, 48411 

4841  FORMAT! J7X.4CHF  LIGHT  PATH  / OBSERVER, 

*2X» 16HG  E C M £ TRY) 

WRITE!8,4842)AAlT,CHt I UNIT* 1,1)  ,AMACH, SLOPE 

4842  FORMAT t // 1QX  » 16HA l RPORT  ALTI TUOE  ,9x,iH=  , IX, 1PE10.3, A3// 

*10X» 20HA IRCRAf  T MACH  NUMBER  , 5X  , 1H= , 1 X, fc IU. 3 , 13X , 1H ,, 2X , 

* l 7HCL  IMB  GRA01ENT  ,5X,lH=,lX,El0.3,i7H  FOR  I 7.  .GT.  OR)  ) 

WRI  Tfcl  8, 48431  AL  TP  ,CH!  I CM  TM  ,1 ) , ALT  K , CH ( IUMT  + 1,  1 j 

484>  FORMAT!  10X, 20HAIRCRAFT  HEIGHT  ! 1C J , 5X  , 1H= , IX . IPEiU. 3 , A3 , 2X , 

* J4HAT  T = 0,  OBSERVER  HE IGh  T !2R)  = , IX ,E  10.3, A3  ) 

WRITE  I 8, 484b)  C 2 ,CH  ( IUM  H 1 ,8 ) ,CC  V,Ch ! i UNIT  ♦ l ,8  ) 

4845  FORMAT!  10X, 14HSPEED  OF  SOUND, 11 X , 1H-  ,IX,1PE10.3,1X,A3, 

I 10H  AT  (20)  , , 

*2;;,  I 4H5PEEU  OF  SCLND  , 8 X , 1H=  , 1 X , 6 1C  . J , 1 X , A3 , 3H  AT  URi  ) 

WRITtl 8,4846)  C A , OH ( I ONI  IF 1 , 8 J 

4346  FORMAT!  1 C X , 2oHA VER AGE  SPLLD  OF  SCLND  = , l X , IPE 10 . 3 , IX , A3 , 

* 3 8H  FOR  SOUND  PROPAGATION  OVER  RANCt  <P)  ) 

4847  FORMAT! /47X,24HSICELINP  DISTANCE  (X)  « , 1 X , 1 Pill  .3 , A3/ / 1 2X , 

* lUHTIMfc  (SEC), 

* 1 CX , 5 WANGLE , 8X, 15HA/C  COORU I N A T E S ,5X,2 1 HFRC P AGAI I CN  UP/P  FOR , 

*5X»  30HANGLES  FUR  NOISE  f X TRAPC LA T ICN  /9X  ,5HbCuND, 7X , 5hSUUNUi 8X , 
*2HX I , 1GX , IHY , UX,1H2,6X,10HCI STANCE  F ,3X  , lOhGRD.REPLX . , 7X, GHLlTA  1 
* , 3X, 6HBE  TA  2 /I0X,4HRE0.  ,7X ,5HXM  I T. ,6X ,o) 1 DEG. ) , /X , IH< , A2 , IH ) , 

*8X, 1H( ,A2, 1H) ,8X,1H( ,A2, 1H) ,22X ,6H(0EG. ) ,9X ,611 1 DEG. ) / ) 

*848  FCRMATl 6X,F6. l,0X,Ffc. 1 , 4X,F7.  . , 4 X , lPtl 1.3 ,3 (2X, EiO .3 ) ,2 l 5X , L 10 . 3 ) ) 
LCT= 14 

DO  486C  1=1, NOBS 

OC  48bG  J=i, 17 

IF  ! LC T .GO  .54) GO  TO  4651 

If! (J. EO.il) .AND. (LCT.tt.47) )GC  TO  4852 

IF(J.EQ.i)  GO  TO  435 1 

GC  TO  4853 

4851  CALL  PRINTfi!  IPR  T( 4)  ,LCT  ,8) 
wRirE(e,464l) 

LCT=t.CT+l 

485  2 WRITE  ( 8,  4847  ) SLD  ! $X ( I > ,LH ! I OM  T + l ,1 ) , XL  ! I CM  T*1 ) ,XL  ( IUMT  ♦ 1 1 , 

* XL  ( I CM  Tt  1 ) 

LC  T=lC  T + 7 

48  53  WRIT c ( 8,4848)  TP!)(  J,  I ) , TDS  ( J , f ) , t T A ( J)  , AP  r (I  , J)  , AP2  ( I , J ) , P0<  I , J ) , 

* DPND  ( I , J ) » i-l  i I , J ) ,B2 ( I , J i 
LCT=LCT+I 
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23u 

231 

232 
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237 
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4860  CONTINUE 

CCNVERT  SGOAIA  PARAMETERS  TC  ENGLISH  UMTS  FCR  COMPUTATION 

IFI  IUNIT»EU.IU)CALL  CGNVRI 19 , 1 1 * II) 

250  CONTINUE 
35C  CONTINUE 

CALL  OVERLAY (6HEXEC l 0,1,C,6HR£CAIL) 

SECTION  FOK  SETTING  UP  LINKAGE  TC  THE  VARIOUS  NOISE 
COMPONENT  MODULES  THAT  HANDLE  BCTH  THE  INPUT  AND  CALCULATIONS 
IC=IO 

DO  40C0  NC=  L »NTENG 

NTYP=IO 

NCOF=NC 

IF  SHIELDING  IS  REQUIESTED  FCR  THAT  PARTICULAR 
CONF IGURATIONfREAO  IN  ENGINfc/WING  GECM  DATA 

IFI  INSEOrt(NC) .NE.OICALL  EtaGlC 
500  CONTINUE 

IFINTYP.GE.NTYPEJGC  TC  4C00 
IC=IC+I L 

GET  $NOI  SIN  OATA  AND  CCNVERT  TC  ENGLISH  UMTS  FCR  CCMPUTATIUN 
CALL  NiNPUT 

PRINT  OUT  ENG/WlNG  GECMETRY  IF  SHIELDING  SPECIFIED 
IFINTYP.NE.l  UGU  TC  53C 

I f ( INSHCWlNCOF).NE.O)CALL  EwGCLTtlPRT,IUMT) 

530  CONTINUE 


TEST  FOR  JET  EDGE  INTERACTION  NCISE  CCMPCNENT 
IFI  l TYPE .EO.  1 3 i GO  TO  8E8 

IF  NOISE  COMPONENT  JET  FLOW  REFRACTION  EFFECTS  AND  SHIELDING 
EUR  THE  PARTICULAR  CONFIGURATION  IS  PEUUIREO  READ  IN  COMPONENT 
SEIEIOING  OATA-  A CONFLICT  OCCURS  WHEN  SHIELDING  IS  HECUESTEU 
EUR  THE  COMPONENT  AND  NOT  THE  CCNF IGUK AT  I UN. 

IFI  INSHLO.EU.OJGO  TO  888 

IFI  INSEOWINC J.NE.O.AND.INSHLO.NE.OJGC  TC  878 
IFI INSEOWINC  J.EG.O.ANO. I NSHLO.NE.O) WRITE (o,  777)  ITYPE 
777  FCRMATI IH0.60H  SHIELDING  RLCLCST  CONFLICT  NO  ENG/WNG  GEOM 

* I TYPE  = ,12) 

C IF  PRIMARY  AND  SECONDARY  READ  SHIELDING  DATA 

IFI  ITYPE. LE.21G0  TO  878 
IFI  ITYPE. GT.2)INSHLD=C 
GO  TO  888 
C 

876  CALL  NSRIO 
C 

888  GO  TC  ( 1 1 CO,  11GC,  I2CC,  HOC,  HOO,  1200,  1500, 

* 1 3C0 , 1200,  1 30C , I3CC,  1400,  1500),  ITYPE 
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PhONAC 
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251 

PHONAL 
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PhONAC 
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PhBNAC 

256 

PhONAC 

257 

PHONAL 

298 

PHONAC 

099 

PHONAL 

300 

PhONAC 

301 

Phonal 

3C2 

PHONAL 

303 

PhONAc 

30  a 

PHBNAC 

305 

PhONAC 

306 

PHONAL 

307 

PhONAC 

308 

PHONAC 

3C5 

PnONAC 

3 1C 

PEiBNAC 

ill 

PHBNAC 

312 

PhONAC 

313 

PHdNAC 

315 

PHONAC 

315 

PHBNAC 

3 it 

PHBNAC 

317 

PhbNAC 

310 

phonal 

315 

PHONAC 

320 
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321 
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323 
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320 
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PhbNAC 

33C 
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PHONAC 
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343 
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11CC  CONTINUE 

CALL  OVERLAY (6HEXEC20 ,2 ,0»6HRECALL) 

GO  TO  5CC 
1200  CONTINUE 

call  overlay (6HEXEC3o»  3,  o,  bhrecall) 

GO  TO  500 
1300  CONTINUE 
1:  CALL  OVERLAY ( 6HEXEC AO  » A « 0,  6HRECALL) 

1 GC  TO  5CC 

gi  1 AOO  CONTINUE 

ft  CALL  OVERLAY! 6HEXEC50,  5,  0,  6HRECALLJ 

1 GU  TO  500 

i 1500  continue 

I.  CALL  OVERLAY  (6HEXEC60,  6,  0,  6HRECALL) 

f GC  TO  500 

| A000  CONTINUE 

S-  C 

I C ENG/WIN  GEOMETRY  OATA  IS  OUTFIT  CN  FILE  0 FOR  ALL  CCNF1GURAT  IbNS 

I C AFTE*  FLIGHT  PATH/C8SERVER  GEOMETRY  DATA.  HENCE  THE  FlLc  MARK  AND 

I ENDFILE  8 

| REWIND  8 

CONVERT  ALL  PARAMETERS  tGOATA  ANC  iNCISIN  TC  MKS  UMTS  FUR  UUIPUT 

IK  I UN  IT.  t(J.  10)  CALL  CCNVR  l 1 1 , 1 2 , 1 3 ) 

00  A600  K 2- 1 1 »NOBS 
00  A5CC  Kl  = I I »NCF 
OC  A5CC  K2=l 1,17 

ISPLlKl ,K2,K3)=SSPl(Kl ,K2 ,K3 ) -T SPl (K1 , K2 , K3I 
A500  SPLTIK1, K3)=TSPL(Kl ,K2,K3> 

CALL  PNLSUBl SPLT(iil) ,PSPL U ,K2 ) .TPU ( 1 ,K2 ) ,EPNl ( 1 ,K2 ) , 

I SPL  2* I EPNL ( l » K2 ) , NK  , BCG,  ICG, FLR.K2, NOBS, IRK (K2, I ) ) 

C CALL  NO  I SO  PRINT  ROUTINE  TC  PRINT  tlTHEH  TYPE  I OK  LEFAULT 

C REPORT  ON  THE  CLTPOT  FILE 

CALL  NOISO! IPRT(L) ,K2  ,NK  ,6  ,CH  l N , I LN1  T ,SLDISX  (K2)  ,PFREC,SPLTl  1,1), 
*isCF,  IA) 
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WR I T6 ( 6, A823) 

9023  FORMA  K IH  ) 

OC  A825  1=1, Nl.F 
I CAGR ( I )=  jAIRAB ( l) 
A825  CONTINUE 
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BAA 
3A5 
3At 
3 A 7 
3 Ab 
3 A 5 

2 SC 

351 

352 
352 

3 5a 
355 
25c 

357 

358 
3 55 
3cC 
361 
3ci 
3o  2 
3c  A 
365 
30C 
3<j  7 
368 

365 

3 ?c 
271 

ru 

372 
3/A 
3 75 
3 It 
37  7 
37b 
3 79 


in 

A60C 

CONTINUE 

PHBNAC 

36C 

a i 

C 

IS  THE  TYPE  2 REPORT  SPECIFIED  (ASSUMPTIONS  CN  WHICH  the  predict  it 

PHBNAC 

381 

i - 

C 

IS  BASEO) 

PhbNAC 

382 

ij  • 

AGIO 

1 F ( IPRK  2)  .f;,.2)G0  TO  A3  1 1 

PHBNAC 

363 

pi  v 

c.j  c 

IFUPRT!  l).Nt.Ifa)GU  TO  A767 

PFBNAC 

36  A 

Em 

y 1 t 

A311 

CCNT INUE 

PhbNAC 

385 

n a 

EGP=YES 

PhbNAC 

36t 

^ \ 

it*  ■'5- 

GRO-YES 

PHUNAC 

387 

f ft 

CALL  PR  INTH{ IPKT (2)  ,LCT  »6) 

PHBNAC 

386 

% i 

wR  I TE(6,A820) 

PhUNAC 

365 

AP2C 

FORMAT  ( 50X,  32HASSUMPT  1 ON'S  FOR  NCISE  FRECICFICN  //) 

PHBNAC 

35C 

||  ® 

LCT  = 8 

PHBNAC 

391 

*RlTE(6,A82l) 

PhbNAC 

39  2 

f £ 

AB2  1 

FORMAT ( 2X , AAH l ) GECMETRIC-KEAN  PASSBAND  FRECUENC I ES  IKH2)  ) 

PHBNaC 

393 

II ' * 

WRITE! 6, A822)  (PFREUtI »,I=1,NCF) 

PhbNAC 

39  A 

1 ...  j| 

A622 

FORMAT!  6X,  1PU0.3,  IKEIC.3)  /6X,  12EIU.3) 

PhbNAC 

39  5 

35t 
39  7 
356 
395 
AOC 


•S' 

V. 

it. 


I 


7 


WRITE l 6, 4824)  ( F TKM ( I UNIT* 1 , I ) , ! = 1 ,2 ) 

4824  F0RMAT(2X,44h2)  ATMOSPHERIC  AbSCRPTICN  CCEFFICIENTS  (OB  /,2A4) 
WRITE <6, 4 826) ( TGAGR ( I ) ,l=l,NCF) 

4626  FGRMAKfaX, 12F10.2I 
wRITE(6*4827) 

4827  FCKMAT < / 2X.25 H3)  ATMOSPHERIC  CCNCITICNS  ) 

IG=lATMOS+I I 

GO  TOI  4828, 4729, 4731, 4736,4742)  ,IG 

4828  WRITEI6, 4829) 

4829  FORMAT (8Xf33HINTER NATIONAL  STANDARD  ATMCSPHERfc  ) 

GO  TO  47  ‘JO 

4 7 29  wRITt  I6,4  73C)DTEMP«CHUUMT*1  ,6)  ,CFRES  ,CF  ( I UM  T + l , 7 ) # CHUM  I D 

4730  FORMAT! 7X,40HlNTfcRNATIGNAL  STANDARD  ATMOSPHERE  PLUS  I,Fo.2, 

*5H  DEG  ,Ai,  lh,  ,F7.2,1X,A4,IH*,F7.2,8H  PCT  RH)  ) 

GO  TO  47  SC 

4731  wRITE<6,4732)  CH(ILNIT+1»6)  ,CH<ICMT  + 1«1) 

4732  FORMAT ( 7X,  31HT6MPERATURE  VS.  ALTITUDE  (DEG  , Al , IH , , A3, 1 H ) ) 

WRITE (6, 4 733) (PL, TEMP! I) ,C0 , T AL T { I ) , PR , CC , 1= 1 , NT EMPi 

4 73  3 FORMAT! 7X, A i , IPE1C. 3 »A1 , E 10.3, 2A1,IX,A1 ,fc 10.3, A1 , E 10. J , 2 A 1 , IX, Al, 

1 E10.3,AI,E1G.J,2A1,  IX,  A l,  El  0.3  , A 1 ,E  10.  3 ,2Al  ,U,  A1.E10.3,  Al,  E10.3, 

2 2A1) 

WRITE  (6, 4734)  CH  ( I UNI  T+l  ,7)  ,CH  ( I LM  T*l , 1 ) 

4734  FORMAT! 7X , 2 7HPRF SSUKE  VS.  ALTITUCfc  ( , A4 , IH, , A3  , IF  ) ) 

WRITE l fa,  4 733  ) (PL, PRES! I ) ,CC , P AL T ( I ) , PR , CC , 1=  1 , NPRES ) 
wRITt(6,4735)  CH! ICNIT+1,1) 

4735  FORMAT! 7X, 32HKEL. HUMIDITY  VS.  ALTITUDE  (PCT  ,,A3,1H)) 

WRITC (fa,  4 733) (PLtRHOMID! 1) #CC ,RALT (I ) ,PR,CC*I=l, NHUMIU) 

CALL  PKINTH! I PR T(2) ,LCT  ,6) 

wRITE(fa,4820) 

GC  TO  47  bC 

4 736  IFUUNIT.EO.l)  GO  TO  4^36 
C JRE  S=  1 . 0 
CTEMP=286.1fc 
GC  TO  4740 

4736  CPRE  S=  1 4 . 69o 
C TEMP  = 518.638 

4 74C  CRHUM0=70.G 

47  42  WRITE  (6,4737)  C IEMP,CH  1 1 UM  T+ 1 ,6)  ,CPRES  ,CH(  IUMT  + 1,  7 ) , CRHUMD 

4737  FORMAT! 7X , 2 7HH0M0GENE0CS  ATMOSPHERE  CF  (,F6.2»5H  DEG  , Al , IH, , F8 . 2 , 

* IX, A4,  IH, ,F7.2,6H  PCT  RH)  ) 

4750  wRITE(o,4 751) 

475)  FORMAT! /2X,^2H4)  ITEMS  CCNS>OEREC  IN  NCISE  E XTK APCLAT 1 CN  ) 

WRITE  (fa,  4 752  MPT,  1 = 1, 17)  ,(PT,  1 = 1,16) 

4752  FORMAT! 5X,2oHA)  SPHERICAL  DIVERGENCE  ,17AL.5P  YES/5X , 

* 2 7Ht)  ) ATMOSPHERIC  ABSORPTION  ,16A1,5H  YES) 

G R P = Y h S 

IF!  IeGA.NE.O)EGP  = YNC 

WRITc  (6, 4 75  3 MPT,  l =1,14)  ,EGP 

4753  FORMAT!  5X,29HC  ) E;  X TRA-GR  LUND  ATTENCATI  CN  ,14A1,2X,A3  ) 

WRITE  (6, 4 754)  1GRU!  ILNIT+  1)  , GKT  ( ICMT  + 1) 

4754  FORMAT ( OX, 31H5U0ND  PROPAGATION  IS  UCWNwINC  ( , 1 2 , IX  , A4 , 7M  ) . ) 

IT!  ! GOR . NE . 0 ) GKP  = YNO 

WRlTt(fc,4755J  IPT,  1 = 1,21)  , GRP 

4755  FORMAT! 5x,22HO)  GRCCNO  REFLECTION  ,2lAl,2X,A3> 

IF! IGCK.NF.U)  GO  TO  4757 

4756  FORMAT! 8X.42H3  DO  ADDED  TC  FREE  FIELD  SPECTRA  INSTEAD.  ) 

GC  TO  4756 


PHBNAC 

401 

PFbNAC 

4t,2 

PFbNAC 

4o3 

PHBNAC 

4 04 

PHBNAC 

405 

PFBNAC 

4Gt 

PH8NA0 

4C7 

PFBNAC 

4C8 

PFbNAC 

409 

PHBNAC 

4 1C 

PHBNAC 

411 

PFBNAC 

412 

PHBNAC 

413 

PhENAC 

414 

PFBNAC 

415 

PFBNAC 

4 lfa 

PFBNAC 

4 17 

PFBNAC 

4 1 E 

PFbNAC 

419 

PFbNAC 

42C 

PFbNAC 

421 

PFBNAu 

422 

PFBNAC 

4a3 

PFbNAC 

424 

PFbNAC 

425 

PFbNAC 

42t 

PFBNAC 

427 

PhbN’AC 

428 

PFBNAO 

425 

PhBNAo 

4 3 C 

PhBNAC 

431 

PHbNAo 

43c 

PFBNAC 

4 3 3 

PFfcNAo 

434 

PFbNAC 

435 

PFbNAC 

426 

PHbNaC 

43  7 

PFBNAC 

4 s 8 

PhbNAt 

425 

PFBNAC 

44C 

PhtNAO 

441 

PHBNAC 

442 

PhBNAo 

443 

PHbNAo 

444 

PHBNAC 

a45 

PFBNAC 

44t 

PFBNAO 

a47 

PHBNAC 

448 

PHBNAC 

445 

PHBNAC 

450 

PHBNAC 

451 

PFBNAC 

a52 

PhBNAC 

453 

PFBNAC 

4 54 

PHBNAC 

455 

PHBNAC 

4 66 

PhBNAC 

457 

4757 

WRIT616.4756) 

PFbNAC 

458  3 

GO  TO  4762 

PHBNAC 

455 

4758 

WR1T6(6,4759)XKN 

PhbNAC 

^ i 

4*1  uj 

4 755 

FORMAT ( 8X»6HKl/K0=»i?6l0.3f58H  ANO  GRCUNC  IMPEDANCE  VS.  FREQUENCY 

PF6NAC 

* IN  HZ  DATA  CURVES  ARE  ) 

PH6NAC 

4*2  ' 

K 

4 

WRtT6(6, 47601 

PFBNAc 

4*b  t 

4760 

FORMAT (8X,23H(RE(Zl/ZQ)»  F ) DATA  ...  i 

PFBMAi. 

‘1  <■  4 

WRITE! 6f 4/33 ) l PL  ,ZNR ( 1) ,CG ,FLG ( I *23) ,PR ,CG , 1= l ,N0) 

PHeNAC 

*(0‘ 

WRITE(6,4761 ) 

PF8NAC 

4 CC 

* 

4761 

FORMAT l 8X,  23H( 1M( Zl/ZG) , M DATA  ...  1 

PFbNAC 

46  ? 

WR ITE lb,  4733)  1 PL,  ZN1 (I)  , CC  ,FLLl 1+25 ) . PR , CC , 1 = 1 , ND 1 

P H6UmC 

4 *F 

4762 

„R I TE ( 6, 4763 ) 

PhbNAC 

4cS 

4763 

FORMAT l / 2X » 3GH5 ) NOISE  COMPONENTS  CONS  ICfcRED  ,28X , 12FNG.  OF  TIMES  } 

PFBNAC 

4 7C  ' 

NJ  = 0 

PF.BNAC 

471  | 

47  2 I 

,7,  | 

DC  4765  1*1, 13 

PFBNAC 

IFl  ICNt  I1.EJ.01G0  TO  4765 

PhbNAC 

NJ=NJ+1 

PHBNAC 

4/4 

WRITE! 0,4766)  ALPHINJ) , PR , l XN AM  £ (J , I) , J=1 ,7 ) , ICM I ) 

PFBNAC 

475 

476b 

FuRMAT (5X,2A1,1X#7A4,2X, 6HMCD0L  E , 19  X ,i 3 ) 

PHBNAC 

476 

4765 

CON T IN06 

PhBNAc 

477 

47*7 

CGNT INOE 

PhbNAC 

471 

C 

IS  TYPE  3 REPuRT  SPECIFIED  ICBSEPVED  NOISE  PER  COMPONENTS ) 

P h.cNAC 

4 74 

IFl IPRT(3).Nc.3)GG  TO  4840 

PhbNAC 

4 y c 

ENDFICE  12 

P hbNAC 

481  | 

4b  i 

REWIND  12 

PhdNAL 

4 4?0 

READ ( 12,4831)  BUFP 

PFBNAC 

4.'-.  > 

4831 

FORMAT  t 33A4 ) 

PFBNAC 

4c4 

IF  ( EOF  C 12 ) ) 484C,  4832 

PFBNAC 

485  3 

C 360 

RE ADI  12»483l*EN0=4G4G)8CFP 

PHKNAc 

46t 

4632 

WRITE16, 4831)8 OF P 

PFBNAC 

48  7 

GO  TO  4e3C 

PParvAc 

466 

4840 

IFl  ( PRT l 4 ) . NE . 4 ) GC  TO  4870 

PhbNAC 

4 65  • 

4854 

READ! 8, 46 3 1)6 UP P 

Pr Bn Ac 

490 

IF  ( EOF  1 8))  4870,  4855 

Pt-cNAc 

491  s 

C36C 

KEAf)<fl,  48  31,END  = 4R.’j)6CFP 

PhbNAC 

452  j. 

4855 

wl<  l T E l 0 , 4 6 3 1 ) 6 UF  P 

PHBNAC 

453  : 

GC  TO  4854 

PFBNAC 

49  4 

C 

IS  TYPE  5 REPUKT  SPECIFIED  6NCISE  EXTRAPCLAT l LN  CCRRFCTICNS) 

PFbNAC 

495 

487C 

IFl  IPR  T ( 5 ) .NE .5)00  TO  4860 

PhbNAC 

49* 

4874 

READ19, 4831)8 UFP 

PhPNAC 

497  i 

IF  ( EOF ( 9 ) ) 4880,  4875 

PhbNAC 

496 

C36C 

READ  19, 48  31, END  = 4 860 6LFP 

PHBNAC 

455  | 

4875 

v*RIIE«0,483llttUFP 

PhbNAC 

50c  ; 

GC  TO  4874 

PhbNAC 

501  : 

C 

IS  TYPE  6 REPURT  SPECIF  I EO  < TOTAL  NOISE  ALL  COMPONENT-  FREL-FIELO 

PhENAC 

502  < 

488C 

IFl  IPRT(6).Nt.6)GC  TO  4850 

PH6r.  AC 

503 

UG  4882  I - ( 1 ,N06S 

PFBNAc 

5C4  j 

50  5 ? 

00  4881  .1=11,117 

PFbNAC 

OC  458  1 L = I 1 ,NCF 

PF.BNAC 

50c  | 

SPLT ( L » J ) =SSPl  l L , I , J ) 

PFBNAC 

507  | 

4881 

CONTINUE 

PFBNAC 

506  | 

5u5  I 

CALL  NUISOI IPRT (6)  , 1 »NK , 16, CHIN, ICM  T .SLCISXl l) ,PFKtC»SPLT  l 1,  1)  , 

PHBNAC 

*NCF, 14) 

PFBNAc 

510 

4882 

CCNT INGE 

PFBNAC 

511  j 

C 

IS  TYPE  7 REPORT  SPECCFIEO  (FREL-FIELO  NCISC.  PER  NOISE  CUMPuNENT  J 

PF.BNAC 

512  j 

4890 

IFl I PR T ( 7 , .NE. 7 ) GC  TO  49C0 

PFBNAC 

513  l 

ENUFILL  10 

PFBNAC 

514 

9 


REWIND  10 

4894  READ! 10,483L>BUFP 

IF  (EOF!  10) ) 4900,  4895 

C360  READ! 10, 4831, END=4870) BUFP 

4895  *RITE(6,4831)BUFP 
GC  TO  4894 

4900  CONTINUE 

C TRANSFER  TO  PICK  UP  A NEW  CASE 

GO  TO  5 
500C  CONTINUE 

ENDFILE  20 
REWIND  20 
IFINRN.E3.01ST0P 
C36C  CALL  LOGOSK 

IF  ( IOPEN  .NE.  0)  CALL  CLCSMS(13J 

STOP 

END 


PHBNAC  515 

PHBNAC  5lt 

PHBNAC  517 

PHBNAC  51 

PHBNAC  51 

PHlNAC 

PHBNAC  521 

PHBNAC  522 

PHBNAi.  523 

PhBNAi,  524 

PHBNAC  525 

PHBNAC  526 

PHBNAC  527 

PHBNAC  528 

PhBNAC  529 

PHBNAC  53C 

PHBNAC  531 
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BLOCK  DATA 

: c 

C ITYPt-l  PRIMARY  JET 
C = 2 PRIMARY  AND  SECONDARY  JET 

CGMMGN/JETOaT/NJETI  ,MCUDE1,AP1,WF1 ,VP1 ,AS2,*S2,VS2»PR1»PA1, 

I TT1,VAI,DIAMT1,ANGJTI»ICCR1 

C 

C = 3 CORE  AND  TURBINE 

CCMMCN/CORtIN/TT3#PP3,CMf-3  ,EK3,nfcLT3,  JB3, 

* ICOK3,LIN3,NTF3,lMA3,LGM3,NWL3,ICPJ,lLAY3»TF3tlO), 

* PCTA3I  1C),PLA3J10),ELCH3,ECH3,R1V«3(10)  ,TL3<10),CF3,FM3 
C 

r C 

COMMGN/TURfl IN/BN3  »SS3»VTR3»CLS3,CT3iTU3,PMF3»C53» IC3» ISW3 

= C 

\ C = 4 COMPRESSOR  ANO  INLET  FAN 

; C =5  EXIT  FAN 

COMMON /F  ANO  A T/NSTG45  »NLET45,NAFT49»IDP45»NB45(31  » FPR45 { 3 ) » 

L 0IAM4I  3),RSS45(3),AREA5I3)  ,KM45,RTS4,CFPK43,DELT45, 

* NI5,BPR5,IC0R4,LIN4,NTF4,IMA4,>.GR4,NWLa,10P4.ILAY4,TF4{  101  . 

* PCTA4I  1G J ,PLA4t  10J  ,ELCH4,E0H4  .R1W4U01  »TL4  (10)  ,CF4,FM4, 

* lCOK5,LlN5,NTF5,IMA5,LGM5,NWL5,IUP5,ILAYi,TF5UO), 

* PCTA51  10),PLA5(1C)  ,6L0H5,EDH5,P1N5U0)  ,T*5(10)  ,CF3,FM9 

» C 

C =6  ALGMEN  TER-W  I NG  J6  I 

* CCMM0N/AUGWNG/GAMA6,  ITt , NPR6 .DEL  16 , AD6.CE6, 

* ICUR6,LIN6,NTF6» IMA6*LGM6»NWLo » l GP6 , HAYC.TFtl 10) , 

* PCIA6I 10),PLA6l 1C) ,ELCH6,EDH6,Pl«6(iO) ,TL6(L0) ,CFb, FPb 

- C 

C =7  BLOWN-FLAP  JET 

COMMON/JLOWIN/PR7,TT7,AN7,ON7,FANG7,DELT 7,OL7,HU7, ICCR7 

: c 

■ C =8  LIFT-FAN 

COMMON /LF  fFAN/N88»FPK8,D IAR8 ,R SS8, AREAS , PM 8 ,RTS8 , CRFPR8 ,OEL T Aft , 

* ICUK8»LlN8,NTF8» IMA8 , LGM8 ,N WL 8 , 1 CP8 , I L A YO , TF8 (10 J , PCT A8I 10 J, 

* PLA8( 10)»£LUH3»EUH8.R1W811C)»T16(10) »CF8 ,FP8 

f C 

C =9  EJECTOR  - SUPPRESSOR  JET 

COMMON  /rJECTU/  IEJECT,NUMTBS,AHEA,AH,TS,AMACHJ,AMACHS,CV, 

* ps,parea,pts,pmachj,pcv,ejang, 

* I COR  9,L IN9.NTF9, IMA9, LGM9  »NWL9 »I0P9,ILAY9» 

*TF9(  IG ) , PCTA9(  IC),PLA9<ICJ  , 

*EL0H9,EDH9,R1h9<  LCI  , I 19110)  ,CF9  ,FF9 

=10  PROPELLER 

ccmmcn/prupin/  no.wio,  RP  M 10, DIO, CSLli  10, ASU  BLC, 910, DELT  10, 

♦IlORIO 

=li  helicopter  and  tilt  ROTOR 

CCMM'JN/CUPTER/TI'  ,OLL,RPMlI,tJll,CTU,Adll,DEU,RMl, 
l SU,CtEll,DELTlI,XLMCIl,XMl,NKTRll,LLFll,  IRRU, 

* l COR  1 1 


=12  MEASURED  DATA  INPUTS 

COMMON /MENS  I N/N IPL2.NPSI 12 ,NB T A 1 2 ,CELI 12 ,EP 12 ( 3 I , PS  1 12 ( 1 7 ) , 
v ts£T  A 12  ( 5 ) , 


BLKDATA 

BLKOATA 

BLKDATA 

bLKDATA 

BLKDATA 

BLKDATA 

BLKDATA 

BLKDATA 

BLKDATA 

BLKDATA 

BLKOATA 

BLKDATA 

BLKOATA 

blkda r a 

BLKOATA 

BLKD« T A 

6LKDA  TA 

BLKDA .A 

bLKOATA 

6 L K C A T « 

BLKDATA 

bLK Da  T A 

BLKDATA 

BLKOATA 

bLKOATA 

OLK  DAT  A 

BLKOATA 

BLKDATA 

BLKDATA 

bLKDA  T A 

BLKDATA 

bLKDATA 

BLKDATA 

eLKDAT a 

BLKDATA 

BLKDATA 

BLKOATA 

ELKCATA 

bLKDATA 

BLKOATA 

BLKDATA 

BLKDATA 

BLKOATA 

BLKDATA 

BLKDATA 

CLKDATA 

BLKDATA 

BLKCATA 

BLKOATA 

BLKDATA 

BLKDATA 

BLKDATA 

BLKDATA 

BLKDaIA 

BLKDATA 

BLKDA  U 

Blk Data 


2 

3 

*» 

5 

t> 

7 

6 
9 

U 
1 1 
U 

13 

14 

15 

16 

17 

18 
19 
?C 
Kl 
22 
23 
2 9 

25 

26 

2 7 
2 8 
U *7 

3C 

31 

32 

3 3 
34 

3 5 
it 

37 

38 

39 
AC 

41 

42 

43 

44 

45 
4t 
47 

4 E 
49 
5C 

51 

52 

53 
56 
95 
56 
97 
38 


J, 

% 


* 


s 

f 


* 

h 

% 

i - 
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* I COR 12 

BLKDA1 A 

59 

c 

bLKDATA 

Ct 

c 

BLKDATA 

6 1 

c 

I TYPE  = 13  JET  EOGE  INTERACTION 

BLKDA1 A 

u2 

COMMON/ J~TEDG/AJS13,DDA13, DONE  1 3 tDHM 13,  CJCL13, 

BLKDAI A 

o 3 

*FLAP13,HD13,EMJ13,TSR13,ICCRL3 

BLKDATA 

04 

n 

S 

BLKDATA 

05 

C 

BLKDATA 

t>6 

c 

ENG/WING  GEOMETRY  AND  SHIELDING  DATA 

BLKDATA 

0 T 

COMMON /E WGEU/ ShP  TE »SKLE,OIH£D*OCSO»DOX1C»DOX2C*UCXQO, 

BLKDATA 

c8 

*OCY1D,DDY2D,DDYOO,DDLD,OIAM  ,1£S 

BLKDATA 

0 5 

c 

BLKUATa 

70 

c 

BLKDAI A 

7 l 

CCMKON/REFRAC/EMJ,TSISC 

BLKUATA 

72 

c 

bLKDATA 

73 

COMMON/UNSHLD/USPL  A ( 19)  ,FSI (19)  ,MSPL,  INDSP 

BLF  .’AT A 

74 

COMMON /CLA8EL/  Cii(2,8) 

BLKDaTA 

75 

c 

BLKDATA 

7c 

c 

CONSTANTS  USED  IN  INTERNAl  calcclaticns 

bLKOAl  l 

77 

c 

BLKD-  i' A 

78 

COMMON  /GOON ST/  t N , 10  , I T 1 , 1 T2  , FC  ,F  1 , F2  , F3  ,F4  , F5  , F6  , F7, '8, 

F9, F10, 

BLkT  IT  A 

75 

* 10, 11 ,12, I 3, 14 tib, Io,I7,I8,19, I 10, PI, P33, 

P5 i POOL , 

BLKDaTA 

80 

* EPS.UNDEf  8L,ICL,DPR,RPC,ETA(17J,M1,FM1,.' 

17, A, Pi 

Bl KDATA 

bl 

DIMENSION  CFO<ll)»ICCm)  •.".PI  (A) 

BLKOAIA 

82 

EOU I VALENCE  ICFOdJ.FC),  (IOC  III  ,IC)  , (CPI  III  , FI  I 

BLKDATA 

2 3 

c 

BLKDATA 

64 

c 

VARIABLE  SET  CALCULATED  IN  THE  PROGRAM  PROCESSING 

BLKDATA 

65 

c 

BLKDATA 

86 

COMMON  /GCOMON/  NCF ,NK ,CCF (24) , T SFt (24 , 10 , 17 ) ,SPLT ( 24, I 7 1 

, 

BLKCAIA 

67 

(25),RETA( 17 1 , SPL2 ( 17) ,TGAGR (24) ,CUPSFll7) 

BLKDATA 

88 

c 

BLKDATA 

89 

c 

BLKDATA 

9C 

c 

FREQUENCY  BANDS  USED  BY  PROGRAM 

BLKDA’A 

5 1 

c 

BLKfAT/ 

6 2 

COMMON  /GFRtQ/  CFREQ(24)  ,UFREC  (25)  ,PFRF.C  (24) 

BLK  ? ' ( A 

93 

c 

BLKlaTA 

94 

c 

BLKv-ATA 

95 

c 

GENERAL  INPUT  P ARAMF TER S 

BLKDATA 

96 

c 

BLKDaTA 

5 7 

COMMON  /GPRAM/ALTP,ALTR,SLOPE ,AMACH,NCBS ,SLOIST ( lUI , NT  ENG 

, (UNIT 

BLKDATA 

98 

* , I SPTRM,  I ATMOS  »- 1 AIR,UAIRA8  (24)  ,NTE  MP,  TEMPI  50 ) ,T  ALT  ( 5U) 

BLK OATA 

95 

* , NPRE  S , PRES  ( 50 ) ,PALT(50)  ,:\FIN  ID  , R ALT  ( 50  ) .RHUMIDI  50  ) ,CTEMP 

BLKDATA 

luu 

* , CPRS  S, CKHUMD, I EGA , l GDR , DT  E M F , DPFES , DHUM I C ,XKN5  NO,  FLD(  50 ), 

BLKDATA 

10 1 

* ZNK( 50), /Nil  50), LINECT,MAXL I N, I PAGE, bCG.TCG.FLK, AAIT, EPF 

BLKCaTA 

10c 

c 

BLKDATA 

103 

c 

BLKDATA 

10s 

c 

AIRCRAFT-OBSERVER  GEOMETRY  CLTPLTS 

BLKDATA 

1C5 

c 

BLKDATA 

ICo 

COMMON  /GEOMO/  AP Y ( 1C  , l 7)  , APZ ( l C , 1 7)  , PO  1 10  , l 7 ) , LPND( 10 , 17 ) , 

BLKCATA 

107 

* 31  ( 10, 171,02(10,17) , IDS (17, 10) ,TPD<17,L0)  ,IRR(10,17) 

bLKOATA 

ice 

*. APP,TP,RHP,AP0,TC,RHC,CA,CZ,TSP(17, 10) ,CCV 

BLKDATA 

1C6 

c 

bLKDATA 

i 1C 

CCMMGN/SUMSPL/SSPL(24,10,17) 

BLKOATA 

1 1 1 

c 

BLKDATA 

112 

COMMON /ONE  CAL / l CALL 

bLKOATA 

113 

c 

BLKDATA 

1 1A 

CCMMCN/PNLD/PSPL ( 1 7 , 20 1 , EPNL ( 5 , 1C ) , T E PNL ( 5 , 1 0 ) 

bLKDATA 

115 

ooooo  oo  noo 


CGMM0N/TMSPL/SP2 (24  *17)  ,18(2,3,13} 


COMMON  / ISViK/lSfcT  (3,13) 

COMMON/ANGLE/PS  I (17,10) ,PS 1 0(1 7 , 10) , BET  A U7 , 10 i 
COMMON/HEAO/H1N (20)  ,HCUT(20)  ,CHIN(20) 

CONVERSION  CONSTANTS 


C0MM0N/GC0NVC/C (2,10) .SLDISX(iO) 

C0MMCN/CRSPL:./008(171  ,PSCR(17)  »DPE  (408)  ,NPSCR 
INTERNAL  INDICATORS  FU«  DETERMINING  KHERF.  THE  INSTRUCTION 
COUNTER  IS  LOCATED 

COMMON/ ICPATH/NC t 1 , ^COF  *NT  VP , IC ,NPN, (ARRAY (2 ) 

NCAS  IS  .HE  NUMBER  CF  THE  CURRENT  CA(- ■ BEING  PROCESSED 
NCUF  IS  THE  NUMBER  CF  THE  CURRENT  CU‘.  IGURATICN  Bt  l\Z 
PROCESSED 

NTYP  IS  TOTAL  NUMBER  CF  NOISE  CUf’CNENTS  PROCESSED 
FOK  THE  CURRENT  CCNF 1GURAT I CN 
C 
C 

COMMON/ SW ITCH/NTYPt.»ITYPE»NENG*ICCP»lPRT(7) , ICN 1 13)  , NLCPT 
*,  INSEOR ( 3 J , I NSHLD 

C 

C MASS  STORAGE  (RANDOM  DISK  I/O)  INDECES,  COUNTER,  AND  FLAG 

COMMON  /MS10/  (NDX1(4C),  INDX213)',  IN0X3I36),  ICl,  ICPbN 
C /JETOAT/  DATA 

DATA  N JET  1, MCUOE 1, AP 1, MP l, VP  1, AS2, WS2, VS2, PR  1, PA l, TT  l, VA1, 01  AMT  1, 

* ANGJT 1, ICOKl  /O, 1,12*0.0,0/ 

C /CORE  IN/  DATA 

DATA  TT3,PP3,CMF3,EK3,DELT3,JB3, 

* IC0R3»LINJ,NTF3»IMA3»LGM3,NNL3,(DP3*1LAY3,TF3  , 

* PCTA3  , PLA3  ,EL0H3,EDH3,P1R3  ,TL3  ,CF3,FM3 

* /5*0.C, 2*0, 0,3*C, 2,1,10*0.0, IOC., 9*0. 0,34*0.0/ 

C /TURBIN/  DATA 

OAT A 8N3,SS3,VTR3,CLS3,CT3vTU3,  PMF3  , CS3 , IC3, ISW3 

* / 8*0.0, 2*0/ 
c /fandat/  data 

DATA  N STG45, NLET45 ,NAF T45,IDP45»NB45  ,FPRh5 

* /0,C,0,G,3*0,3*C./, 

1 0IAM4  ,RSS45  , AREA5  ,RN145  ,R1  S4  ,CFPR45  ,UtLT45 

* /3*C.,3*0.,J*0. ,0. ,C. ,C. ,0. /, 

* Nt5,BPR5,lCCJR4,LlN4,NTF4,lMA4,LGM4,NhL4,ICP4,lLAY4,TF4 
*/C, l.,0,C,C,C, 0,0, 2, 1,10*0./, 

* PCTA4  ,PLA4  ,ELCH4,EDH4,PU4  , TL4  , CF4 , FM4 

* /100.,S*0., 10*C.,0. ,0.,10*C. ,IC*C.  ,0.  ,0./, 

* ICUR5,LIN5,NTF5,  IKA5 ,LGK5  ,NRL 5 , ICP 5 , I L A Y5 ,TF5 

* /0,C, 0,0,0,0,2,1,10*0.  / , 

* PCTA5  * PL  A 5 ,ELCH5,E0H5,PIR5  ,TL5  ,CF5,FM5 

* / 10*0. , 10*0. ,C.,C., 10*0. , 1C*0.  ,C.,C./ 

C / AUGRNG/  DATA 

DATA  GAMA6,TT6,NPR6,CELT6,AC6,Cfc6 

* / l.A,0.,0,C.,0.,C./, 

* I COR  6 , LJN6,NTF6,  (MA6  , LGM6  ,Ni»L6,!GP6,llAY6,TFc. 

* /O , 0 , C , 0 1 0 , 0 , 2 , 1 , 1 0* C.  / , 

* PCTA6  , PLA6  ,ELCH6,£0H6 ,PIR6  ,TLo  ,2F6,FK6 

* /l00.,9*0., 10*0. ,0. ,0. , 10*0. , 1C*C.,0. ,0./ 

C /BLOWIN/  DATA 


BLKDATA 

BLKOATA 

BLKDATA 

BLKDATA 

BLKDATA 

BLKDATA 

BLKDATA 

BLKDttTA 

bLKDATA 

BLKDATA 

BLKDATA 

bLKDATA 

BLKDATA 

BLKDATA 

BLKDATA 

BlKDATA 

cLKDaTA 

BLKDATA 

BLKDATA 

BLKDATA 

bLKUATA 

ftoKOATA 

BLKDATA 

BLKDATA 

bLKDATA 

BlKDATA 

oLKDATA 

BLKDATA 

BLKDATA 

BLKDATA 

bLKDATA 

BLKDATA 

BLKDATA 

BLKDATA 

BLKDATA 

BLKDATA 

BLKDATA 

bLKDATA 

BLKDATA 

bLKDATA 

BLKDATA 

BLKOATA 

BLKDATA 

BLKDATA 

BLKDATA 

BLKDATA 

BLKCATA 

BLKOATA 

BLKDATA 

BLKOATA 

BLKDATA 

BLKOATA 

BLKDATA 

BLKDATA 

BLKUATA 

BLKOATA 

BLKDATA 


1U 

117 

118 
1 !’• 

1 2 C 
12  1 
122 
j 2 2 
1 2 4 
1 

U< 

1 ' ! 
128 

12  9 
1 dL 
1 d 1 
132 
1 d3 
i34 

13  8 
136 
i j 1 

138 

;3S 

IhC 
141 
H2 
143 
1 A A 
145 
Ho 
14’ 

14  C 

149 
15U 

151 

152 

153 

154 

155 

150 
157 
ofc 
l:>9 
loC 
161 
1 62 
163 
lo4 

165 

166 
1 o 7 
lob 
169 
1 7 C 
l 7 i 
172 
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'few  All’  '■'■‘’SMrfSJi 


OATA  PR7,TT7,AN7,0N7,FANG7,CELT7.DL7,H07,ICCR7 

* / 6*0. .0  / 

C /LFTFAN/  CATA 

DATA  N88»FPR8»DIAM8»RSS8*AREA8»RM8 ,RTS6»CRFPR8»D£L T A8» 

* IC.0R8»LIN8»NTF8, lMA8»LGM8»NbL8 ,IDP8«iLAY8,TF8  ,PCTA8  » 

* PLA8  ,EL0H8,EDH8,RIW8  ,TL8  ,CF8,FP8 

* /O, 8*0. ,0,5*0, 2, 1,1 0*0. ,10C.,9*C.,34*0./ 

C /EJECTD/  DATA 

DATA  IE JECT , NOHTBS  » AREA  , AR,TS  » ARACHJ , AHACHS, CV» 

* PS,PAR£A»P  TS,PMACHJ »PCV,EJANG* 

* l COR 9,  L I N9,  N IF9*  IHA9*LGM9,N>iL9,  ICF9»ILAY9, 

*TF9  , PCTA9  ,PLA9  , 

*EL0H9,EDH9,R1W9  ,TL9  ,CF9,FR9 

* /2*0,  12*0. ,3*0,0,2*0,2,1,10*0.  ,100.  ,9*0., 34*0./ 

C /PROPIN/  DATA 

DATA  T 10, WiO.RPPIO, 010,050810, ASUB10, BIO, CELT  10, 

* I COR  10/8*0.0, 0/ 

C /CCPTER/  DATA 

OATA  T 1 1,Q11,KPM11 ,811,CT11,AB11,DE11,RN11, 

1 S 1 1 ,C EE 1 1 ,DELT  H , XLMCl 1 , XRi l , NRTR ll ,LLFl 1 , J RRll , 

* ICOR 1 1 / 13*0. ,4*0/ 

C /MEASIN/  DATA 

DATA  NEP12,NPS1  12,NBTA12,DELT12,EP12  ,PSI12  , 

* BETA12  , 

* I COR  12  / 3*0,28*0. ,0/ 

C / JETECG/  OATA 

OATA  AJS13/5.7/ ,DDA 13/. 7854/  ,ODAE  13/0./  «CH Ml 3/G./  , DJCL 13/5./ , 

*FLAP13/0./,H013/4.0',EMJ13/0./,TSR13/1./,1CCR13/0/ 

C /EKGIC/  DATA 

OATA  ShPTE,ShPLE,OIH£D,OCXOO,OOYCO,OiAM,IES/ 

* 0.,0.,0.,0.,.1,. 3048,0/ 

C /REFRAC/  DATA 

DATA  EMJ, TSTSO/O. ,1. / 

C /UNSHOD/  OATA 

CATA  INUSP/O/ 

C /CLA8EL/  DATA 

DATA  CH/4H  M.  ,4H  FT  ,4H  MIC,4H0  P 1 ,4HRC-N,4HCC6A,4H/SG. , 4HR  ) , 

* 4HM.)  ,1H  ,1HK,1HR,4HATP.,4HPSIA,3HH/S,3HFPS/ 

C /GCONST / DATA 

DATA  ON0EF/17770CCG0CC0CCCGCCCCB/ 


OATA  IN/5/, 10/6/ , IT  1/8/, I T2/5/ ,CFC/0 . 0,1. 0,2. 0,3. 0,4. 0,5.0,  t>.0, 

* 7.0,8.0,9.0,10.0/,  100/0,1 ,2, 3, 4, 5, 6, 7,8, 9, 10/, CP1/.1, 

* .33333333,. 5, .CCi/, EPS/1. 2E-3/, 

* BL/4H  / , IGD/1/ , DPR/57. 29578/, RPD/1.745329E-2/, ETA/10., 

* 20., 30. ,40. ,50. ,6C. ,70. ,80. ,90. ,100. ,110. ,120. ,130., 140., 

* 150. ,160. , 170./,Rl/-l/,FPl/-l.G/,ll7/17/,A/49.O2142/ 

*, PI/3. 141592653898/ 

C /GCGMGN/  DATA 

DATA  NCF,NK,BCF  ,TSPL  ,SPLT  , 

*8UF  ,RETA  , SPL2  » TGAGR  ,DCPSF 

* /2*0, 4595*0. ,17*1.0/ 

C /GFREG/  CATA 

DATA  CFREQ  /50.  11872,63. 09573, 79.43282 ,1.00. 0000 , 125.89  25, 158.4893, 

* 199.5262,251.1886,316.22  78 , 398. 1 072 , 501 . 1872 ,630.9573 , 794. 3262, 

*1  COO. 000,  12  58.92  5,1584.693,1995.262,2511.886,3162.278,3981.072, 
*5011.872,6304. 5 7 3, 7943. 2 82,1 CCGC. 00/ 
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DATA  OFREQ  /44. 66836, 56.23 A 13 , ?C. 79458 , 89. 12509 , 112 .20 18 , 141 . 

2538, 

6LKDATA 

22; 

*177.8279,223.8721,281.8383,354.6134,446.6836,562.3413,  707.9458, 

BLKDATA 

23  i 

* 891. 25G9, li?2.0 18, 1412. 538, 1778. 279, 2238. 721  ,2818.383, 

6LK0ATA 

232 

*3548.134,4466.836,5623.413,7079.458,8912.509,11220. 18/ 

BLKDATA 

23- 

CATA  PFREQ/24*0. / 

BLKOATA 

2 3't 

t 

/GPRAM/  DATA 

6LKDATA 

2 J 3 

CATA  ALTP, ALTR, SLOPE  , AH ACH ,NCBS  ,SLD  1ST  , NT  ENG, IUNIT 

BLKDATA 

2 ,3 

* , 1SPTRM, IATM0S,IA1R,UAIRAB  ,NTEMF,TEMP  , T ALT 

BLKOATA 

7 3 7 

* ,NPRES,PRES  ,PALT  ,NHIH1C,KALT  ,RHUHID  ,tTEMP 

BLKDATA 

23c 

* ,CPRES,CKHUMO,  IEGA  , 1GDP.  ,0  T£  HP  ,OPK£S  ,OHUMl  C,XKN,  NC,  ELD 

» 

BLKDATA 

2b5 

* ZNK  ,ZNi  »LINECT,MAXLIN,IPAGfc»6CG»TCG»FLK»AALT»£PF 

blkoa  t a 

2<*c 

*/  4*0., 1, 10*0. , 1,0,3*0,24*0. ,C,1C0*0. ,0 , 100*0. ,0 , 100*0 ., 3*0. , 

0,1, 

BLKDATA 

241 

*3*0., 4. 2, 2, 150*0., 0,56, 0,10. ,IC. ,9C. ,0. ,0./ 

BLKDATA 

242 

c 

/GEQMO/  DATA 

BLKDATA 

243 

DATA  APY  , AP2  ,PD  ,CPND  , 

BLKDATA 

24*. 

* 61  ,62  » TDS  , T PD  ,IHR 

BLKDATA 

245 

*,app,tp,rhp,apu,to,rhc,ca,cz,tsp  ,cov 

BLKDATA 

246 

* / 170*0.,  170*0. , 170* C. ,170*0. ,170*0. ,170*0. , 170*0. , 1 70*0. , 170*0, 

fiLKOATA 

247 

* 8*0., 171*0./ 

bLKDATA 

2ho 

c 

/S CMS PL/  CATA 

BLKDATA 

249 

OATA  SSPL/4G80*Q« / 

BLKCA  t a 

25C 

c 

/ONECAL/  DATA 

bLKDATA 

2 5 t 

DATA  ICALL/C/ 

BLKCATA 

262 

c 

/PNLD/  DATA 

blkoata 

253 

DATA  PSPL/34C*C./,EPNL/5C*0./,TEPNL/50*0./ 

blkdaia 

254 

c 

/TMSPL/  DATA 

BLKDATA 

236 

CATA  jPZ/4C8*0/ ,18/78*0/ 

BLKOrt  T A 

2 5fc 

c 

/ I SWK/  OATA 

BLKDmTA 

257 

DATA  1 SWT /39*0/ 

bLKDATA 

25b 

c 

/ANGLE/  DATA 

BLKDATA 

2 65 

DATA  PS  I / 170*0. /,PSI C/17C*0. /,BETA/1 70*0./ 

BLKDATA 

2oC 

c 

/HEAD/  DATA 

BLKDAIA 

261 

DATA  HIN/2C*C./,HCLT/2C*C./,CHIN/2C*C./ 

BLKDATA 

2c2 

c 

/ GCONVC/  OATA 

BLKDATA 

Zbi 

OATA  C /3. 280833, .3C48CC6, .224605,4.4483, 2. 204616, .4535937, 

oLKOA ta 

264 

* 1.341011, .7457061,1.8, .5555555,14. 656, 6. 804573E-2 ,8*0./ 

BLKOA I A 

26  6 

c 

/CRSPLS/  OATA 

BLKDATA 

266 

OATA  CGB/17*C./,PSCR/l7*C./,CPB/4C6*0./,NPSCR/0/ 

BLKDATA 

2o7 

c 

/ICPATH/  DATA 

bLKDATA 

268 

CATA  NCAS,  NCOF  , NT  YP , 1C,  NRN  » I APR AY  /C  , l , 3*0 , l 1 3/ 

BLKDATA 

265 

c 

/SWITCH/  DATA 

BLKDAIA 

2 70 

OATA  NTYPE/i/, I T YPE/C/ ,NENG/ 1 / , I CC P/0/ , I PRT /7*0/ , I CN/ 13*0/ , 

BLKDATA 

271 

*NLOP  T/0/, INSE0W/3*C/,IN  5HLD/C/ 

BLKOATA 

272 

c 

/M S 1 0 / OATA 

BLKDATA 

273 

DATA  INOX  1 / 40*0/ , INDX2  /3*C /,  IN0X3  /36*0/,  ICl  /O/,  IljPF.N 

/O/ 

bLKDATA 

274 

END 

BLKDATA 

275 

15 


OVERLAY (EXEClOfltO) 

PROGRAM  ONE 
COMMON/ONECAL/ICALL 
if( I CALL •£G*0)GC  TO  10 
CALL  NEXTCR 
RETURN 

10  CALL  ELTGEOC IECE) 

IF(  lECE.NE.OCALL  ERROR ( 13 , 7 » 15 1 

RETURN 

END 


ONE  2 

ONE  j 

ONE 

ONE  5 

ONE  t 

CNE  7 

ONE  £ 

ONE  <5 

CNt  1G 

CNE  11 
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Sv 


OVER LAY (EXEC 20f2,C) 
PROGRAM  T inO 

COMMON/ SkITCH/NTYPE, I TYRE 


12 


5 

100 


IF  ( ( I TYPE  .EU< 
IF  ( ITYPE  .EQ. 
IF  ( ITYPE  .tw. 

GC  TO  ICG 
CALL  JET 
GO  TO  1G0 
CALL  INLET 
GC  TO  ICO 
CALL  AFT 
CCNT  INUF 
RETURN 
END 


n 

A) 

5) 


•OR.  (ITYPE 

GC  TC  A 
GC  TC  5 


•EC.  211  GC  TC  12 


I 


m 


W 
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TWO 

2 

T*G 

i 

TnC 

A 

TWO 

t 

I*f. 

t 

TttO 

7 

TrtC 

* 

T WU 

T *0 

1C 

TWO 

11 

TWO 

U 

T *0 

13 

TWv 

1 A 

T ciC 

lb 

TXu 

10 

overlay ( exec 30»3»0) 
PRUGRAM  THREE 
CGMMON/SW ITCH/NTYPEiITYPE 


IF 

{ ITYPE  .EU.  31 

GC 

TC 

3 

IF 

I ITYPE  .fcQ.  6) 

GC 

TC 

6 

IF 

l ITYPE  .£0-  9) 

GC 

TC 

9 

GC  TO  100 
3 CALL  COREN 
GO  TO  IOC 
6 CALL  SPECAN 
GO  TO  100 
9 CALL  EJECT 
100  CONTINUE 
RETURN 
ENO 


THREE 
THREE 
ThREE 
THREE 

Three 

THREE  7 

THREE  6 

THREt  9 

three  ic 

THREE  11 

THREt  IE 

THREt  tJ 

THREE  14 

three  a 

THREE  U 
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O fV! 


V'T'*  J$'#+'"'  fa**  t±±’*> 


:,  A-  u 


OVERLAY! EXEC9C, 4,0) 

PROGRAM  FOUR 

COMMON /SW ITCH/NT YPE # I TYPE 

I F f IT  YPP  _i;m  o » 


If  ( ITYPE  .tO.  8) 

If  l ITYPE  .Eu.  10) 

If  I ITYPE  .tQ.  1 ) 

GO  TO  100 

8 CALL  LIFTFN 
GO  TO  IOC 

10  CALL  PROP 
GO  TO  100 

11  CALL  COP  TR 
100  CONTINUE 

RETURN 

END 


GO  *C  8 
GO  TO  1C 
GG  TG  11 


FCUk 

FOUR 

FOUR 

FOUR 

FOUR 

FOUR 

FOUR 

four 

FOUR 

FOUR 

FOUR 

four 

FOUR 

four 

four 


2 

3 


e 

9 

1C 

11 

id 

13 

19 

it 

it 


p- 


19 


~J  O'  KT 


*-  -JJJ.L ? J,UU  !? up  1;J . i ■ J1I  i 5 


OVERLAY (EXEC50t5«0) 

FIVE 

PROGRAM  FIVE 

FIVE 

COMMON /SR  I TCH/N TYPE  » IT YPE 

FIVE 

IF(  ITYPE.EQ.12iCALL  MEASRO 

FIVE 

RETURN 

FIVE 

END 

FIVE 

s' ,>_  '■ '' r 


0Ve«LAY(6X£Cc0,6,0l 
PROGRAM  SIX 

COMMON  /SWITCH/  NTYPE,  I TYPE 
IF  ( ITYPE  .tv).  7)  GC  TC  7 
IF  I I TYPE  .f;0.  13)  GC  TC  13 
GO  TO  LOG 
7 CALL  BLWFLP 


GO  10  100  S 

13  CAIL  JOINT  S 

100  CONTINUE  :> 

PE  TURN  S 

END  S 


</>  <s*  </></■></>  in  m 


PROGRAM  0ATGENl0UTPUT=20C2B,TAPEt*CUTPUT 

»T  APE20= 

104B,TAPE21= 

10AB, 

DATGfcN 

c 

1 

TAPE22=104B) 

DATGEN 

3 

c 

THIS  PROGRAM  GENERATES  A SUBROUTINE  FOR 

THE 

FCCT  PRINT 

CATGEN 

4 

c 

PROGRAM  WITH  THE  NOISE  DATA  FRCM  TEE187C 

STORED 

IN  A DATA 

DATGtN 

£ 

c 

STATEMENT,  THE  SIZE  AND  NAME  OF  WHICH  IS 

PASS60 

TO  THE 

DATGtN 

fc 

c 

FTPRT  ROUTINE  AS  ARGUMENTS  -E.G.  CALL 

FTPRT ( 

N, DATN) 

DATGfcN 

7 

DIMENSION  01 ( 216) , X( 16 ) 

CATGfcN 

0 

DATA  IT/O/ 

DATGEN 

9 

DATA  KF/22/ 

CATGEN 

10 

DATA  K!,KO, KB/20, 21,0/ 

CATGfcN 

II 

OATA  IC,  IS, I£,IG/0, 0,0,1/ 

DATGtN 

12 

DATA  A/1HA/ 

DATGtN 

13 

REWIND  K 1 

CATGEN 

14 

REWIND  KF 

DAT  Gcn 

15 

REWIND  KO 

DATGtN 

16 

N 1=0 

CATCEN 

17 

wRITE  (6,103) 

DATGtN 

18 

103 

FORMAT ( 44H  IS  IE  J1  M 

IC 

IW 

) 

DATGfcN 

15 

C 

READ  DATA  FROM  OUTPUT  FROM  IEE187C  (TAPE  20)  AND  WRITE  THIS 

OATA 

CATGEN 

20 

r 

V, 

UUT  ON  TAPE  21  AS  OATA  STATEMENTS 

DATGEN 

21 

c 

IC  IS  THE  COUNT  OF  THE  MM6ER  CF  OATAARRAYS 

DATGEN 

22 

c 

IS  IS  EQUAL  TJ  1 AT  START  CF  EACHARRAY 

DATGEN 

23 

c 

IE  IS  EQUAL  TO  THE  LAST  ELEMENT  CF  EACH 

array 

CATGcN 

24 

c 

IG  INDICATES  THE  END  CF  THE  INPLT  FILE 

DATGtN 

25 

DG  1000  1=1,20000,216 

DATGEN 

26 

J 1=0 

CATGEN 

27 

IC=IC+1 

DATGEN 

28 

I S=  I 

DAT  GEN 

29 

IE  = I S+215 

CATGEN 

3C 

25 

I lsf+Jl 

DATGtN 

31 

1 2 - 1 1+11 

CATGtN 

32 

6 360 

REAOtKI,  10C,fcND=4C) (01  ( J)  ,.)=!  1,12) 

CATCEN 

33 

R EAO( K 1 , 100 ) (01  (J),J=I1,12) 

CATGtN 

34 

IF  ( EOF ( K I ) ) AC,  20 

CATGEN 

35 

IOC 

FORMAT  ( 12A4) 

CATGtN 

it 

20 

J 1=J 1+ 1 2 

DATGfcN 

37 

IK  J1.EQ.2165GO  TO  6C 

DATClN 

36 

GO  TO  25 

CATGtN 

35 

AO 

I E=J  1 ♦ I S-  1 

CATGtN 

40 

IW=1 

DATGEN 

41 

WRITE  (6,102)  IS,  IE,  Jl,  Nl,  IC,  IW 

DATGfcN 

42 

102 

FORMAT (616) 

CATGtN 

43 

IFl  IS.GT.IfcJGl)  TO  105C 

CATGtN 

44 

IG=2 

CATGtN 

45 

f C 

CALL  WROATA(Dl, » ,J1,KC,I T) 

DATGEN 

4t 

IF  ( IG  - l)  10CC,  1CGC,  1 1 CC 

CATGEN 

47 

1000 

CONTINUE 

DATGtN 

48 

I W = 2 

CATGfcN 

45 

WRITE  (6,102)  IS,  IE,  Jl,  Nl,  1C,  IW 

CATGEN 

50 

1050 

IC=IC-i 

CATGEN 

51 

I W=  3 

CATGEN 

52 

WRITE  (6,102)  IS,  IE,  Jl,  M,  IC,  IW 

DATGtN 

53 

J 1 = 216 

DATGtN 

34 

L10C 

CCNTINUE 

DATGfcN 

3 5 

I K = A 

CATGtN 

56 

WRITE  ( 6 , 10H  IS,  IE,  Jl,  Nl,  IC,  IW 

CATGfcN 

57 

REWINU  KC 

DATGtN 

3 0 

22 


...ifitiiHil 


mms^i  ag 


C WRITE  PROGRAM  HEAUER  FCR  MAIN  PRCGRAM  CF  FCGT  PRINT 

DATGEN 

59 

WRI T£ ( KF » 241 ) 

DATGEN 

6C 

24 1 

FORMAT ( 6X, 2 6H SUBROUTINE  TEE227  ( I MCCE  ,MM  i 

DATGEN 

Cl 

WR  £TE ( KF,  300  J 

OATGtN 

b£ 

300 

FORMAT! 52HC  PROGRAM  TEE227A! INPUT tGLTPUT  »TAPE5= INPUT »T  APE6, 

DATGEN 

63 

X 8H=0UTPUT ) ) 

CAT  GEN 

64 

C 

WRITE  A COMMENT  OF  EXPLANATION 

CATGEN 

65 

WR I TE! KF , 400  ) 

OAT  GEN 

6fc 

400 

FORMAT! 52HC  THIS  PROGRAM  HAS  BEEN  GENERATED  AS  A MEANS  OF 

/ 

CATGEN 

67 

X60HC  CIRCUMVENTING  THE  NEED  FCR  INPUT  TO  TEE227  WHICH  IS  TO 

/ 

CATGEN 

68 

X 52HC  BE  RUN  UNDER  CCNTRCL  CF  A PEAL  TIME  SINULAICR  ON 

/ 

CATGEN 

65 

X6CHC  THE  SIGMA  7. 

/ 

CATGeN 

7C 

XdCHC  THE  4 NUMBERS  REPRESENTED  ON  EACH  LINE  CF  THE  DATA 

/ 

OAT  GtN 

71 

X62HC  STATEMENT  ARE  THE  CLTPLT  CF  NCISE  LEVEL,  ENGINE  PRESSURE/ 

OATGtN 

72 

XfcOhC  RATIO,  ELEVATION  ANGLE,  LCG10  CF  RANGE,  GENERATED  8Y 

/ 

CAIGEN 

73 

X60HC  THE  NOISE  PREDICTION  PROGRAM , TEE187  PER  INPUT  CASE 

/ 

0 AT  GtiM 

74 

X6CHC  ANU  PLACED  ON  FILE  TAPE20,  WHICH  HAVE  BEEN  PROCESSED 

/ 

DATGEN 

75 

X6CHC  BY  THE  TEE187C  POST-PRCCESSCR.  THE  POST-PRCCESSO'R 

/ 

CATGEN 

76 

X6CHC  INCORPORATES  THIS  DATA  CURING  THE  GENERATION  CF  THE 

/ 

CATGEN 

77 

X6CHC  MAIN  PROGRAM  OF  TEE227  , THE  NCISE  CCMUOR  PROGRAM 

/ 

CATGeN 

78 

X62HC  WHICH  ThE  PGST-PROCESSCR  HAS  CUT  PUT  IN  SOURCE  CODING  ON 

/ 

CATGEN 

75 

XfcCHC  FILE  TAPE22 

) 

CATGEN 

ec 

WRITEUP, 2421 

LATGeN 

61 

242 

FORMAT (6X,23HCUMMCN/CCUNT/NEPR,  NL  J 

DATGEN 

82 

WR I T E ( KF , 243  ) 

CATCeN 

83 

243 

FORMAT { 6X , 3 8HC0MMCN/CCNTNT/ AE PR (6)',ALRD(S) ,AALFA!6)  ) 

DATGEN 

64 

N 1 = 72 

DATGEN 

6-j 

C 

WRITE  DIMENSION  STATEMENTS  FCR  CATA  ARRAYS 

CATGEN 

6t 

I D I =-  7 l 

DATGEN 

87 

DC  1200  1=1, IC 

CATGeN 

88 

1W=5 

DATGtN 

85 

WRITE  (6,102)  IS,  IE,  Jl,  Nl.  1C,  IW 

CATCeN 

SC 

10=1*9 

OATGtN 

91 

IF!  I .EQ.IC.AND.IE.tQ.OGG  TC  13CC 

CATGEN 

52 

IF! I »EQ.lC)Nl=Jl/3 

CATGEN 

9 3 

I W=6 

CATGEN 

54 

«RITE  (6,102)  IS,  IE,  Jl,  Nl,  IC,  IW 

CATGEN 

95 

WRIT6(KF,700)A,  ID,M 

DATGEN 

56 

700 

FORI  4T(6X,lGHuI MENS  ION  , Al , 1 2 , Ih < , 12 , 1H)  I 

DATGtN 

57 

ID  1=  ID  l ♦ 72 

CATGEN 

58 

wRITE(KF,8CC)I0I,  ID 

CATGEN 

55 

800 

FORMAT (6X.18HE0UI VALENCE  ( 0 A TN ( , I 4 ,3H) , A , 1 2 , 9HU) ) ) 

CAT  GEN 

IOC 

1200 

CCNT INUE 

CATGEN 

,01 

1300 

OCNT  INUE 

CATGEN 

1C2 

N=72*l IC-1J+N1 

DATGtN 

103 

N4=N/4 

CATGEN 

1 04 

WRITEIKF, 750JN 

CAT GE  . 

105 

750 

FORMAT (6X, 15HUIMENSI0N  DATN ( , I 4 , 1H) ) 

CATGEN 

106 

WRITE (KF, 850) N9,N4,N4,N4 

CATGeN 

107 

85C 

FORMAT! 6X,13H0I MENS  ION  0 1 ( , I 3 ,2H ) , ,3HD2 ( , 1 3 ,2H ) , , 3HC3! ,13, 

CATGtN 

108 

X2H), ,3HD4(, 13, IH)) 

CATGeN 

105 

00  950  1 = 1, IT 

CAT  GtN 

lie 

READ! KO, 900) X 

CATGtN 

111 

900 

FORMAT!  18A4) 

CATGtN 

112 

WRITEIKF, S00)X 

CATCEN 

113 

550 

CCNT INUE 

CATGeN 

114 

C 

WRITE  CALL  TC  FOOT  PRINT  SUBROUTINE  ANC  STCP/ENU 

DATGEN 

115 

23 


*RITE(KF, 5C0)N,N4 

500  FORMAT ( 6X«  2HN=# I4/6X»3HN4=«I4) 

55C  FORMATl6X*45HCALL  FTPRT lN»DATN«N4«0i #02 #C3# 04# IMGOE# NLN) 
X/6X(  t?HR  £ TURN /6X»3H END  1 
REWIND  KF 
SfOP 


SUBROUT INE  WRDAIAIX, IS » IE.KC, IT1  WRDAT A 

X IS  THE  OATA  ARRAY  CONTAINING  THE  VAKUES  TO  BE  WRITTEN  OUT  WROAJa 

15  IS  THE  STARTING  ELEMENT  CF  THE  ARRAY  WKCATA 

16  IS  THE  ENO  ELEMENT  OF  THE  ARRAY  wRDATA 

KO  IS  THE  OUTPUT  FILE  WHICH  THE  DATA  STATEMENT  IS  WRITTEN  ON  WACATA 

DIMENSION  X(l),Y(3,4J,XM(2),XMXl2)  WRCATA 

OATA  XM ,XMX, DAT  »C»8L»SU,A,NA,N/IF  ,1H  ,1H  ,2H  X.4HCATA, 1H, , Ih  . WRDATA 

X IH/,1HA,9,C/  wRDATA 

NA=NA* 1 WP  DAT  A 

WRITE(K0,800iJXM,0ATt8L.A,NA,eL,SL  WRDAT  A 

8001  F0RMATIA4,A2»A4,A1,a1,I2,A1,A1)  WKOATA 

IT= I T+ I WRCATA 

I WRITE  UP  TO  18  CONTINUATION  CARDS  wRDATA 

JK-- 14  WRDATA 

DO  10C0  1=1,18  wRCATA 

JK=JK+ 12  WRDATA 

J=JK  WRCATA 

00  100  K=  1,4  WRDATA 

Kl=K  WKOATA 

J=J+  3 wRDATA 

Y l 1 , X 1 ) = X I J ) WRDATA 

Y(2,K1)=X( J*l)  WRDATA 

100  Y13*K1)=»X(  J+2)  WRCATA 

CMC  WRDATA 

1-1  '.£.£Q.J  + 2)CH  = SL  WRCATA 

WRITE! KO, 6003)XMX,{BL,{Y(I1,I2)«I1=1*3) ,C , 12*1,3 1 » 8L , I Y (1 1,4 ) . WKOATA 

X »I=1,3),CH  WRDATA 

I T= I T+ l wRCATA 

8003  FORMAT (A4,A2,4(A l ,3A4 »A 1) ) WRDATA 

IHCP-EQ. SLIGO  TO  HOC  WKCATA 

1000  CONTINUE  wPOAIA 

UCC  CONTINUE  WRDATA 

RETURN  WRDATA 

END  WRDATA 


o o o o n 


PROGRAM  TEX2271 I NPUT*  1 G4B  t OUT  Pf*  7=20028*  T APE5*  INPUT « T APE6=0UTPUT , TEX227 
1 TAPE 2*1 048 »TAPE99=2002BI  TEX227 

READ ( 5* 9000) I PLOT  TEX227 

9000  FCRMATU3)  TEX227 

IFUPLOT.NE.-i)GO  TO  10C0  TEX227 

THIS  IS  AN  OPTION  TO  PLOT  WITH  THE  EXISTING  TAPE  2 TEX227 

THE  ENTRY  INTO  ORIVER  BY  THIS  METHCC  GIVES  INODE  TEX227 

A VALUE  FOR  TESTING  THA  T IT  CCLLDNCT  NORMALLY  HAVfc  IN  DRIVER  TEX227 

THIS  ALLOWS  A TEST  FOR  A PLOT  CfTION  TEX227 

TEX227 

CALL  0RIVES(0,D,0,D,0,0,D,0,-li  TEX227 

GO  TO  1010  TEX227 

1000  CALL  TEE227I 1*0)  TEX227 

1010  STOP  TEX227 

END  T6X227 
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INTEGER  FUNCTION  SEARCH ( Z, X ,ND , N , I S) 

TEARCh 

2 

c 

SC0931  SEARCH  PS-471  Wl L INSKI , R.M.  690304  6600 

TEARCF 

3 

X 

c 

BINARY  SEARCH 

TEARCH 

4 

:f 

7* 

c 

TEARCh 

5 

>= 

DIMENSION  X( 2) 

TEARCF 

6 

r 

c 

FUNCTION  TO  HALVE  INDEX  DURING  BINARY  SEARCH 

TfcARCF 

1 

* 

IFALFI  I)  = (I  + l)/2 

TEARCF 

6 

. 

c 

TEARCF 

S 

0 

N = IABS(M) 

TEARCF 

1C 

SEARCH  = 1 

TEARCF 

u 

I * l 

TEARCH 

12 

I F { N .LE.  1 J GO  TO  24 

TEARCF 

12 

* 

c 

INPUT  PARAMETER  NO  MAY  BE  CHANGED  BECAUSE  DEG.  IS  TOC  LARGE 

TEAkCF 

lH 

£ 

NO  = MlNO(ND,N-l) 

TEARCF 

13 

I FI M .GE.  0 )GC  TO  445 

TEARCF 

It 

I ' 

c 

TEST  TG  PREVENT  tXTRAPOLATICN  WHEN  N IS  NEGATIVE 

TEARCF, 

17 

'1 

IFIABS(Z  + Z-Xlll  -X(N) ) .LE.  A8 S I X 1 1 )-X { N) ) ) GC  TC  445 

TEARCH 

16 

A 

IHABSIZ  -X(l))  .GE.  ABSIZ  - X(N))>1  = N 

TEARCF 

IS 

\ 

GO  TO  24 

TEARCH 

20 

"" 

<i  4 5 

IGO  = 1 

TEARCF 

21 

j 

IF( XI  1)  .GT.  X ( 2 ) ) IGO  = C 

I EARCF 

22 

> 

c 

DESCENDING  X ARRAY 

TEARCF 

23 

fi 

c 

BINARY  SEARCH  TO  BRACKET  Z BETWEEN  XU)  AND  Xll  + l) 

1 EARCF 

24 

I = IHALFIN) 

T EARCF 

25 

% 

10LT  = I 

TEARCF 

£t 

4 

C; 

c 

MAIN  SEARCH  LOOP 

TEARCF 

2 / 

i 

5 

IOLT  = IHALMIDLT) 

TEAKCF 

28 

** 

OIF  = XII)  - Z 

TEARCF 

2S 

T 

I F ( IGO  .EQ.  0 ) D I F = -OIF 

TfcARCF 

3C 

IF(OIF) JO, 24,20 

TEARCF 

31 

* 

c 

X(I)  is  EXACT  VALLE 

TEARcf 

32 

24 

IS  = I 

TEARCF 

3 2 

3 

fi 

GG  TO  52 

TEARCF 

34 

c 

I TOO  LARGE  (UNLESS  I = 1) 

TEARCF 

35 

j 

20 

I F(  I - 1 ) 40 ,40,21 

TEARCF 

36 

i 

21 

I F ( I - IOL T ) 22, 22 , 23 

T EARCF 

37 

c 

IOLT  TOC  LARGE  (BECAUSE  N NCT  POWER  CF  Z) 

TEARCh 

J8 

T 

22 

ICLT  = IHALF(IOLT) 

TEARCF 

3S 

' 

23 

1=1-  IOLT 

TEARCF 

40 

I* 

I =MA  XC ( 1,1) 

TEARCF 

41 

«*■ 

it 

GC  TO  5 

TEARCF 

42 

3 

4 

1 ? c 

I CK  OR  TOU  SMALL  (UNLESS  I = N) 

TEARCF 

43 

J 

1 t 

30 

I F ( I - N ) 31, 40 , 4C 

TfcARCF 

44 

If  c 

Z NOT  UUTSIOE  RIGHT  END  CF  TABLE 

TEARCF 

45 

'< j 

s'*  i; 

31 

OIF  = X(  HU  - Z 

T EARCF 

4o 

T 

| 

; V 

I F ( IGO  .EG.  OJOIF  = -OIF 

TEARCF 

47 

7- 

i % 

I E(  0 I F ) 3 4 , 36 , 40 

TEARCF 

48 

•S' 

i s c 

X(  1 + 1)  IS  EXACT  VALUE 

TtARCh 

4S 

% 

1 1 
£ £ 

36 

IS  = I ♦ 1 

TEARCF 

50 

i 

t’. 

& 

GC  TO  52 

TEARCF 

51 

£ C 

I TOO  SMALL 

TtARCh 

52 

2 

| 

34 

1=1*  IOLT  t 

TEARCH 

53 

j 

pk  - 

IF( I - N ) 5 , 5 , 35 

TEARCH 

54 

1 

if  C 

IOLT  WAS  TOO  LARGE  (BECAUSE  N NCI  POWER  CF  2) 

TfcARCF 

55 

a 

Ij 

35 

1=1-  IOLT 

TEARCF 

56 

a 

Sr: 

ICLT  * IHALF(IOLT) 

TfcARCF 

. ■ 

9 

y \ 

GC  TO  34 

TEARCF 

58 

I 

27 


L BRACKETED  BY  X(l).  XK+U 
40  ND^LE^V-’^RETURN  NEAREST  PCIM  IN  T ABIE 

“ !Si.J8--"iS.r.S.  - 2* 

FINLAND**  1 POINTS  CENTERED  (IP  PCSSIBLEI  ARCUND  L 
A3  I = MINOt  MAX0(  1 1 I - <ND  - 1W2)»  N - NO! 

IS  = I 
SEARCH  * 0 
52  RETURN 
END 


TEARCH  55 

TEARCH  6G 

TEARCh  61 

TEARCH  62 

TEARCH  6 

TEARCh  t> 

TEARCh  6 

TEARCh  66 

TEARCh  67 

TEARCh  60 

TEARCh  65 

TEARCh  7C 
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SUBROUT INE  ABSORPIRH,  T,  NBR,  NFE » BCF , ALPHA! 

PROGRAM  TO  COMPUTE  A8SORPTICN  COEFFICIENTS  AS  DfcFINEC  BY 
SAE-ARP866.  THE  (RMS)  ERROR  IN  COMPUTING  THE  COEFFICIENTS  IS  LESS 
THAN  0.1  DB/1000FI. 


C AUTHOR 
C 


0.  G.  OUNN 


INPUTS  ARE* 

RH  = RELATIVE  HUMIOITY  IN  PERCENT. 

N8W  = bANOHIDTH  INDICATOR  (NBV»  = 1 FOR  FULL  CCT AV E-BANOS , 

(Net*  = 3 FOR  THIRD  CCT  AVE-bANDS ) 
NFB  = NUMBER  OF  FREQUENCY  BANOS. 

BCF  = THE  ARRAY  OF  BANO  CENTER  FREQUENCIES. 

T = AMBIENT  TEMPERATURE  IN  DEGREES  FARENHEIT 

OUTPUT  IS  THE  ARRAY  OF  ABSORPTION  COEFFICIENTS  (ALPHA) 

RESTRICTIONS 

APPLICABLE  LNLY  TO 

1)  STANDARD  COMMERCIAL  OCTAVES 

2)  STANDARD  PREFERRED  OCTAVES 

3)  STANDARD  PREFERRED  (1/3)  OCTAVES 

ANO  NOT  APPLICABLE  TO  GENERALIZED  FREQUENCY  BANDSt  I.E. 

1)  OCTAVES  OR  I. 3) TH  OECACE  BANCS  NOT  DEFINED  FOR  (BCF) 
CONTAINED  IN  CPEN  SET  (4000*6788)  HZ 

2)  (1/3)  OCTAVES  OR  C.DTH  DECADE  BANDS  NCT  DEFINED  FUR 
(BCF)  CONTAINED  IN  CPEN  SET  14000,5000)  HZ 


ALLOCATE  STORAGE  FOR  OTHER  ARRAYS 
DIMENSION  ALPHAI1),  BCF(l) 

DIMENSION  0X1(11),  OYl(ll),  0X2(21),  DY2(2l),  X0(33>,  YC(33) 

DEFINE  CONSTANTS 

DIMENSION  XYD9I66)  .0XY19I22)  ,DXY29I42) 

DATA  X Y09  / C. , C. * 0.25,  0.313,  0.5,  0.704, 

10.75,  C.957,  1.0,  1.0,  1.25,  0.87,  1.5,  0.75,  1.75,  0.65,  2.0,0.57 
2,  2.25,  G. 506,  2.5,  0.45,  2.75,  C.408,  5.0,  0.37,  3.25,  0.337, 

3 3.5,  0.3C8,  3.75,  0.286,  4.C,  C.269,  4.25,  0.253,  4.5,  0.241, 

4 4.75,  C.232,  5.C,  0.225,  5.25,  C.22,  5.5,  0.214,  5.75,  0.21, 

5 6.0,  0.205,  6.25,  0.201  , 6.5,  0.2,  U. 125 ,0. 148 , 0.375,0.50o, 

6 C.625, 0.874,  0. 875, C. 992,  1.125,0.95,  1.375,0.803  / 

DATA  OX Y 19  / 0.0,-2.457,  10., -2. 3889, 

1 2C., -2.  323c,  30. ,-2.2708,  4C.  ,-2.2165,  50.  ,-2.1748,  60. ,-2.1247, 

2 70. ,-2.0825,  8C. ,-2.032,  90. ,-1.9624,  IOC., -1.904c  / 

DATA  CXY29  / 0.0,-1.9482,  5. ,-1.8426, 

1 10..-U739,  15.0,-1.6356,  2C.  ,-1.5411,  75.  ,-1.4393,  30.  ,-1.341, 

2 35. ,-1.2562,  40., -1.171c,  45. ,-1.088,  50. ,-1.0098,  55.,-0.°391, 

3 60. ,-0.8725,  65.,-C.7949,  7C.,-C.7264,  75. ,-0.6341,  80.,  -0.581c, 

4 85. ,-0.5214,  90. ,-0.4575,  95.,-C.369,  100. ,-0.3298  / 

OATA  I SET  9/1/ 

IF  ( ISEIS  - I)  19,  19,  29 
ISET9*2 
1=0 

00  21  K= l » 66 » 2 
1=1  + 1 
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XOI I )=XYD5( K) 

ABSORP 

59 

21 

YO(I)=XY09(K+1) 

ABSORP 

OC 

1=0 

ABSORP 

61 

00  23  K=l,22,2 

ABSORP 

62 

1=1+1 

ABSORP 

63 

0Xim=0XY19(K> 

ABSORP 

69 

23 

OYl!  I )=DXY19!K+1) 

ABSORP 

65 

1=0 

ABSORP 

66 

00  25  K=l,92,2 

ABSGRP 

67 

1 = 1 + 1 

ABSORP 

68 

0X2(  I )=DXY29IK) 

ABSORP 

65 

25 

0Y21 I)=0XY29IK+1) 

ABSORP 

7C 

29 

CONTINUE 

ABSORP 

71 

G 1 = TBLUl  ( T *•  0X1,  DV1,  3*  11) 

ABSORP 

72 

G2  = TBLUl IT , 0X2,  0Y2,  3,  21) 

AbSOKP 

73 

HA  = ! RH** .9881)  * !10.**G2) 

ABSORP 

79 

SAl  = IT  ♦ A 5 9. 6 88 ) **0.6 7 86 7 A 

ABSORP 

75 

IF  ( NBM  - L)  2,  1,  3 

ABSORP 

76 

1 

OLF  = • 129C682 

ABSORP 

77 

FO  = 5198.5 

ABSORP 

78 

GC  TO  A 

ABSORP 

75 

2 

*RITE  (6,11)  NBR 

ABSORP 

8C 

3 

OLF  = .05 

ABSORP 

81 

FC  = 9966.8 

ABSORP 

82 

9 

DO  9 I = 1 ,NFB 

ABSORP 

83 

ALPHACl)  = C.C 

ABSORP 

89 

IF  (BCFI  1)1  5,  9,  5 

ABSORP 

85 

5 

F = ABSIBCF ( I ) ) 

ABSORP 

86 

X = ALDG10IF ) 

ABSORP 

87 

IF  IF  .GT.  FO)  X = X - OLF 

ABSORP 

88 

Al  = SAl  * ( 10.** (2.CA5  * X - 9.38939)) 

ABSORP 

89 

hMOMAX  = 10.** I.A9658  * X - 1.A397A) 

ABSORP 

90 

AMOMAX  = IC.**(.997  * X ♦ Gl) 

ABSORP 

51 

XX  = HA  / HMOMAX 

ABSORP 

92 

IF  I XX  - 6. A)  6,  7,  7 

ABSORP 

93 

6 

AMOL  = T8LL1IXX,  XO,  YD,  3,  33) 

ABSORP 

59 

GC  TO  8 

ABSORP 

95 

7 

AMOL  = .2 

ABSORP 

96 

e 

AMGL  = AMOL  * AMOMAX 

ABSORP 

97 

ALPHAU)  = Ai  + AMOL 

ABSORP 

58 

a 

CONT  INUfc 

ABSORr 

99 

C 

ABSORP 

100 

RETURN 

ABSORP 

101 

li 

FORMAT! //2X60HTROL8LE  IN  SUBROUTINE  ABSGRP*  NC  STANDARCS  D‘ 

INtD  F ABSORP 

102 

*CR  Nbta  =, 13/2X3 7HTH I R0  OCTAVE-BANO  TYPE  NOISE  ASSUMEC./) 

ABSORP 

103 

END 

ABSORP 

109 

30 
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i. 

SCBRGOT  INE 

APT 

AFT 

2 

c 

AUTHOR 

0.  F.  MfLDRUM 

AFT 

J 

c 

AFT 

4 

tv 

c 

PURPOSE 

VO  PREDICT 

AFT  FAN  NCI SE  FCK  THE  PHASE  B 

AFT 

U 

„:*! 

c 

NlSA-AMES 

FCCTPP I NT  CONTRACT  NAS2-6969. 

AFT 

C 

& 

c 

Af  T 

1 

fev 

c 

Mb THUG 

AS  OLSCRIbFD  IK  REFERENCE  1). 

AFT 

i: 

!?/ 

£*• 

c 

AFT 

9 

* &*  - 

c 

INPUTS 

VU  LABLEL 

CCMMCN  FANDAT 

AFT 

.C 

V 

c 

AFT 

1 1 

iS1,. 

€55 

V 

c 

NUMSTG 

NUMBER  CF  FAN  STAGES 

AFT 

i.2 

c 

l £ MRS  TG  £ 3 

AFT 

.3 

c 

UIMFT 

SR  I TO  FCF  INLET  FAN  NGISt 

AFT 

14 

S 

»£ 

c 

PREDICTION  IF  POSITIVE. 

AFT 

i i 

c 

NAFT 

SRITCH  FCP  AFT  FAN  NCISE 

AFT 

it 

? 

c 

PREDICTICN  IF  POSITIVE. 

AFT 

17 

*0* 

c 

IDOPP 

SRITCH  FCP  THE  CCPPLAR  SHIFT 

AFT 

lb 

5 

c 

FLIGHT  EFFECTS. 

AFT 

19 

|; 

c 

Q NC  FLIGHT  CFFtCTS  CR  CCPPLAR  SHIFT. 

AFT 

20 

c 

1 OCPPLAR  SHIFT  FOR  THE  FREQUENCY 

AFT 

21 

c 

CORRECT ION  ONLY. 

AHT 

22 

if* 

c 

2 CCPPLAR  SHIFT  FCK  THE  FREQUENCY 

AH  I 

23 

c 

AND  LEVEL  CORRECT ILN. 

AFT 

24 

» 

c 

NB ( I 1 

NUMBER  CF  FAN  6LA0ES  NCR  EACH  STAGE 

AFT 

2 5 

c 

RhbRE  1 £ I £ NOMSTG 

AFT 

2t 

\ 

c 

FPR ( l) 

FAN  PRESSURE  RATIO 

AFT 

27 

c 

L)  I AH  ( I ) 

FAN  IMCT  Cl  ARE  T ER  i INLET  ONLY)  FT 

AFT 

2B 

c 

RSS( 1) 

M1MMUN  RCTCR/STATGR  SPACING  PERCENT 

AFT 

2 5 

c 

AREA! 1 ) 

FAN  G I SCHARUE  AREA  (AFT  ONLY)  FT *FT 

AFT 

?.C 

c 

RN1 

ROTOR  SPEEC  RPM 

AFT 

31 

Ip 

KTS 

RELATIVE  TIP  MACH  NUMBER  OH  THE 

AFT 

3t 

r- 

FIRST  STAGE  K 1 THCUT  INLcT  GUIDl 

AFT 

->  > 

— 

c 

VANES  (1CV).  IF  LESS  THAN  1 

AFT 

3 ^ 

c 

IGV  RILL  EE  ASSURED  FCK  THE  FIRST 

AFT 

35 

c 

STACE  i INLET  FAN  UNLY). 

AFT 

3fc 

c 

CkTFPR 

FAN  PPESSLRE  RATIC  FCR  ThE 

AFT 

37 

c 

RELATIVE  TIP  MAUh  NUMBER  CF 

AHT 

3b 

c 

1.025  I INLET  HAN  CNLYI 

AFT 

39 

c 

ANGFAN 

ENGINE  INCLINATION  ANGLE 

AFT 

4C 

c 

AFT 

41 

c 

VIA  LABLEI. 

- COMMON  SRITCH 

AFT 

42 

c 

AFT 

43 

c 

NUMENG 

NUMBER  CF  NCISE  SOURCES  CF  THE  SAME 

AFT 

44 

c 

NOISE  OPE. 

AhT 

4b 

/ 

c 

AFT 

Ht 

** 

c 

VIA  LABLFC  CCMMCN  GCCMCN 

AFT 

47 

i 

c 

AFT 

4f 

f 

c 

NCF 

1/3  CCTAVE  CF  FULL  OCTAVE  SwITCH 

AFT 

49 

c 

CR  NUMBER  CF  FRELUENCY  BANGS  id  OR  24) 

AFT 

50 

»» 

c 

RE  TA  < 24 ) 

DIRECTIVITY  ANuLLS 

AFT 

51 

y„ 

c 

AFT 

: j< ' 

y 

c 

VIA  LA8LFD  CCMMCN  CPRAM 

AFT 

53 

{. 

c 

AFT 

54 

f 

c 

AMACH 

MACH  NUMBER  CF  THE  AIRCRAFT 

AFT 

55 

*5 

c 

NOBS 

Nl rBER  CF  CBScHVtP  POSITIONS 

AFT 

56 

F 

i; 

c 

AF7 

57 

c 

VIA  L ABLLL  CCMMCN  SUMSFL 

AFT 

5C 

1 


31 


OUTPUTS 


REFERENCES 


SSPL  CURRENT  TCTAL  PR^ICTEC  NOISE  FCR  NCF 

(8  OR  24)  FREGi  AESt  AT  NC8S  OBSERVER 
POSITIONS  FOR  ..  DIRECTIVITY  ANGLES. 

VIA  LA8LED  COMMON  ANGLE  (SET  UP  BY  SUBROUTINE  ANGLfc' 

PSI  17  DIRECIIVI IY  ANGLES  FOR  EACH  CF 

NOBS  OBSERVER  POSITIONS. 

PSIO  17  DIRECTIVITY  ANGLE  PROJECT  ICNS  FOR 

EACH  OF  NCBS  OBSERVER  POSITIONS 

BETA  ELEVATION  ANGLE  PROJECT  ION  FOR  EACH 

CF  NCBS  OBSERVER  POSITIONS. 

EACH  COMPONENT  IS  WRITTEN  CN  TAPE  CR  FILE  10 

FOR  EACH  CF  NCF  BANDS  FOR  EACH  CF  NCBS  OBSERVER 

POSI TIONS. 

VIA  LABLED  COMMON  SUMSPL 

SSPL  CURRENT  TCTAL  PRECICTEC  NOISE  FOR 

8 OR  24  FREQUENCIES,  AT  NCBS  OBSERVER 
POSITIONS  FUR  17  DIRECTIVITY  ANGLES. 

VIA  LABLED  CCMMCN  ANGLE  (SET  UP  BY  SUBROUTINE  ANGL'S 

PSI  17  OIRECTI VI TY  ANGLES  FOR  EACH  OF 

NUBS  OBSERVER  POSITIONS. 

PSIC  17  DIRECTIVITY  ANGLE  PROJECTIONS  FCR 

EACH  CF  NCBS  OBSERVER  PCalTICNS 

BETA  ELEVATION  ANGLE  PROJECTION  FCR  EACH 

CF  NOBS  OBSERVER  POSITIONS. 


R.  J.  SAXBY,  NASA-AMES  FOOTPRINT  CONTRACT 
NAS2-6969  FAN  NCISE  MODULE,  UN-NUMBERcD 
COORDINATION  SHEET,  GATED  19  JANUARY  W73. 


FUNCTION  SUBPRGM  CCS 


SUBROUTINES 


ANGLES 

wSHOUT 


ESHLCG 

UNIT 

SHLOSP 


PWRSUM 


FANNCS 


1 uur'  j f «-  iit  Jfiv  Ir^f  irMjftunjf  JtiurjjiLHijfirjuuit 

*PCT  AS ( IO),PLAS(  IC)  ,£LCH5  ,£DH5  ,R  l t>5  1 1 0)  , T IS  ( 10)  ,CFS,  FM5 

COMMON/ SW ITCH /N TYPE, I TYPE,NENG, ICOF, IPPT (7) *ICM 13) » NLCPT 
*,  INSEOWt  3),lNSHL0 

CONSTANTS  USED  IN  INTERNAL  CAlCLt A TI CNS 

COMMON  /GCONST/  IN  , 10  . ITl  . 1 T2  ,F  0 .F  I .F?  .F  3 .F4 -F9  . F„  . F7  : F« . a o . (-10, 


AFT 

59 

AFT 

6C 

AFT 

61 

AFT 

62 

AFT 

63 

AFT 

6 A 

AFT 

l * 

AFT 

6c 

AFT 

67 

AFT 

68 

AFT 

69 

AFT 

7C 

AFT 

71 

AFT 

72 

AFT 

73 

AF  I 

74 

AFT 

75 

AFT 

76 

AFT 

77 

AFT 

76 

AFT 

79 

AFT 

6C 

AFT 

ei 

AFT 

62 

AFT 

fc  3 

AFT 

84 

AFT 

65 

AFT 

86 

AFT 

87 

AFT 

8 

.FT 

8 

AFT 

; C 

AFT 

91 

AFT 

92 

AFT 

93 

Aft 

94 

A rf 

95 

AFT 

9c 

AFT 

97 

AFT 

96 

AFT 

99 

AFT 

ICC 

AFT 

101 

AFT 

162 

AFT 

103 

AFT 

1C4 

AFT 

1C5 

AFT 

1 Cl 

AFT 

107 

AFT 

ice 

AFT 

109 

AFT 

110 

AFT 

111 

AFT 

112 

AFT 

113 

AFT 

Hi 

ACT 

111. 
* A > 

32 


r 


T* 


* I0,il,l2,I3,I4,lS,l6,I7.I8,19,I10,Pl,P33,P5,P001,  AFT 

* tP  S , UNDEF ,BL,ICC,0PR,RPD,ETA(17),M1«FM1,I17,A,PI  AHT 

C AFT 

C VAR  IA6LE  SET  CALCULATED  IN  THE  PROGRAM  FRCCESSlNG  AFT 

C AFT 

COMMON  /GCOMCN/  NCF ,NK ,BCF<24 ) , T $PL ( 24 , 10 , 17 ) ,SPL1 ( 24,  17  ) , AFT 

*BGf( 25I,RFTA( 17) , SPL2 ( 17 ) , TGAGR < 24 ) , DGPSF < 17  ) AFT 

CCMMCN/SUMSPL/ SSPL (24, 1C,  17)  AFT 

COMMON /PNLO/PSPL (17,20) ,EPNL(5»lCi ,TEPNL(5,1C)  AFT 

C AFT 

C FREQUENCY  bANOS  UStD  BY  PROGRAM  AH 

C AFT 

COMMON  /GFRfcU/  CFREQ U4)  ,UFREC 1 25 ) .PFRECI24)  AFT 

C AFT 

C GENERAL  INPUT  PARAMETERS  AFT 

CCMMCN/ANGLE/PSI  <17,10  , PS l C ( 17 , 1C ) , BF T A ( 17 , 10)  AFT 

C AFT 

COMMON  /GPRAM/ALTP.ALTR, SLOPE  .AMACH.NCBS  , SID  1ST (10), ITENG, IUNIT  AFT 

* , ISPTRM, IATMUS,!AIR,UAIRAB(24) ,NTEMP  ,TEMP ( 50 ) ,T ALT  I 50)  AFT 

* ,NPRES,PK£S(50),PALT(50)  ,NHLMC,PALT  (50)  ,RhJMl  D(  50 ) , CTEM.P  A t- T 

* ,C?RES,CKHUMD, IEGA , I GOR.DTE MF, CPfitS , CFUM1 C, XKN.ND, FLD< 50 ) , AFT 

* ZNR(50),ZNI(50),LINECT,MAXLIF,iFAGC,BCG,TCG,FLR,AALr,cPF  AFT 

C AFT 

C AIRCRAFT-OBSERVER  GEOMETRY  CLTPLTS  AFT 

C AFT 

COMMON  /GEOMO/  AP Y ( 10 , 1 7 ) ,AP2 ( 1 C ,17) , PC  1 10 , 17)  , DPNDl 10 , 17) , AFT 

* B1(1C,17),B2(1C,17),TDS(17,1G),TPD(17,10),IRR(10,17)  AFT 

*,APP, TP,RHP,APO,TO,RHO,CA.CZ, (SP(17,10) ,CCV  AFT 

C AFT 

C CCNVFRSICN  CONSTANTS  AFT 

C AFT 

CCMMCN/GCCN VC/C (2,10)  ,SLDISX(IC)  AFT 

COMMON/ TM  SPL /iP 2(24, 17) ,Ib(2,3,13)  AFT 

CCMMCN/CRSPL  S/UUB (17) ,PSCR(17) ,UP81408)  ,NPSCR  AFT 

CCMMGN/HEA0/HIN(2Ci  ,HCCT  ■' '5 ) ,CFIM2U)  AFT 

C SHIELDING  DATA.  REQUIRED  " uR  PRIM  OCT  AFT 

COMMON/UNSHLO/USPLAI 15) ,FSI (19) ,NLSPL,INCSP  AFT 

C AFT 

C AFT 

C AFT 

ICN(5)=lCN<5)+i  AFT 

C AFT 

C AFT 

CELTA=ANGFAN*RPD  AFT 

CALL  MNGLES(NOBS,OELTA)  AFT 

C AFT 

C AFT 

C LOOP  FOR  THE  NUMBER  OF  OBSERVER  POSITIONS  AFT 

C AFT 

FBPF  = FLOAT ( NB ( 1 ) ) * RM  / 6C.  AFT 

C AFT 

C TEST  FOR  SHIELDING  AND  EXIT  TC  PRINT  OCT  WING  AFT 

C SHIELDING  OATA  ONCE  FCR  ALL  SIDELINE  POSITIONS  AFT 

IF ( INSHLD.NE»0)CALL  W SHOOT ( I PR U 7 ) , 1 0 , I TYPE ,USPL A, NUSPL , FS I , INUSP ) AFT 
40  DC  1CC0  M= 1 , NOBS  AFT 

CALL  L INCGRI SPZ  ( l, l) , I MA  5 »LGM5  » E LCH5 ,EDH5»NWL5»R1W5»TL5»  AFT 

*ILAY5,f  M5,I()P5,PSI(l,M)  ,NCF,eCF,pi  A5  ,CF5  , PCTA5  ,NTrs , AFT 


116 

117 

118 
115 
12G 
121 
122 

123 

124 

125 
Ut 

127 

128 
129 
13C 

131 

132 

133 

134 

135 
I3fc 

137 

138 
135 

140 

141 
1.42 
143 
1*,4 

145 

146 

147 

148 
145 
1 50 
1 5 1 

152 

153 

154 

155 

156 

157 

158 

159 
16C 
161 
162 

163 

164 
lo5 
166 
167 
lo8 

165 
1 7 C 

171 

172 
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o o <*■>  o o ooo  ooooo  ooooo 


H>i  I IIP  I I iliuthi  nPWiia  I I 


*TF5,D0PSF ,SPL2,ICCR5,IB{ 1.1*1 TYPE)  .LIN5.FBPF) 

AFT 

173 

AFT 

174 

CALL  2ER0(  SPLT  »4C8) 

AFT 

175 

AFT 

176 

AFT 

177 

AFT 

178 

CALCULATE  THE  AFT  FAN  NOISE  PREDICTION 

AFT 

179 

AFT 

160 

CALL  FANN0S( OOP  SF , PSI < L ,N) * SPLT (l, l ) , I DCP , NUPSTG ,0, l, NB, FPR, 

AFT 

181 

* OIAM,RSS.AREA,RN.l  ,RTSjCRTFPR,0.0.BPR5,NI5) 

AFT 

182 

AFT 

183 

AFT 

184 

45 

CONTINUE 

AFT 

185 

AFT 

186 

CONVERT  TO  A UNIT  OR  INDEXED  SPECTRA 

AFT 

167 

AFT 

186 

CALL  UNtT(l50.,17»SPLTIl,I)) 

AFT 

169 

£NG=NENG 

AFT 

190 

I F ( ENG.LE.O. 0 ) ENG  = l.C 

AFT 

151 

CO  50  J= l , 17 

AFT 

192 

DANGLE=PSlOIJtM) 

AFT 

193 

ELVANG=B£TA4 J,M» 

AFT 

194 

ENS-E  SHLOGI  DANGLE , EL VANG , ENG  ) 

AFT 

195 

00  50  K=  l , 24 

AFT 

156 

5C 

SPLTIK,  J)  = SPLTU,J)-ENS 

AFT 

197 

1 FCNCF .EQ .24 1 GQ  TO  30C 

AFT 

150 

AFT 

155 

CONVERT  1/J  OCTAVE  TO  FULL  OCTAVE 

AFT 

20C 

AFT 

201 

00  20C  J * 1 * 1 7 

AFT 

2Cc 

OC  200  K=  1 , 8 

AFT 

202 

IMP  ■=  0.0 

AFT 

204 

OG  100  L = 1 » 3 

AFT 

205 

JC  = 3+K  + L - 3 

AFT 

206 

100 

TKP  = PWRSLMITMP,  SPLTUC.Jl) 

AFT 

2C7 

200 

SPLT  t K»  J ) = TMP 

AFT 

208 

AFT 

205 

AFT 

210 

ADO  TO  CURRENT  TOTAL  AND  KRITE  CN  TAFE  10 

AFT 

211 

AFT 

212 

AFT 

213 

300 

OC  4CC  J = 1 »NCF 

AFT 

214 

DO  4CC  Ks It  17 

AFT 

215 

400 

SPLTI J,K)=SPLT( J,K)-SPZIJ»K) 

AFT 

2U 

AFT 

217 

I F ( I NSHLO.NE .0 ) CALL  SHLDSP I ARACH , ALT R , l SFT RR ,CZ , SLC 1ST , P, 

AFT 

218 

♦ APY, APZ»OOPSF,SPLT,NCF,BCF,SPZt PSI ,1  TYPE, ANGFAN.XX) 

AFT 

219 

AFT 

22C 

UC  4C5  J = ItNCF 

AFT 

221 

00  4C5  K= 1 » l 7 

AFT 

222 

405 

SSPLI  J,M,K)=PWRSUM(SSPH  J,R,K) t SPLTI J,K) J 

AFT 

223 

1FI  !PRT(7).NE. 7 » GC  TG  41C 

AFT 

224 

CALL  NUISOI IPKT (7) ,M tNN , 10 tCHI N , I IM T , SLC ISX IP ) ,PFREG.  SPLT  I 1,1), 

AFT 

225 

♦ NCF.ITYPE) 

AFT 

226 

1C 

CGNTINUE 

AFT 

227 

CC  3bC  JC= l , NCF 

AFT 

228 

00  360  KC= l » 1 7 

AFT 

229 

34 


36C  SPLT(JC»KC)  = SPLT(JC,KU— 7SPK  JC.P.KCi 

AFT 

2 30 

CALL  PNL  SUB ( SPL 7 < 1 , 1 ) ,PSPLI 1 » P ) , IPO ( 1, P J ifcPNL ( 1 » PI » SPL2 » 

AFT 

231 

*T£PNL(  l,M),NK ,3CG,  ICG, FLR.M, NCOS, ISRIM.U  J 

Af  7 

2 Jc 

IK  I PKT ( 3 ) .NF. J ) GC  7 C 1000 

APT 

2 2 3 

CALL  N0IS01IPRK3)  ,M  ,NK,  12  .CH  N.  11M  I.  SLCISX  4PJ  ,PF«EQ, 

AF7 

23A 

* SPL7(ltl)»NCF*IIYPE) 

Af  7 

235 

AH 

2 3fc 

AFT 

2 J 7 

AFT 

2 2fc 

1000  CCN7INUE 

AF7 

231 

RETURN 

Af  T 

210 

END 

AFT 

2A  1 

35 


SUBROUTINE  ANGLESINOB, DELTA) 


c 

c 

c 


c 

c 

c 


c 

c 


GENERAL  INPUT  PARAMETERS 


COMMON  /GPRAM/ALTP, ALTR, SLOPE, AMACH,NC8S,X< 10), NTENG, IUNIT 

* ,ISPTRM,lATMCS,lAIR»UAIRA8(24)»MEMP»TEMPl50)»TALr(5Q) 

* ,NPRES*PkES( 50)  »PALT(50)  ,NHLMD»RALT  (50)  ,RHUMI  U<  50  ) , CTfcMP 
,CPRtS,CRHUMD, IEGA, IGOR, 0 TEM P ,0P8£$ ,0HUM I C ,XKN, NO, FLO  I 50 ) , 

ZNR (50),ZNf(50),LIN£CT,PAXLIN,IPAGE,8CG,TCG,PLR,AALT,tPF 


AIRCRAFT-OBSERVER  GEOMETRY  CLTPLTS 

COMMON  /GEOMO/  Y( 1C , 17) ,Z ( 1C ,17 ) ,P<1G, 17) ,0PNC< 10, 17 ) , 
Bit  10, 17 ) , 821 1C, 17) »TDSH7»1Q) ,T PC (17, 10) ,IRR(10,L7) 
,APP, TP,RHPIAP0,T0,RH0,CA,CZ,TSP(17,10) ,ccv 


COMMON /ANGLE/  PSII 17,10) ,PSIC(17,10) ,BETA{17,10) 
CCMMON/SOELT /DI 

COMMON  / SR  I TcH/N  TYPE  »ITYP£,N£NG»ICCP»lPRT<7)»ICMli)»  NLGPT 


COMMON/ ICPATH/NCAS ,NCOF , NTYP ,IC,M1N,IARRAY(2) 


DATA  iGO/I/ 

1 F ( NT YP  .NE . 1 ) GO 

IGO=  1 


TO  2 


ANGLES 

ANGLES 

ANGLES 

ANGLES 

ANGLES 

ANGLES 

ANGLtS 

ANGLES 

angles 

angles 

ANGLES 
ANGLES 
ANGLtS 
ANGLtS 
ANCLES 
ANGLtS 
ANGLc  S 
ANGLES 
ANGLtS 
ANGLES 
ANGLES 
ANGLtS 
ANCLt  S 
ANGLtS 
ANGLE 6 
ANGLtS 
ANGLES 
ANGLtS 
ANCLcS 


2 

3 

A 

5 

6 
7 
fc 
9 

IC 
1 1 
12 

13 

14 

15 
It, 

17 

18 
15 
2C 
21 
22 

23 

24 

25 

27 

20 

29 

30 


1 

I F( 1TYPE.EU. 11) IGC  = 2 

ANGLtS 

31 

ft 

GO  TO  10 

ANGLtS 

32 

k 2 

CONTINUE 

ANGLtS 

33 

l 

I F ( I TYPE.NE.  1UGG  TO  4 

ANGLES 

34 

f 

I G0=  2 

ANGLtS 

35 

tl 

k- 

GC  TO  8 

ANGLtS 

J6 

<■ 

4 IF  I I GO  - 1 ) 8,8,5 

ANGLtS 

37 

4 5 

1G0=  1 

ANGLtS 

38 

* 

GC  TO  1C 

ANGLES 

39 

1 e 

CONTINUE 

ANGLtS 

4C 

IFIOT.EQ.OELTA)  GG  TO  2CC0 

ANGLtS 

41 

S 10 

0 I=Df L TA 

ANGLES 

42 

U 

CSOE=COS{OELTA) 

ANGLtS 

43 

1 

SNOE  = S IN  ( Otl  TA) 

ANGLES 

44 

00  ICC  1=1, NOB 

ANGLtS 

45 

d 

00  ICC  J = 1 , 1 7 

ANCLES 

46 

' 

V 

T E MP  1 =~  ( Y ( I * J 1 * C SD  E ♦ <Z( I,J)-ALTF 

)*SNCi.  I/ABSIPI  I,J)  ) 

ANGLtS 

47 

Ej 
; i 

1FI  TEMPI.  GT.i.l.  OR.  TEMPI.  LT.-U1) 

GL  TU  1000 

ANCLES 

46 

IF( TEMPI. GT.  1.0)  TEMP  1 = 1. C 

ANGLE  5 

49 

fe 

IF( TEMPI. LT.-l.C)  TEMPI  =-l.C 

ANGLES 

5G 

I- 

PSIU,  1 )=ACOS!  TEMP  11*5  7.296 

ANCLES 

Di 

| 

X TNA  = — { Y ( I,J)*OSOE+(/U,J)-ALTR)*SNOfl 

ANGLtS 

32 

IK  XTNA.NL-. 0.)GO  TO  5 C 

AN  GL  t S 

52 

| 

PSIOl  J,  i >=<). 

AN  GL  t"  S 

54 

GU  TO  60 

ANGLtS 

55 

1 50 

CONTINUE 

ANGLtS 

56 

f 

PSIOU,  I ) = A T AN2  ( AB  S 1 X II  ) ),XTNA) 

ANGLtS 

57 

r 

* *57.256 

ANGLtS 

58 

/■  l 


36 


| 


60 

CONTINUE 

ANGLES 

55 

A TEM=At3Sl  Y<  I » J )*SNDE- IZ ( I » J )-AL  IFMCSDE) 

ANGLtS 

60 

i 

h* 

I Ft  XI  Il.GT.O.lGO  TC  9C 

ANGLES 

61 

BETA(Jtl) =90» 

ANGLES 

62 

$ 

IFIATEM.GT.O.JGO  TO  ICO 

ANGLES 

63 

BETA1J, I )=C. 

ANGLES 

64 

1 

GC  TO  100 

ANGLtS 

65 

90 

CONTINUE 

ANGLtS 

66 

dETAtJt I )=ATAN2(ATEM|A6S 

ANGLtS 

67 

1 

f ( X( I J ) 1*57.296 

ANGLES 

68 

A 

10C 

CONTINUE 

ANGLES 

65 

s 

GO  TO  200C 

ANGLES 

7G 

& 

« 

1000 

wRITEI 6» 1500) 

ANGLES 

71 

4 

1500 

FORMAT 1 40H  THt  ARCCOS  FOR  PSI  IS  CUT  OF  RANGE 

) ANGLtS 

72 

STOP 

ANGLtS 

73 

| 

2000 

RETURN 

ANGLtS 

74 

ENO 

ANGLtS 

75 

A 

i 


SUBROUTINE  ATMQSPIHGI »PRESUR » TEMPER »RELHUMJ 

COMMON/ SW I TCH/NTYPE  »lTYP£»N£NG»IOCPtIPRT (7  J , l CN( 13 ) » NLOPT 


AUTHOR 


G.  A.  WEST 


PURPOSE 


TO  DETERMINE  THE  PRESSURE#  TEMPERATURE  AND  RELATIVE 
HUMIDITY  AT  A GIVEN  ALTITUDE  USING  EITHER  U.S. 
STANDARD  ATMOSPHERIC  CCNCITICNS  CR  USER  DEFINED 
ATMOSPHERE. 


DESCRIPTION  OF  VARIABLES 


VARIABLES  IN  COMMON  - SEE  MAIN  PROGRAM 


VARIABLES  IN  CALLING  SEQUENCE 


INPUT 


OUTPUT 


PRESUR 

TEMPER 

RELHUM 


- ALTITUDE 


- ATMOSPHERIC  PRESSURE- 

- TEMPERATURE 

- PERCENT  RELATIVE  HUMIDITY 


LOCAL  VARIABLES 

DUM  - WORKING  STORAGE  FOR  SORTING  ROUTINE 

K - WORKING  STORAGE  FOR  SORTING  ROUTINE 

NSHUMO  - NUMBER  OF  ENTRIES  IN  ISA  RELATIVE  HUMIDITY  TABLE 

NSPRES  - NUMBER  Of  ENTRIES  IN  ISA  PRESSURE  TABLE 

NSTEMP  - NUMBER  OF  ENTRIES  IN  ISA  TEMPERATURE  TABLE 

SAVNAM  - CONTAINS  THC  NAME  OF  THE  CALLING  ROUTINE 

SNAME  - CQNTAINS  THE  NAME  OF  THIS  ROUTINE 
SPALI  - TABLE  OF  ALTITUDES  FOR  ISA  PRESSURES  DEFINED  IN 
ARRAY  SPRES 

SPR6S  - IA6LE  OF  PRESSURES  FOR  ALTITUDES  DEFINED  IN 
ARRAY  SPALT 

SRALT  - TABLE  OF  ALTITUDES  FOR  ISA  RELATIVE  HUMIDITIES 
DEFINED  IN  ARRAY  SPHUMC 

SRHUMD  - TABLE  OF  RELATIVE  HUMIDITIES  FOR  ALTITUDES  DEFINED 
ARRAY  SKALI 

STALT  - TABLE  OF  ALTITUDFS  FOR  ISA  TEMPERATURES  DEFINED  IN 
ARRAY  STEMP 

STEMP  - TABLE  OF  TEMPERATURES  FOR  ALTITUDES  DEFINED  IN 
ARRAY  STALT 


GENERAL  INPUT  PARAMETERS 


COMMON  /GPRAM/ALTP.ALTR .SLOPE, AM ACH, NOUS, SIC  1ST (lu) ,11  ENG# IUNIT 

* ,ISPTRf*,  IATM0S,IAIR,LAIRAB(2A>  ,M  tMP  , TEMPI  50)  , T ALT  < 50) 

* , NPRES,PRES(  5CJ,PALT(t)0),NHLMIC»RALTii)U)  ,RHUMIC(  t>0)  ,CTEMP 
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* ,CPRES,CRHUMO,IEGA,1GOR,CTEMF,CPRE3,CHUMIC,XKN,NG,FLO(3U), 

* ZNR l 50)  ,ZNI{ 50) ,LINECT,MAXLI N,i PAGE  tSCG.TCG.FLR.AALT. EPF 

******  STANDARD  ATMOSPHERIC  TABLES  ******* 

DIMENSION  STALK  50) .STEMPI50)  ♦SPALTIbO)  , SPRES (50 ) ,SR ALT  I 50 ) , 
l SRHUMD  (50 

DATA  NSTfcMP  » NSPRfcS  ,NSHUM0/2 1 . 2 1 » 7/ 

DATA  STALJ/  O.C,  2C0C.0,  400C.C,  6000. G,  8000.0,10000.0, 
l 12000. C,14CCG.0,16CC0.C, l 8000.0,20000. 0,22000.0, 

? 240uC.C,26CCC.C,2bCCC.C*->CC00.0 ,32000.0, 3400  0.0, 

3 36000. C, 36000.0,4 COCO. C, 2 9 *0.0/ 

DATA  STEMP/5 16.688, 507.99,504.43,497.30,490.17,483.04, 

1 475.92,468.80,461.67,454.55,447.43,440.32, 

2 433.20, 426. 08,416.97  , 411. So, 4 04.  75, 397.o4, 

3 390. 53, 369. 99, 38S. 99, 29*0.0/ 

DATA  SPAL1/  C.C,  2C0C.0,  40CC.C,  6000.0,  8000.0,10000.0, 

1 12C0C. 0,14000. 0,16000.0, 18000. 0,20000. 0,22000.0, 

2 24000. 0,26 CCC. 0,2 8 CCC. 0,30000.0 ,32000 .0,34000.0, 

3 36O00.C,38C00.Q,4C0CC.C, 29*0.0/ 

DATA  SPUES/ 14. 696, 13. 664, 12. 692 ,11. 7 78, 1C. 9 17, 10. 108, 9. i486, 

1 8. 6361,7.9688,7.3438 ,6. 7586 ,6. 2 1l4 , 5. 7025 , 5 . 2272, 

2 4.7844, 4.3726,3.9901 ,3. t352, 3. 30o4, 3. 0044, 2. 7300, 

3 29*0.0/ 

DATA  SRALT/  C.C,  656 1 . 6, 13 12 3.2 ,196d4. 8 ,2624b .4 , 32808 .0, 

1 39369.6,43*0. C/ 

DATA  SRHUMD/ 70. 0,5 7. 0,44. 0,38. 0,34. 0,23. 0,13.0,43*0.0/ 

HAS  USC R DEFINED  HIS  OWN 
ATMOSPHERIC  CCNLITICNS 

IF  ( IATMOS  .EO.  2)  GO  TC  10 

IF  ( IATMOS  .EO.  3)  GC  TC  20 

IF  I IATMCS  .cW.  4}  GO  TC  30 

USE  U.b.  STANDARD  CCNDIIILNS 
OBTAIN  STANDARD  PRESSURE 
5 PRESUR  = TBLUKHGT, SPALT,$P«ES, l ,NSP«ESJ 

OBTAIN  STANDARD  TEMPERATURE 
TEMPER  = TbLUKHGT  »STALT  ,STEMP»  1 »NST£-MP) 

OBTAIN  STANDARD  HELATIVc 
HUMILITY 

KELHOM  = TBLUKHGT, SRALT, SRHUMC, 2, NSHUMD) 

CLES  USFR  WISH  TO  ACC  CLNSTANT 
GRADIENTS  IC  U.S.  STANOAKb 
CLNDI T ICNS 

IF  (IATMOS  .EO.  C)  GO  TC  40 


PRESUR  = PRESUR  ♦ DPRES 
TEMPER  = TEMPER  ♦ D TEMP 
R EL  HUM  = P6LHUM  ♦ OHCMID 
GO  To  40 


ATMOSPHERIC  CCNOITICNS  DEFINED 
BY  USER 


10  IF  (NPRES  .LE.  50  GO  TC  11 
CALL  ERROR ( I TYPE  ,1,1) 


IS  NPRES  nITHIN  RANGE 
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, j'i! 


GG  TO  16 

ATMOSP 

116 

11 

IF  INPRES  . GE.  2)  GO  TO  12 

ATMCSP 

117 

CALL  ERROR! I TYPE , 1 »2 ) 

ATMOSP 

118 

GO  TO  16 

ATMOSP 

11S 

c 

SORT  PRESSURES  TO  INSURE  THAT 

ATMOSP 

I2U 

c 

THEY  ARE  IN  ASCENDING  ORDER 

ATMOSP 

121 

c 

OF  ALTITUDE 

ATMOSP 

122 

12 

CALL  SORTXIP ALT* PRES »NPRES) 

ATMOSP 

) 23 

C 

CBTAIN  PRESSURE 

ATMOSP 

124 

PRESUR  = T8L  L l ( HGT  tPALT  , PRES?1;NFRES) 

ATMOSP 

125 

C 

IS  NTfcKR  WITHIN  RANGE 

ATMOSP 

126 

IF  ( NTEMP  .LE.  50  GC  TC  13 

ATMOSP 

U7 

CALL  ERROR! I TYPE, 1 ,3) 

ATMOSP 

128 

GC  TO  16 

ATMOSP 

129 

13 

IF  INTEMP  .GE.  2)  GO  TO  14 

ATMCSP 

13C 

CALL  ERR0R!ITYPE,1,4) 

ATMOSP 

131 

GL  TO  16 

ATMOSP 

132 

C 

SORT  TEMPERATURES  TO  INSURE  I HAT 

ATMOS' 

133 

C 

THEY  ARE  IN  ASCENDING  GKOER  uF 

ATMOSP 

134 

c 

ALTITUDE 

ATMOSP 

135 

14 

CALL  SORTXI TALT, TEMP, NTEMP) 

ATMCSP 

136 

c 

OBTAIN  TEMPERATURE 

ATMOSP 

137 

TEMPER  = TBLUllHGf,TALT,TEMP,l,NTEMP) 

ATMOSP 

lie 

c 

IS  NHUMID  WITHIN  RANGE 

ATMUSP 

139 

IF  (NHUMIO  .LE.  50)  GC  TC  15 

ATMOSP 

140 

CALL  ERROR! ITYPE,1»5) 

ATMOSP 

141 

GC  TO  16 

ATMCSP 

142 

15 

IF  (NHOHID  .GE.  2)  GO  TG  17 

ATMOSP 

143 

CALL  ERROR! I 1YPE,1,6) 

ATMOSP 

144 

It 

I ATMOS  = 0 

ATMOSP 

145 

GG  TG  5 

ATMOSP 

146 

c 

SCPT  RELATIVE  HUMIDITITES  TO 

ATMGSP 

147 

c 

INSURE  THAT  THEY  ARE  IN 

ATMOSP 

14E 

c 

ASCENDING  LRDER  CF  ALTITUDE 

ATMOSP 

149 

17 

CALI.  SOR TX( RAL T,RHLMID,NHUMIC} 

ATMOSP 

15C 

C 

CBTAIN  RELATIVE  HUMIDITY 

ATMUSP 

151 

RELHUM  = TBLLUHGTtRALTfRHLMDtltNHUMID) 

ATMGSP 

152 

GG  TO  40 

ATMCSP 

153 

c 

ATMCSP 

154 

c 

USE  STANCAPC  DAY  CONDITIONS  FOR 

ATMCSP 

155 

c 

HCMCGENECUS  ATMOSPhEKE  AS 

ATMUSP 

156 

c 

DEFINED  BY  FEDERAL  AVIATION 

ATMGSP 

157 

c 

REGULATION 

ATMUSP 

156 

20 

PRESUR  » 14.696 

ATMOSP 

159 

TEMPER  = 513. 6Be 

ATMOSP 

16C 

RELHUM  = 70.0 

ATMOSP 

1 6 1 

GC  TO  4 C 

ATMOSP 

162 

c 

USE  HCMCGENECUS  ATMOSPHERE 

ATMOSP 

162 

c 

AS  DEFINED  8Y  USER 

ATMGSP 

164 

3C 

PRESUR  = CPRES 

ATMOSP 

165 

TEMPER  = CTEMP 

ATMOSP 

166 

RELHUM  = CKHUMO 

ATMOSP 

167 

c 

ATMCSP 

168 

40 

CGNTINUE 

ATMCSP 

169 

RETURN 

ATMOSP 

17C 

ENO 

ATMOSP 

171 

40 


SUBROUTINE  AVGALF < 2 1 , 2N , NBW ,NFB  , fiCF, ALF A , I ATMCS I AVGALF 

c AVGALF 

C PURPOSE  TO  CALCULATE  IHE  AVERAGE  AIR  AESCRBPTI CN  COEFF  ICiENT  AVGAlF 

C AVGALF 

C AUTHOR  C.  G.  DUNN  AVGALF 

C AVGALF 

C AVGAlF 

DIMENSION  BCF ( I ) » ALFA ( 1 ) AVGALF 

DIMENSION  SUM ( 31 ) AVGALF 

DATA  TC/55S.6fifi/  AVGALF 

DATA  SNAMfc/8hAVGALF  / AVGALF 

C AVGAlF 

DZ  = 2N  - 21  AVGAlF 

CALL  ATMOSP(/l,OUM,Tl,RHlJ  aVGALF 

Tl  - T1  - TO  AVGALF 

CALL  AbSCRPIRHl, Tl,NBfc,NPB, BCF, ALFA)  aVGALF 

C TtST  FLP  HL/'CGENtCUS  ATMOSPHERt  AVCAlF 


IF  I IATMCS  .GE.  3)  G C IC  6 AVGALF 

If  (02)  P.f  6,  2 AVGALF 

2 CALL  ATMLiSPl2N,DCM,TN,RHM  AVGAlF 

TN  = TN  - TO  AVGALF 

CALL  AdSORP ( RFlN  *TN»NOH»NFB»BCFtSLF)  AVGALF 

N = 0.5  * AMAXl (ABS( TN-Tll  + AB S IRHN— KH l ) ,20. U ) AVGALF 

M = N-l  AVGALF 

FM  = M AVGAlF 

02  = D2/FM  AVGAlF 


OG  3 J=  1 , NFB 

SGM(J)  - C.5  v ( SUM  ( J ) ♦ ALFA  U!  I 
3 CGNTINUt 
OG  A 1=2, M 

2 = 21  + 02  * PLCAU1-1) 

CALL  ATMO  SP(2»UGM,T,KH) 

T = T - TO 

CALL  AbSGRP(KH,T,NBV»,N!B,BCF,ALf  A I 
OC  A J = 1 , NFb 

5CM  ( J ) = SgM  ( ) ♦ ALFA(.J) 

A CGNTINUt 
OC  5 1=1, NFb 
ALFA ( I 1 = SuM ( I )/FM 
5 CONUNLE 
6 LCNT1NUE 

kL-TGRN 


AVGAlF 
AVGAl F 
AVGAlF 
AVGALF 
AVGALF 
AVGALF 
AVGAlF 
AVGALF 
AVGALF 
AVGAlF 
AVGALF 
AVGAL  F 
AVGALF 
AVGALF 
AVGAlF 
AVGALF 


tNL) 


AVGAl  F 


2 

j 

5 

7 
b 
5 
lO 
1 1 
i 2 
1 3 

1 A 

15 

16 
17 
It 
15 
20 
<;! 
22 
c J 

25 

25 

26 
27 

2 8 
20 
3c 
3 1 
3 2 
32 
3 5 
35 
2c 

37 

38 
35 
5C 

51 

52 
5 2 
5 ‘i 
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SUBROUTINE  BESJ(X,  N,  BJ,  D,  IEPI 

BESJ 

2 

BESJ 

i 

PURPOSE- 

BESJ 

4 

CCMPUTE  THE  J BESSEL  FUNCTION  FCR  A GIVEN  ARGUMENT  ANC 

ORDER. 

BESJ 

a 

BESJ 

6 

USAGE- 

BESJ 

7 

CALL  BESJIX,  N,  BJ,  D,  IER) 

BESJ 

8 

bt-SJ 

<5 

DESCRIPTION  OF  PARAMETEKS- 

bESJ 

10 

X -THE  ARGUMENT  OF  THE  J BESSEL  FUNCTION  DESIRED 

BESJ 

11 

N -THE  CROER  OF  THE  J BESSEL  FUNCTION  DESIRED 

BESJ 

12 

BJ  -THE  RESULTANT  J BESSEL  FUNCTION 

BESJ 

13 

D -THE  REQUIRED  ACCURACY-  SCME  FRACTION  CF  THE  J BESSEL  FUNCTION 

BESJ 

14 

I ER-RESULTANT  ERROR  CCCE  WHERE 

BESJ 

15 

IER  = 0 ...  NO  ERROR 

BESJ 

lfc 

IER  = 1 ...  REQUIRED  ACCURACY  NCT  OBTAINED 

BESJ 

17 

IER  = 2 ...  RANGE  CF  N COMPARED  TO  X NCT  CORRECT  (SEE  REMARKS) 

BESJ 

18 

BESJ 

IS 

REMARKS- 

BESJ 

20 

MAGN1TUDE  OF  INI  MUST  BE  LESS  THAN 

BESJ 

2 1 

20  ♦ ABS(X)  * 110  - ABSCX)  / 3)  ...  FCR  ABS(X)  .LE. 

15 

BESJ 

2a 

90  ♦ «BS(X)  / 2 ...  FCH  ABSIXI  .GT. 

15 

BESJ 

23 

BfcSJ 

SUBPROGRAMS  REQUIRED-  BfcSJ 

NONE  BESJ 

8£SJ 

METHOD-  BESJ 

RECURRENCE  RELATION  TECHNIQUE  DESCRlfcEO  BY  H.  GCLCST t IN  AND  BESJ 

K.M.  THALER, /RECURRENCE  IECHMCUES  FCR  THE  CALCULATION  Of  BESJ 

BESSEL  HUNCTIunS/,  M.T.A.C. ,V13,PP  1C2-108  ANC  I. A.  STEGUN  BESJ 

AND  M.  ABRAMOkITZ, /GENERATION  CF  BESSEL  FUNCTIONS  ON  HIGh  BESJ 

SPEED  COMPUTERS/,  M. T.A.C. , VI I , IS5 7,fP  255-257.  BESJ 

BfcSJ 

REFERENCE-  bESJ 

THE  FURTRAN  PROGRAM  WAS  TAKEN  FRCP  ...  BESJ 

IBM, /SYSTEM  3 60  SCIENTIFIC  SUBROUTINE  PACKAGE  ( 3o0A-CM-03x ) bESJ 


VERSION  III  PROGRAMMERS  MANUAL/ , IBM  APPLICATIlN  PROGRAM  H20-0205-3  BESJ 


24 

25 

26 

27 

28 
as 
3C 

31 

32 

33 

34 

35 
3fc 
37 

36 


BESJ  39 


» • • i 

» • • • 

IER 

= C 

BESJ 

BfSJ 

4 C 

41 

42 

BJ 

= C. 

BESJ 

h2 

XT 

= X 

BESJ 

44 

X 

= AbSIXT) 

BfcSJ 

45 

NT 

= N 

BESJ 

4 to 

N 

= IAbSINT  ) 

BfcSJ 

47 

IS 

= MOD ( N , 2) 

BESJ 

48 

SS 

= 1 . 

BfcSJ 

49 

IF 

(XT)  20,  1C,  3C 

BfcSJ 

50 

10 

If 

(NT)  210,  15,  2 1 C 

BfcSJ 

51 

15 

BJ 

= SS 

BfcSJ 

52 

GG 

TO  210 

BfcSJ 

53 

2C 

If 

US)  25,  31,  25 

BESJ 

25 

SS 

= -SS 

BESJ 

03 

GC 

TO  21 

BESJ 

5c 

3C 

IF 

(NT)  20,  31,  31 

btSJ 

57 

31 

IF 

( X - 15.  1 32,  32  , 34 

BESJ 

58 

42 


non  non 


•»  ,v 


32 

NTEST 

= 20.  ♦ 

X * (10.  - .3333333 

GC  TO 

36 

34 

NTEST 

= 90.  ♦ 

.5  * X 

36 

IF  (N 

- NTEST) 

4C  • 38,  38 

38 

IER  = 

2 

GO  TO 

210 

4 C 

N 1 = 

N + l 

6PR0V 

= 0. 

C COMPOTE  STARTING  VALUE  Of-  M 
IP  (X  - 5.)  5C,  6C t 6C 

50  MA  ^ X + 6. 

GC  TO  70 

6C  MA  = 1.4  * X ♦ 6C.  / X 
7C  MB  = N ♦ 2 *■  IF  I X { X ) X 4 
MZERO  = MAXOIMA,  MB) 


SET  UPPER  LIMIT  OF  M 
MMAX  = NTEST 

ICC  OC  19C  M = MZERO, MMAX, 3 
SET  F(M ) , FIM-I) 


PM  l 

= l.CE-28 

PM 

= 0. 

ALPHA  = 0. 

If 

( MUl) ( M,  21)  12C, 

1 I G,  12C 

I1C 

JT 

= -1 

GC 

TU  13C 

12C 

JT 

* 1 

13C 

M2 

= M - 2 

CC 

16C  K = 1 ,M2 

MK 

= M - K 

BMK 

= FLOAT l MK+MK ) * 

FM1  / X - FM 

FM 

= f M 1 

PM  1 

= BMK 

IF 

(MK  - N - l)  15C, 

140,  15C 

140 

BJ 

= BMK 

15C 

JT 

= -JT 

S 

= JT  ♦ 1 

160 

ALPHA  = ALPHA  ♦ BMK 

* i 

BMK 

= ( Fv 1+PM1 ) / X 

- FM 

IF 

(N)  ICO,  17C,  180 

17C 

8 J 

= BMK 

18C 

ALPHA  = ALPHA  ♦ eMK 

3J 

= BJ  / ALPHA 

IP 

( AGS( BJ  - bPREV)  - 

ABSlO  * BJ) ) 

19C 

BPREV  = BJ 

IER 

= 1 

2CC 

BJ 

= SS  * B J 

2 1C 

N 

= NT 

X 

» XT 

RETURN 


200,  200,  190 


SLBROLTINE  BLwFLP 
COMMON  STORAGE 
DIMENSION  PR  7 ( 1 ) 

CCMMON/BLUWIN/PR7,TT7,  AN7 ,ON7 ,F ANG7, CELT? ,OL7 ,H07 , IC0R7 
COMMON  /GCCMGN/  NCF  , NK  , BCF  ( 24 i ,7  SPU  24 , 10 , 17 1 »SPt_T  l 24 , 17 ) * 
*BuF(25),RETA(l7) ,SPL2(17I , TG AGR ( 24 ) .DCPSF <17  I 

GENERAL  INPUT  PARAMETERS 

COMMON  /GPRAM/ ALTPjALTK,  SLOPE  , AM  ACn«iNCB3  «5LD  I ST  i 10)  , NT ENG,  IUMT 

* , ISPTRM* IATM0S»IAIR,0AIKAB(24) ,NT£MF .TEMPI  50) ,T ALT ( 30) 

* » NPRES»PRES( 50>,PALT(50) , NHL  MID, PALI  1501 ,RHuMID( 501 »CTEMP 

* ,CPRES.CRHUMO, IBGA.lGDR.DTENf .CPRtS ,DHUMl D ,XKN, NC, FLD< 30) , 

* ZNR  ( 30 ) » ZN I ( 30 ) »L INEC  T , MAXL I N » I F AGE ,BCC » TCG  »FLk , AALT , EPF 
AIRCRAFT-OBSERVER  GFOMETRY  CLTPLTS 

COMMON  /GEOMO/  AP  Y(10 , 171  ,APZ  UO  , 17)  , PC  ( 10 , 17»  , CPNDUO  , 171  , 

» Bl(  10, 17), B2(  10,17)  ,TDS(  17,10)  ,TPO(  17,10.1  RRUO,  17) 
*,APP,TP,RHP,APO,TC,RHC,CA,CZ,ISF (17,10) »CCV 
COMMON/ SW ITCH/NTYPEtITYPtiNENG»ICCP»IPRT (7) , I CM  13) , NLCPT 
CGMM0N/SLMSPL/SSPL(24,10,17) 

COMMON/ PNLO/PSPL (17*20 ,EPNL(5 , IC) ,TEPNL (5 , 10) 

COMMON /ANGLE  /PS  I (17»1C),PSIC(17»1C),8ETA(17,10) 

COMMON/HE  AO/H  INI  20  ) ,HCLT  (20)  ,ChTM20) 

COMMON /Gr RtQ /CFREQ  (24)  ,UFREC<25)  ,PF«EU24) 

UCMM0N/GCCNVC/C(2,10)  tSLCISXUO) 

COMMON /TMSPL/SPZ (24*17) ,18(2,3,13) 

CLMMcN/CRSPL S/DOB ( 17) ,PSCR( 17 ) ,CFb(4C8) ,NPSCR 

PR  7 PRESSURE  RATIO 

TT7  TOTAL  TEMPERATURE  ( P) 

an;  nozzle  area  in  $l.  ft. 

CN  7 NOZZLE  DIAMETER  (FT.) 

FANG 7 FLAP  ANGLE  l DEG.) 

DEL  T 7 ENGINE  ATTITUDE  ANCLE 

OL  7 DIMENSIONLESS  DISTANCE  BETWEEN  NOZZLE  ANC  TARGET  PC! 

HU'7  OIMENSICNLESS  K1CFT  I.E.,  DISTANCE  BETWEtN  NUZZLE 

CENTERLINC  ANO  MEAN  CHLRO  LINE 

I OCR  7 CONFIGURATION  CORRECTIONS  INCICATCP 

DIMENSION  FT1(9),SPL(S>  ,XDM  6),VXVC(  6 ) , VP  A (9 ) , FLA  ( 3 ) , FN3I  9 ) , 

* FTH4(  I4>,FVJ4(3),FN4(14,3,3) 

DIMENSION  PT3i5),PvJ3(5) 

DIMENSION  AZ3(2)  ,FN5(  19,3,2)  ,FTh5(  19)  #FTh6U0)  ,FLOLhR{<i)  ,FNb<  10,  c) 
D IMtNS ICNFU7I 9) ,FN7(9) 

DIMENSION  STN1I25)  ,FN8(25) 

OATA  k«0/. Cl  7 .53/, DPK/37. 2957/ 

DATA  K/53.345',G/32. 1 74/ ,PI /3 . 14 159/ 

DATA  FT1/8CG.  ,9CC.  , 1GCC.  ,12CC. , I4C0. ,loOO. , 1 80D . ,2000 ., 2500./ 

OATA  SP  l /l. 38  2, 1.376, 1.369, 1.35  7,1.344 ,1.33  3,1.324, 1.316, 1.302/ 
DATA  XON/5. , 5.3 ,6.  ,6.5,7. , 7.2 / 

OATA  VXVU/1. , -55, .98, .57, .95, .93/ 

CATA  FLA/O.,  13. ,45./ 

DATA  FN 3/ 153. i,  157. 4, 16C., 162. 6, 16 5.  1 , 16 7. 2, 169. 2, 


ICCR7 

DIMENSION  FT  1 
* F TH4 ( 14)  ,FVJ 
DIMENSION  PT  3 
DIMENSION  AZ 3 
D IMtNS ICNFU  7 ( 
DIMENSION  STN 
OATA  WU0/.C17 
DATA  R/53. 345 
DATA  FT1/8CG. 
OATA  SPl/1.36 
DATA  XON/5. , 5 
OATA  VXVU/1., 
CATA  FLA/O.,  I 
DATA  PN3/153. 
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9 

bl*:-‘  P 

1 1, 

BLwFLP 

1 I 

BLwFLP 

12 

bLwFLP 

13 

bLwFLP 

14 

BLWFLP 

15 

BLWFLP 

U 

bLWF«.P 

17 

BLWFLP 

18 

dLWfLP 

15 

BLWFlP 

tG 

clwFlP 

21 

bLwP..  P 

22 

bLwFLP 

22 

BL  wFLP 

24 
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31 

bL  wFLP 

32 

bLwFLP 

33 

bLwFLP 

34 

BLwFlP 

35 

bLwFLP 

3c 

cL  «Fl  P 

37 

BLwFLP 

38 

BLWFLP 

35 

bLWFLP 

4C 

BLwFLP 

41 

BLbfLP 

42 

BLWFLP 

43 

BLWFLP 

44 

BLwFlP 

45 

BLWFlP 

4o 

BLWFLP 

47 

BLWFLP 

48 

BLWFLP 

45 

BLWFLP 

5C 

BLWFLP 

5 l 

BLWFLP 

32 

BLWFLP 

33 

BLwr-LP 

34 

BLWFLP 

53 

BLWFLP 

36 

BLWFl  P 

57 

BLWrLP 

58 
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i 


ft  : 


M t 


c 


C2. 


C3. 

C 4. 


* 171.2* 172.8/  BLWFLP 

BLwFLP 

OATA  PT3/553.,495.,474.,439.,404./  BLWFLP 

OATA  PVJ3/426., 624., 758. ,925.  ,1126./  BLWFLP 

OATA  FTH4/C. « 30. ,6C. ,8C. ,90. , ICO. , 110. , 120. , 130. , 140. , 150 . , bLwFLP 

* 163., 170. ,180./  BLWFlP 

OATA  TVJ 4 /2.795£8»2.9 6614*3.05115/  BLWFLP 

OATA  FN4  /-5.,-3.,-.5,0.,0.,-.3,-.5,-.3,-l.,-l.^,-1.7,  BL/.FLP 

* -2.?, -3. ,-3.5,  BIWFLP 

2 ■*i.,~2.,".3,C.,~*>  , .6  , 1.  ,—  1.4,— 1.6,— 2.4,— 3.2,  — 5.  ,—4.7,  —3*2,  BL  WFl  P 

3 — 3.»0«,  l.,0.,—  l«  ,-l.B ,— 3- 6, -5. 7, -6. 5, -5., -.8,  *2,—.!,  — .2,  Blh Ti. P 

4 —4.,— 1.5  .5,0. ,.5, .5, .8,1.  ,1.3, 2.  ,2. 7, 3.  ,2. 3, 2., 

5 — 2. 6 , — l . 6 . 6 , C . , . 2 , C. , . 2 , 1 . , 2 . , 2 « 2 , 1 . 6 , 0. ,— .4 , U • , BLWFLP 

6 -4.5,— .J,.l»0.*— .l»-.3»—  3.1, -5. 6, -7. 1,-7. 6,— «6,.6,.l,-.l,  t‘L  »FLP 

7 .4,.6,.l,0.,.l,.3t.4,.5,1.5,2.£,4.,4.2,4«4«4.*  tiLWMP 

8 — 2. 5,-. 8, 0. , C. ,0. , *5, .7,1. ,1.5, 2. 1,2. B,1.3,  — .4, .2,  uLWFlP 

9 — 5.4, — 1.1*,  — .2,0.,— .6,  .4,— 2.2,— 4.8,  — 0.2,  — 6.9,—  1.,  .6,  .8,  .2/ 

OATA  AZ  5/0.  , 90.  / BLisFlP 

OATA  FTH5/0. , 10. ,20. ,20. ,40. ,50. ,6C. ,7C . ,80. ,90 . , 100 . , 1 10 . , 120. , BL  aFlP 

* 130.,  140.  ,150.  ,160.  *17C»»litC./  BLwFLP 

OATA  FN 5 /57  <=0.,  BL*fLP 

1 3. 5, 4. 3, 5. 2, 5.  8, 6. 9, 6.  5, 6. 8 ,6., 5. 2, 6. 8,5., 5. B, 5. 4, 4. ,2. 4,  1.8,  BLWfLP 

* 1.6,  1.3, 2. 6,  bl.  ,iFlP 

2 2. 8, 4. 5,4. £,5.6,6. 2, 6. 3, 7. 2, 7. 4, 7. 6,8. 2, 8.5, 7. 4, 6. ,6. 4, 6.8, 4.  4,  iilviFlP 

* 2. 5, 2. 5, 3. 7,  faLWFi-P 

3 3.3, 6. 2, 6.2, 7.  ,5.5, 9.  2,10.3,11.3,11. 5,13. 4,  II  .9 ,8. 4, 4. 6,— .5,  — 1.6,  t>L  ,.Fl  P 

* 3. 6, 4. 9, 2. o,2. 8/  BLWri.P 

OATA  KL/.37/,HK/.C78/,0K/.052/  BLwFLP 

OATA  FTH6/C.,3C. ,6C. ,fC. ,9C. , 1 CO.  , 120. , 150.  ,170. , 180./  BLwFLP 

OATA  fLDLFR/  .12,1.0  / BLwFLP 

LATA  FM6/2. 3,1. 6,2.8, 3. 9, 4.1,4. 4, 4 .4 ,4. 1,3. 9, 3.1,10*0.0  / BLtas'LP 

OATA  Fl.  7/0. ,5.,  10.  ,15., 20.  ,30.  ,4C.  ,45.  ,67.5/  BLWFL^ 

OATA  FN7/. 48, .61, .55, .6, .665, .£,.93, 1.0, 1.31/  BLwfLP 

OATA  VF'A/2. o92:2.771  ,2. 617, 2. 866, 2. 914, 2. 955, 2. 993, 3. 028,3. OoO  / BLWFLP 
OATA  STN8/-1. 8239, -1.4015,-1. 301 »- 1.22 2 ,-1.155,-1. 06 7,-1.046, -l.»  BuhFL? 

* -. 824,-. 699,-. 6C2,~. 523, -.456  , -.398  , -.301, -.222, -.  155,  BLhfLP 

* — .097, -.046, C.  ,.176, .301  , .477,. 659, .778  / BLWfLP 

OATA  FN8/-60 . ,-40. ,-29.6,-25. ,~22. ,-19.7,-lB . ,-lo.6 , - U .4,- 10. 6,  BLwFlP 

* -9.7,  BLWFLP 

* -9. 2,-9., -9. 1, -9. 6, -1C.  3,- 10.8,-11.3,-11.9,-12.4,-14.7,-16.4,  BLWFLP 

* -19. ,-22. 5, -23. 7 / BLWFLP 

OATA  0 1/3CC  l ) / BLWFlP 

CATA  C25/5HC  1-4) / BIWFlP 

LATA  C1/3H0  H/,CII/4HCI  I >/,C  I i I/5FCI  I 1 > / ,C  l V/4HC  IV > / , BLWFf.P 

* CV/JFCV)/ »CfcNf>/4HC£ND/  BLwFcP 

SP7=APG*i4«.  BLWfLP 


CALCOLATt  0ENSITY 
I ON ( 7 ) = 1 C N ( 71+1 
0£LTA=DELT7*. 01745 
CALL  ANGLES! NUBS, DELTA) 

GAMA=TBl.01<  TT7,FT1,SP1,1 ,9) 

RI-R*TT7 

Rt-GS  = (SP7  / ft  T ) * PR  7 (1)**  1 (GAMA-1. )/GAMA) 
VALCULATE  JET  VELOCITY  VJ 

VJ  = SURTU 2.*G*RT*GAMA/(GAPA— l.) )*(l.-FR7(  l)**C( 1. 
CALCULATE  JET  MACH  NUMBER  AM J 

AMJ  = S0RU12./(GAMA-U))*(PP7(l)**UGAMA-l.)/GAMA) 
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BLWFLP 

- 1.))  til.WFLP 
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TS  = T T 7 * PR  7 ( 11**  ( < i»— GAMA ) /G APA J 

BLWFLP 

1 It 

ALPHA=OELTA-ATAN< SLOPE} 

BLWFLP 

117 

C5  • 

bLWFLP 

lib 

VA=CZ*AMACH 

bL  Vi  FL  P 

1 19 

IF(0L7.GT.5. )G0  TO  10 

bLWFLP 

12C 

O 

• 

*— < 
II 

“> 

> 

X 

> 

bLWFLP 

12  J 

GC  TO  3C 

BLWFLP 

122 

10 

IFI0L7.GT.?.4)G0  TO  2C 

bLWFLP 

123 

VXVJ=TdLUll0L7» XDN » VX VC» 2 »6) 

BLwFLP 

124 

GC  TO  3C 

BLWFLP 

lcb 

20 

V aVJ  =6. 76fi*QL7*. 1 

BLwFLP 

I2t 

30 

CCNT INUE 

BLWFLP 

127 

VX=VXVJ* VJ 

BLwFlP 

12C 

VF=SQRU  VX**2+(  1«  0— V.3VJJ  ♦*2*VA**2*2.  *VX*VA* { i.-VXVJ  ) *CCS  ( ALPHA  } ) 

BLwFLP 

129 

Cb  » 

CALCULATE  OVERALL  SCCNC  PRESSURE  LEVEL  C8 

BLwFLP 

130 

Cl) 

♦*  NORMALIZED  OVERALL  SPL  AS  A FLNLIICN  CF  VF  AT  PSI=80,  AZANG7=C 

BLWFLP 

131 

AVF=ALCG1C( VF) 

3T  wFLP 

132 

VFNl  = T6LLl(AVF»VFA*Fr.3»lt9) 

bLWFLP 

123 

TSZ=TBLLll  VJ»PVJ3<-PT5#l«bl 

BLWFLP 

134 

SPLI=VrNl-*-l5.*AL0GlCITS/TSZI  *10  . *ALCG10  ( PHCS  **2*AN7  i 

BLWFLP 

13b 

* MC.*AL0G1C( ( .C526MSIN<FANG7*PFC}**2))/1.052o) 

BLWFLP 

13t 

UO  4CCC  I=i,NU8S 

Bl.wFtP 

137 

CALL  L INCCR{SP2<lcl) ,C,X,X,X,X,X #X,X,X,X,PSI ( 1 , I ) ,NCF , BCF, 

BLWFLP 

13B 

* X,X,X»X,X«X,X,1CCR7,!B! 1,1# I TYPE) ,0,X) 

BLWFLP 

139 

CO  1GCC  J=l» 17 

BLwFLP 

14C 

C 

BLWFLP 

141 

cm 

**  CORRECTION  OVERALL  SPL  AT  GIVEN  FSI  ANC  AZANG/=0 

BLWFuP 

142 

c 

BLwFlP 

142 

V VJ "ALCG  10 ( V J ) 

ELhFlP 

1*4 

SPH  I-TULU21PSK  J,I»  ,FANG7,VVJ,FTH4,FLA,FVJ4,F.\4,l,  l,  I, 

BLWFLP 

14b 

* I4»3»3tl4*r*3l 

BlwFlp 

14fc 

o 

BLWFLP 

147 

bill) 

**  CORRECTION  TO  OVERALL  S°L  FCR  CHANGE  IN  A/ANG7 

cLwFL  P 

14 1 

c 

blwflp 

149 

A ZANG  7 = 9C.-u£lA(JfI) 

llwflp 

1 SC 

L,PL  I I I = T8LUJIPbI  ( J»I)  »FANG7,AZANC7tFTHp,FLA,AZb,FN5. 1,1,  1, 

dLwruP 

Isl 

* 1 9 1 3 » 2 * 1 9 « 3 » 2 ) 

dLPFlP 

ib2 

c 

JLwFJ.P 

1 b3 

C IV) 

lORRECTICN  TO  OVERALL  SPl  FCR  CHANGES  IN  RELATIVE  LOCATIONS 

BL  wFl  P 

1 b4 

c 

oc  NOZZLE  ANO  KING 

Bl wFLP 

lbb 

FL=0L  7*hD  7 

Blwflp 

1 be 

SPLP^FL / I RI.*HR/DR**2  J 

BLWFLP 

lb7 

ETA$=  TdLUl  1FANG7,FL7,FN7,1  ,9) 

BLwFl  P 

158 

CPSZ-^PSI  ( J,I  )— ALPHA*GPR 

BLwFlP 

IS9 

SPLIV=TBLL2(CPsZ.SPLP,FTH6,FLL1 FF,FN6,1.  1,10,2,10,21 

bLWFLP 

loG 

SPLIV  = SPL IV* ETAS 

olkFl  P 

id 

CV) 

CHANGtS  IN  SCLNO  INTENS  TV  CLE  TC  FLIGHT  EFFECTS 

bLwFl.P 

16*- 

ONEM= l.-AMACH»COS(KE T A ( J ) ) 

r.LwFtP 

lb': 

SFLV=-3C.*AL0GICICNEM) 

BLwFLP 

16* 

c 

OVLRALL  SPL 

OunFuP 

If  b 

CASPL  = SPL  IFSPLI I-SPLIII  + SPll V*SFl V-i. 

CLwFLP 

1*6 

X ENG: NEMo 

BLwFLP 

J>7 

ENS  = EShLDGIFSIOlJ,! J » BE TA( J , I J , XENG ) 

BLWFi-P 

'6E 

GU  SCO  NB-- 1 1 vCF 

Blwflp 

,‘*69 

TGAGKINB  J •dCFINb)*C’N7^0NEM/|  VF*SCRTI1«PISIMRPC*FANG7  ) 

blwflp 

-170 

* 

bLwFLP 

* 171 

TTF.MP=TGAGRIN3J 

JLWFLP 

. 172 

46 


H 

V- 


TGAGRINfilMBLOlIALOGlC  (TGAGR(NB))  ,£TN8  ,FN8,1 ,24) 
IF(NCf.Ey.fi) TGAGKIN8) -TGAGRINB)  ♦ 4.8 
SPLTINB,  J)=UASPL+TGAG8tNB)-fclSS-SF2<Ne»J) 

SSPLINB,  1 , J >=PWRSLP< SSPL <NB, I, J) , SPLTINB, J| ) 

800  CONTINUE 
100C  CCNTINUfc 

IF( IPHTI 7 ) .Nfc. 7 ) GO  TC  22CC 

CALI  i\U  l SUI I PRT  ( 7 J ,1  ,NK  f lG,Ch!  N , ILM  T , $LCI SX  ( I ) ,PFRct, 

1 SPLTI 1, l)  ,NCF,  iTVPL) 

220C  CONTINUE 

OC  2600  K=1,NCF 
Of  2 5CG  J = 1 , 17 

• 2500  SPLTIK.J 1=SPIT(K,J)-TSPL<K,I  ,J) 

1F( IPRTI 3) .Nt.3)G0  TU  3000 

CALL  PNL  SUb<  SPLT  (1 ,1)  ,PSPL<1  * 1)  ,IFl)f  i , II  ,EPNLIl  ,1 1 , SPL2, 
* r f PNL  I 1 , 1)  , NK  ,£j(.(j  , TCG  , F Li< , 1 ,NOUb  , IRR  ( I , 1 ) J 

CALL  NUISG1 IPKT13)  ,1 ,NK,12,CHIN, ILM  I, SLCISXII) , 

1 PFRCU,SPLTIl»l)  «NOF,ITYP£) 

300C  continue 
40CC  CONTINUE 
RETURN 
END 
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AUTH1H 

METHOD 


SUBROUTINE  BCZSAtal ft TS ,F6PF ,Cl AM , XSF , ANG LES , I LEVEL , I CCP, 
* B SC ft  1 » BSCR3 ,8SAPAY) 

D.  F.  MeLDRLM 


THE  BUZZSAW  NCISE  IS  PREDICTED  BY  THE  USE  CF  CURVES 
AS  PER  ThE  REFERENCE  GIVEN. 

THESE  CURVES  ARE  INTERPOLATED  CR  EXTRAPOLATED  AS 
NEEOEO  I NCROER  TO  PREDICT  THE  NCISE  AT  130  FT  RADIUS 


buzsaw 

BUZSAw 
BUZ  SA n 
BuZ  S A » 
BUZSAW 
BUZ  SAW 
BUtSAw 
oUZ  SAW 


» 

■ ! 


48 


- t 


bozsaa 

LC 

PURPOSE 

TO  PREDICT  THE  BL22SAW  NUISE  COMPONENT  FOR  EACH 

BUZ  SAW 

1 1 

■iTAGE  OF 

THE  INLET  FAN. 

BuZ  SAW 

12 

BUZ  SAw 

13 

INPUTS 

RTS 

RELATIVE  FAN  TIP  SPEED  IN  FT/SEC. 

BUZSAw 

14 

FBPF 

FUNDAMENTAL  BLADE  PASSING  FREQUENCY  HERTZ 

BUZ  SAW 

13 

DIAM 

FAN  INLET  DIAMETER  IN  FEET 

BUZSAW 

It 

XSF 

SCALE  FACTCR  FOR  THE  CCPPLAR  SHIFT 

BUZ  SAW 

17 

ANGLES 

DIRECTIVITY  ANGLES  FCR  NCISE  PREDICTION 

BUZSAW 

18 

ILEVEL 

SWITCH  FCR  THE  CCPPLAR  SHIFT  LEVEL 

BUZSAw 

IS 

CCRRECTICN  IF  NLN  ZERC 

BUZSAw 

2 C 

I OOP 

SWITCH  FCR  THE  CCPPLAR  SHIFT  FREQUENCY 

BUZSAW 

21 

CCRRECTICN  If  IT  SET  NCN  ZERO 

BUZSAW 

22 

B SCR  1 

CURVE  - eLZZSAh  - BASIC  DATA 

BUZSAW 

23 

BSCR3 

CURVE  - BLZZSAW  - DIRECTIVITY  ANGLE 

bUZSAW 

24 

BUZSA'n 

25 

INPUT  VIA 

IA8LEC  CCMMCN  - GFREC 

BUZSAw 

26 

BANDLM 

1/3  CCTAVE  BAND  LIMITS 

BUZSAW 

27 

BUZSAW 

2£ 

OUTPUTS 

BSAKAY 

TABLE  CF  eLZZSAW  NOISE  COMPCNENT 

BUZSAw 

29 

THIS  NCISE  IS  ADDED  TL  ANY  NCISE  WHICH 

BUZSAW 

3C 

MAY  ALREACY  EE  IN  BSARAY.  J FEREFQRE  IF 

BuZ  SAw 

31 

CM  Y THE  BLZZSAW  NOISE  IS  DESIRED  I P IS 

BUZSAw 

U 

ARRAY  MUST  BE  SET  TC  ZERC  BEFCR  CALLING 

BUZSAw 

3.3 

THIS  SUBROUTINE. 

BUZSAw 

34 

BUZSAW 

35 

MODIFICATIONS 

FROM  TEE2C5  IMC  TEE215  - THIS  WAS  TAKEN  FROM 

BUZSAW 

36 

TEE215  AND  CHANGES  MADE  FOR  THE  NASA-AMES  CONTRACT 

BUZSAW 

37 

BUZ  SAW 

je 

REFERENCES 

COORD  SHEET  AMEP-M-367  3/17/72  D.  MtLDRUM  IEE205A 

BUZSAW 

39 

ans-res-f 

-327  3/30/72  D.  SCHRANK 

BUZSAW 

4 C 

R.  J.  SAX0Y,  NASA-AMES  FELT  PRINT  CGNTR ACT 

BUZSAw 

41 

NAS2- 

6969  FAN  NCISE  MGLULE,  UN-NUMBERED 

BUZSAw 

42 

COCRUINATICN  SHEET,  DATED  19  JANUARY  1973. 

BUZSAW 

43 

BUZ  SAW 

44 

FUNCTION  SUBPRGM 

AIUG1C 

TBLL1  FWKSUM 

BUZSAw 

45 

BUZSAW 

46 

BUZSAW 

47 

COMMON 

/GFREU/  CFREQI24J  ,bANCLMI25) 

BUZSAW 

4C 

BuZSAw 

49 

0 IMC-NS  ION 

OSAKA  Y ( 2 A « 1 1 » 

BSCRi(l) , BSCR3I li 

BUZ  SAw 

5C 

DIMENSION 

ANOlESI 1) iXSF 

ID 

BUZ  SAw 

31 

CATA  N FREQ/24/ 

bUZ  SAw 

32 

BUZSAw 

b3 

CALCULATE 

THE 

ENGINE  SI 

Zfc  CCRRECTICN 

BUZSAw 

54 

BUZ  SAw 

b j 

B S = 2 0 . 

o*alog  10 ( D I AM ) 

BuZ  SAw 

36 

BUZ  SAW 

57 

CALCCL 

ATE 

THE 

BASIC  NCI 

SI:  FCP  THC  BLZZSAW  NOISE 

BOiSAw 

'jb 

a i 


c 

IX=2 

NUM=  BSCR 1 ( IX-  1 ) 

IY=NUM+IX 

BS2 - BS+TBLU 1 (R  TS  i BSCR  1 ( I X)  .BSCRIUY) 

IX  = NUM<‘2*I  X+  1 
NUM=BSCR1< IX-l) 

I Y = NUM«- 1 X 

8S4=-  E S+ IBL  U 1 < R T S *oSCR  U IX)  ,BSCRl  i I Y)  , 1 tNUF1) 
l X=MjM+  2 + I X+  1 
NUM  = 8 SCR  1 ( l X—  1 ) 

IY=NUM+IX 

uS8=  BS+TBLUHRTS  t BSCR 1(1X1  » BSCR 1 i I Y ) »1  »NUP) 

C 

C IDENTIFY  THE  BANDS  WITH  DISCRETE  ICNES 

C 

DC  IOC  K=l,  I? 

IFIANGLES(K) .LT.O.O-.Cl)  GO  K ICC 
IFfANGLtS(K)  .GT  . LCC.C+-.C1 ) GC  TC  ICO 
SF=O.C 

I F ( ILEVEL.NE.O)  SF=-4C. C*ALCG 10 ( >SF ( K ) ) 

FRFg=FdPP 

IF{  ICCP.NE.O)  fREGsFPFC/XSF ( K) 

65  AN  = 1C. 0* ALUG10 ( FREU  / ICGOO*  1 + ?.4» 

C 

C CALCULATE  THE  BASIC  SPCURUR 

C 

DO  2CC  J = l.NFREG 
A =J 

ABAN02=A-AN+3.0 
AbANOA^A-AN+G^O 
A8AND8=A--A,\i  + 5.0 
DFLTAl  = Au3(  A8AN02 ) < i. 

DfcL  T A2  = AbS  ( ABAND41  ♦ 5. 

DFL  IA3=-5.0*AOANU6 

IF!  ABANCB.GT.'l.OI  DELTA3  = 3.C*ABANC8 

SPL  TGT=BS2*SF-L)fLTAL 

SPLTMP  = eS4  + SF-Di:LTA2 

SPLTCT=PV»KSCM(  SP ETC T , SPLTMP 1 

SPLTMP=BSS+SF-0tLTA3 

SPI.  TG  T =PnR  SUM  ( 3PLTU  I » SPL  TPPJ 

c 

IX=2 

NUM=BSCR3(  I X- 1 ) 

I Y = NUM+ 1 X 

c 

C GENERATE  IHE  TABLE  OF  BUZZSAW  NCISE 

C 

BSDATA=SP1.T0HTBLUI  (ANGLES!  K)  ,BSCF3UX»  ,tSLP3(  IY)  , I,NU.V) 
bSARAYl J,K)=PWRSUM(BSARAY( J,KI , BSC AT A) 

20C  CENT  INGE 
IOC  continue 

RETURN 

fcND 


BUZSAW  55 
BUZSAn  6C 
BoZSAW  6 1 
BUZ  SAin  62 
BUZSAn  63 
BUZSAn  u4 
BUZSAn  c5 
BUZSAW  66 
BUZSAn  o7 
BuZSAn  oB 
BUZSAn  65 
BuZSAn  7C 
BUiSAn  71 
BUZSAn  72 
BOZSAW  73 
BUZSAn  74 
BUZSAn  75 
euZSAw  76 
BUZSAn  77 
BUZSAn  7 1 
BUZSavi  7c 
BUZSAn  8u 
BUZSAn  81 
BoZSAn  82 
oUZSAn  o3 
BUZSAn  «4 
BUZSAn  c 5 
bUzSAn  Bo 
BUZSAn  B7 
BUZ  SAW  88 
lUZSAW  85 
BuZSAn  56 
BUZ  SAW  51 
BuZSAn  52 
BUZSAn  53 
oUZSAn  54 
BUZSAn  55 
BUZ  SAW  96 
BUZSAn  57 
OUZSAn  98 
BUZSAW  55 
BuZSAn  100 
BUZSAW  101 
BuZSAn  1G2 
OUZSAn  103 
OUZSAn  104 
OUZSAn  IC5 
BUZSAW  106 
BUZSAW  1G7 
BuZSAn  lufc. 
bUZSAn  105 
BUZ  SA  n 1 1C 
BUZ  SA  n 111 
BUZSAW  1 1.2 
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CCMPLEX  FUNCTION  CFKXJ 

CF  1 

2 

c 

CF  I 

3 

c 

PURPOSE- 

CFi 

4 

c 

CGMPUTES  THE  COMPLEX  FRESNEL  INTEGRAL  CF  THE  FORM- 

CF  I 

£ 

c 

CFI 

6 

c 

SORT l l*P l ) * FIX)  = INTEGRAL!  EXPU  * 1**2)  * C Z ) CVER  THE 

CFI 

7 

c 

LIMITS  <x,  4[NF.» 

CFI 

8 

c 

INPUT- 

CF  l 

9 

c 

X ...  ANY  REAL  VARIA8LE  IPCSITIVE,  Z6RC,  CR  NEGATIVE! 

CFI 

10 

c 

CF  I 

11 

c 

OUTPUT- 

CFI 

12 

c 

F ...  COMPLEX  RESULT  FOR  FUNCTION  IN  THE  F CRM  (A  ♦ 1*B>  WHERE 

CFI 

13 

c 

(A,  Qi  ARE  REAL  NUMBERS. 

CF  1 

14 

C 

CFI 

15 

c 

AUTHCR-  O.G.  DUNN  (5  SEP.  1974) 

CFI 

16 

c 

CF  I 

17 

c 

REFERENCE- 

CF  I 

18 

c 

l)  IBM  COKP.,  /SCIENTIFIC  SUBROUTINE  PACKAGE/,  IBM  APPLICATION 

CFI 

19 

c 

PROGRAM  H20-0166-5,  1568,  F.371 

CFI 

20 

c 

2)  30ERCMA,  /COMPUTATION  CF  FRESNEL  INTEGRAL/,  MATHEMATICAL  TABLES 

CFI 

21 

c 

AND  OTHER  AlCS  TO  COMPUTATION,  VCL.14,  NC.72,  I960,  P.380 

CF  1 

22 

c 

3)  M.  ABRAHUwITZ  ANU  I. A.  SEGAN,  /HANDBOOK  CF  MATHEMATICAL 

CFI 

23 

c 

FUNCTIONS/,  DOVER  PUBLICATIONS,  INC. , NEW  YORK,  i>TH  EDlT.,19b8 

CFI 

24 

c 

CF  l 

25 

c 

COMMENT  S- 

CFI 

26 

c 

IS  ARGUMENT  IX)  REMAINS  UNCHANGED  ' 

CFI 

27 

c 

2)  NO  CTHER  SUBPROGRAMS  REQUIRED  CVER  STANDARD  FORTRAN  IV  LIBRARY. 

CFI 

28 

c 

3)  ABSOLUTE  ERROR  IS  LESS  THAN  1.2E-7 

CFI 

29 

c ■ 

CFI 

30 

DATA  P 5 , F4  /O. 5,  4.0/ 

CFI 

31 

Cfl  * <0.5,  0.0 

CFI 

32 

2 = X*X 

CFI 

33 

IF  (2)  5C » 50,  1C 

CFI 

34 

1C  IF  12  - FA)  20,  20,  3C 

CFI 

35 

2 C C = AbS(X) 

CFI 

36 

S = 2 * C 

CFI 

37 

2 = 16.  - 2*2 

CM 

36 

C = C * ( II (U 5.1CC785E-11  * 2 * 5.244297E-9 ) * Z + 5.451182E-7) 

Cfl 

39 

l*  2 ♦ 3 . 27  33  0BE-5 ) * 2 ♦ I.C2C418C-3)  * l * 1.102344E-2J  * L *■ 

CFI 

4C 

2 1.840962E-1) 

CFI 

41 

S = S * I(  mo.67768lE-iO  * Z ♦ 5.883158E-8)  * 2 * 5.05U41E-6) 

CFI 

4 £ 

1*  Z ♦ 2.441816E-4)  * 2 + 6.12132GE-3)  * 2 ♦ 8.026490E -2) 

CFI 

43 

GO  TO  4 C 

CFI 

44 

3C  0 = CCS! 2) 

CFI 

45 

S = SIN(Z) 

CM 

46 

2 = F 4 / 2 

CFI 

47 

A = ((((((( 8. 768258E-4  * 2 - 4.169269E-3)  * L * 7.970943E-3)  * 

CFI 

46 

12  - 6.7928CIE-3)  * 2 - 3.095341E-4)  * 2 ♦ 3.972151E-3)  * 2 - 

CFI 

49 

2 1.606428E-5)  * Z - 2.453322E-2)  * l - 4.444091E-9 

CFI 

5G 

8 = ( U ( ( (-6. 633926E-4  * 2 + 3.4C1409E-3)  * 2 - 7.27L690E-3)  * 

U I 

51 

IZ  ♦ 7.42824bE-3)  * Z - 4.027145E-4)  * i - 9.314910E-3)  * 2 - 

CFI 

52 

2 1.2C7998I:— 6)  * 2 ♦ 1.994711E-1 

CFI 

53 

2 = SURM2) 

CFI 

64 

C = P 5 + Z*(D  *A«-S*B) 

Cf  I 

55 

S = P 5 ♦Z*tS*A-D*6) 

CF  I 

56 

40  C = S IGN ( C , X) 

CFI 

37 

S = SIGNIS,  X) 

CF  I 

58 

I 
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SUBROUTINE  CMAX I S l X . V , IBCD » NCHAR  , AXLEN, ANGLE »FIRST * CEITV I 


C 

C AUTHOR 
C 

C PURPOSE 

f. 

C 

C 

C 

C INPUTS 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 36C 


K.D.  JCHNSCN 

PLOT  AXIS  BEGINNING  AT(XP,YP)IN  ANGLE  THETA 
DIRECTION 

TIC  MARKS  ARE  AT  CENTIMETER  INCREMENTS 
AXIS  IS  LABELED  AT  EVERYCTHER  TIC  MARK 

X = BEGINNING  X CCCRCINATE  IN  CM 
Y = BEGINNING  Y CCCRCINATE  IN  CM 

IBCD  = THE  TITLE  WHICH  IS  PLACED  AT  THE  FAR  END  OF 
THE  AXIS 

NCHAR=  THE  NUMBER  CF  CHARACTERS  IN  THE  TITLE  IBCD 
IF  NCHAR  0 THE  TITLE  APPEARS  CN  POSITIVE 
CF  AXIS 

IF  NCHAR  »C  THE  TITLE  APPEARS  CN  NEGATIVE 
SIDE  CF  AXIS 
AXLEN-=AXI  S LENGTH  IN  CM 
FIRST  = VALUE  CF  AXIS  ATIXP.YPI 
DELTV  = INCREMENT  VALUE  (UMTS/CM ) 

ANGLE  = ANGLE,  IN  PCSITIVE  CR  NEGATIVE  DEGRESS  AT 
taHICH  THE  AXIS  IS  DRAWN  H-X=0.*Y=90. ) 


DIMENSION  IBCUU)  .PLABLI2I 
DIMENSION  IBCD(UfPLABLU) 

INTEGER  CMOV 

DATA  PLABL(1)/AH  * /,  PLABL  (2  J / AH  10**  / 
CATA  PLABL/8H  * 1C**  / 

DATA  CMP  IN  /«:.5AQ0l/ 

DATA  RADIAN/  5 7.29577/ 


SI 


CONVERT  ANGLE  TO  RADIANS 


THETA=ANGLE/RADIAN 


CCNVERf  SCALE  TO  UNITS/INCH 
DELCM  = DELTWCMPIN 

C MOVE  TO  START  OF  AXIS 
XP=X/CMP  IN 
YP=Y/CMP  IN 
CALL  PLOT ( XP , YP  , 3 ) 
LINC=AXLEN 
CCSTH=COS< THETA) 
SINTH=SIN<ThtTA) 
CMCSTH=COSTH/CMPIN 
CMSNTH=SINTH/CMPIN 


XT  IC  = 

,07*SINTH 

Y T IC  = 

.C7*C0STH 

CALL 

PLCTf  XP«-X 

HO, 

, YP  + YT 

1C 

,2) 

CALL 

PLOT ( XP-X 

HO, 

i YP-YT 

IC 

,2) 

CALL 

PLC’T  (XP, 

YP  , 2 ) 

UC  25 

1=  ULINC 

XP  = XP 

♦CMCSTH 

CM AX  I S 

CM, AX  IS 

CM AX  I S 

CMAX  I S 

CMAX I S 

CMAX I S 

CMAXIS 

CMAX IS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAX 1 S 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAX I S 

CMAXIS 

CMAXIS 

CMAXIS 

CMAX I S 

UMAX  IS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

UMAX  IS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 


2 

3 
A 

5 

6 

7 

8 
9 

1C 
11 
12 
13 
1 A 
» c. 

4 -• 

It 

17 

18 

19 

20 
21 
22 
23 
2A 
25 
2b 

27 

28 

29 

30 

31 

32 

33 
3A 

35 

36 

37 
3fc 
39 
AC 
A 1 
A2 
A3 
AA 
A5 
A6 
A7 
A8 
A9 

50 

51 

52 

53 
5A 
55 
5c 
57 

38 


52 


1**  “ <■  ■iwA*«w!ranA»' 


if 

YP-YP+CMSNTH 

CMAXIS 

55 

|y 

CALL  PLOT ! XP , YP ,2) 

CMAXIS 

bC 

2K'* 

CALL  PLOT! XP*XTIC,YP+YTIC,2 1 

CMAXIS 

o 1 

CALL  PLOT! XP-XTIC, YP-YTIC.2) 

CMAXIS 

62 

% 

m 

CALL  PLOTiXP, YP ,2) 

CMAXIS 

63 

25 

CCNTINLE 

CMAXIS 

64 

C 

FIND  POrtER  0IV1SGR  NECESSARY  FCR  F XX. X LABEL  FCRMAT 

CMAXIS 

65 

lr 

AMAX  = OEL  T V*AXLEN+F IRST 

CMAXIS 

Ob 

l P=MCHAR l AMAX )—  2 

CMAXIS 

67 

SSs- 

Hi 

INCHR=t ABSiNCHAR) 

CMAXIS 

08 

f* 

'S’’ 

V1 
:*'■  :■ 


§> 


%‘ 

*r 


R INCH  = INCHR 
NADO=C 

I F ( IP.EQ.OJGll  fO  26 
NA00=1G 

28  NTCPAK=  INCHR+NAGD 

TNChAK  = NTCHAK 

ISCHAR=IS1GN! l.NCHAR) 

SICriAK  - 1SCHAR 

XPL  = XP  - .13  * INCHAR  * CCSTP 

YPL  = YP  - .13  * TNCHAR  * SINTP 

XPC  = XPL  - .42  * SICHAR  * SINTP 

YPL  = YPl.  + .42  * SICHAR  * CCSTP 

CALL  SYMBOL! XPL. YPL.. 14. IBCO. ANGLE, INCHR) 

I 6 ( NADD. EG. 0 ) GO  IG  25 

XPL  = XPL  + .13  * RINLH  * CCSTH- 

YPL  = YPL  + .13  * RINCH  * SIMP  ' 

CALL  SYMBOL! XPL, YPL,. 14, PLABL, ANGLE, 8) 
XPL=XPL+1.04*COSTH 
YPL=YPL+1.04*S1NTH 
FPN  = IP 

CALL  NUMBER! XPL  , YPL ,. 14, FPN , ANGLE .-1) 

C 

C LABEL  VALUES  EVERYOTHER  CM  TIC  MARK 

C 

25  XMAX  = C • 

TWUt)LT=DELTV*2. 

30  XMAX=XMAX+TkODLT 

IF(XMAX.LT.AMAX)  GG  TC  3C 

AMAX  = XMAX-  rwGl)L  T 

XMAX=! AMAX-F IRST ) /DELCM 

XP-X/CMP I N 

YP  = Y /CMP  IN 

XP=XP+XMAX*COSIP 

YP=YP+XMAX*SINTH 

XP  = XP  — 3.  * XTIC  * SICHAR 

YP  = YP  > 3.  * YTIC  * SICHAR 

PCWK  = 10 •** I P 

35  FPN=AMAX/POKR 

FP=A6S<  FPN) 

NCtC=l 

IF  < FP  .NE.  0. ) GG  IC  40 
CMO V=  1 
GC  TO  42 

40  CMOV=MCHAR!FP) 

IF  ! CMOV  .Gf.  0)  GC  TC  42 

CM0V=2 

NCfcC  = J 


CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

LMAX I S 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXIS 

CMAXI S 


65 

70 

71 

72 

73 

74 

75 

76 

77 
7b 
75 
Ot 
ol 
82 
a 

64 
85 
6c 
87 
8b 

65 

90 

91 

92 
53 

94 

95 

96 

97 
96 
55 

IOC 

101 

102 

1C3 

104 

105 

106 

107 

108 
105 
110 
111 
112 

113 

114 

115 


53 


42  IFtFPN.LT.O.)  CMOV2CMCV+ 1 

XPN  = XP  - .07  * CCS7H  * FLGATICMOV) 

YPN  = YP  - .07  * SINTH  * FlCAT(CMOV) 

CALL  NUMBER !XPN,yPN». 07, FPN, ANGLE, NGEC) 

AMAX=AMAX-2.*0ELTV 

XP=XP-2.*CMCSTH 

YP=YP-2.*CMSNTH 

IHAMAX.GE. FIRST)  GO  TO  35 

RETURN 

END 


CMAXIS  I 16 
CMAXIS  117 
CMAXIS  ne 
CMAXIS  119 
CMAXIS  120 
CMAXIS  121 
CMAXIS  122 
CMAXIS  123 
CMAXIS  124 
CMAXIS  125 


i 


S' 

a 


f 

i: 


a 

n 


f 
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SUBROUTINE  CONVR 1 l ENTRY , N , L ) 


C 

C 

C 

C 

C 


INPUT  DATA  BLOCKS  FOR  NCI  SE  CCFPCNEMS 
I TYPE  DEFINES  THE  TYPE  CF  NCISE  COMPONENT 
ITYPE=1  PRIMARY  JET 
= 2 PRIMARY  AND  SECONDARY  JET 

C0MM0N/JET0AT/NJETi,MCu0El,APl,kFl,VPltAS2,WS2,VS2,PRi,PAL, 
I TTl,VAl,DiAMIl,ANGJTt,ICCkl 

DIMENSION  JETUI 12 J 
EQUIVALENCE  (JETDIl).APl) 

= 3 CCRt  ANU  1 URSINE 

COMMON /CORE IN/TT3,PP3»CMF3 ,EK3 ,OEl T3 , J03 , 

* ICOR3,LIN3,NTF3, IMA3.LGM3 ,NkL3  , l C P3  , I L AY3  ,TF3  UO)  , 

* PCTA3I  10),  PL  A3  (10)  , E LCH3  ,LCh3  , P 1 1*3  1 10 1 ,TL3  ( IG  i ,CFi  , FM3 


C 

C 


CCMMON/TUKB I N/0N3 1 SS3 »VTR3»LLS3»CT3,TU3,FMF3»CS3»IC3»ISW3 
= 4 C0MPRES3UK  AND  INLET  FAN 


= 6 AOGMENTER-MNG  JET 

COMMUN/SWITCH/NTYPE , I T YPE , NE NG , I CC P , IPRT ( 7 > , l CM  13 ) , NLCPT 

ri'UMHM  / A t / r.  A M A A TTA  _ VIlODA  OC  I TA  Al  k .f’LA 


C 

c 


uunnuiu  jhi  lun/iTi  i r c f & I ircfncuui  ULrtirni  u M 

COMMON /A  UGrtNG/GAMA/j  »TT6,XNPR6,DELT6,ALo,LE6, 

* ICQRc.L IN6,NTF6,lMAfc,LGM6,NhU ,ICP6,ILAY6 , 

* PC  T Ab ( 10),PLA6l 1C) ,ELCH6,ECHfc , R lKfa  UO ) , TL6 
=7  BLOWN-FLAP  JET 


TF6I10), 

110)  ,CFu,FM6 


-i  uu  Kirrmi'  jci 

CCMMGN/6L0hIN/PR7,TT7,AN7fDN7,FoNG7,CEU7,0L7,H07,lCCK7 
=8  LIFT  FAN 


= » L irl  r AN 

COMMON /LF  TFAN/NB8,FPR6»0IAM8»PSS£»AREA8»RM8»RTS8  ,CRFPR8,  DEL  T AC  , 

* IC0R8,LINJ,NTF8, IMA8,LGM8,NWL6  , l CP8 , I L A Y8 , TFd ( 10) ,PCTA8( 10), 

* PL  AM  1C)  ,tU)He,E0H8,RlV.8(lC)  ,T18(1C)  ,CF8,FM8 

= c f irrinu.Ci  ooci;t."o 


= 9 EJCCTOK-ScPRESSCR 

COMMON  /EJECTD/  l E J9  ,NLM9  ,ARE  AS  , AS9,  ) T9  , EXNP9,  SM  ACH9  , CV9  ,PS9, 

* PA9,PTS9,CMAcH9»PCV9*i)ELT9» 
IC0R9,LlN9,NTF9,lMA9,LGM9,Nkl.ci»ICP9»lLAY9»TF9(  10)  ,PCTA9l  10), 
PLA9I  l0),r:LuH9,E0H9,RlV)9UC)  , IL9  ( 10)  ,CF9  ,FP9 

L I FT— Fan 
iu  PROPELLER 

CCMMCi\/PRCPlN/nO,hlO,RPMlG,ClC,nSL»lO,AbUeiO,810,OELT10, 

* 1 COR  1C 

= 11  HELICOPTER  AND  TUT  RCTCR 


* 

if 

= 9 
= 10 


11  rcu'-ui-ltn  A :>u  i 1 L 1 HUtH 

COMMlJN/COP  TER/  TU,Qll,RPMI,611»LTll»ABil,CEll  ,RNU  , 
l SI11,CEE11,DELT11,XLPC11,>P11,NRTF11,(.LF1L, 

* IRP  1 1 » ICORU 


C 

C 


=12  MEASURED  DATA  INPUTS 

CGMMON/ME ASl N/NtPl2,NPSl 12 ,NB T 4 12  ,Ct L T 12 ,E P 1 2 1 5 ) , PS l 12 (17) , 

* BCTA12I5), 

* I COR  12 


C 

C 

C 

C 


I8M3EC 

THIS  ROUTINE  HANDLES  LINKAGE  Tc  INPUT  VCCULES  FLIGHT-PATH 
OBSERVER  GFCME  TRY  MODULE  VAPlfLS  NCISE  ESflMATICN  MGCULES 


CCNVR 
CGNVk 
CGNVR 
CONVR 
CONVR 
CONVR 
CONVR 
CCNVR 
CONVR 
CONVR 
CCNVR 
CONVR 
CGNVK 
CGNVK 
CONVR 
CoNVR 
CCNVR 
CGNVK 
CUN  Vk 
CGNVk 
CuNVk 
CGNVK 
CGNVk 
CGNVK 
CONVR 
CGNVk 
CONVk 
CLNVR 

CONVk 

CGNVk 

CONVk 

CONVK 

CONVk 

CONVR 

CLNVR 

CGNVK 

CONVK 

CGNVK 

CUNVR 

CuNVk 

CGNVk 

CONVK 

CGNVk 

CGNVk 

CGNVk 

CONVk 

CUNVK 

CGNVk 

CONVR 

CGNVR 

CONVk 

CGNVk 

CUNVK 

CGNVk 

CGNVk 

CGNVK 

CONVk 


2 

3 

A 

3 

6 

7 

8 
9 

10 

il 

U 

13 

14 
19 
16 
17 
1 1 
19 
2C 
21 
lc 

23 

24 

29 

26 

27 

28 

29 

30 
Al 

32 

33 

34 
33 

36 

37 

3 8 
39 

4 c 

41 

42 

43 

44 

4 3 

46 

47 

48 

49 
5G 

31 

5 2 

53 

54 

55 

56 

57 

58 


55 


n7nr«*inwi^p 


fj 


I- 


¥ 


c 

EXTRAPOLATION  MODULE  HUMAN  RESPONSE  MEASUREMENT  MCCULE 

CCNVR 

55 

c 

INTERGER  XTRANSF 

cgnvk 

60 

c 

CCNVR 

o 1 

c 

CONSTANTS  USED  IN  INTERNAL  CALCULATIONS 

CCNVR 

62 

c 

CONVR 

63 

COMMON  /GCONST/  I N , 10 , 1 T I , I T2  , FO  ,Fi  ,F2  ,F3 ,F5  ,PS> ,F6,  F V, F8,  F9,  F10, 

CONVR 

t A 

* 10,1 1, 12,13, 14,15 ,16 ,17, IB, 19, 110, PI, P33.P5, POOL, 

CONVR 

65 

* EPS, ONDEF ,BL,ICD,LPR,RP0,ETAI1?) ,ML, FMI, 117, A,  PI 

CONVR 

66 

c 

CCNVR 

c 

VARIABLE  SET  CALCULATED  IN  THE  PROGRAM  PROCESSING 

CONVR 

ob 

c 

CONVR 

65 

COMMON  /GCOMON/  NCF  ,NK  ,BCF  <25  1 , T SPLI 25 , 10 , 17 ) , SPLT 124, 17 ) , 

CONVR 

IC 

♦8UFI 25),R£TA(17) ,SPL2(17),TGAGR(25) ,DCPSFI17) 

CCNVR 

Vi 

c 

CONVR 

72 

c 

FREQUENCY  BANDS  USEO  BY  PROGRAM 

CONVR 

73 

c 

CCNVR 

7* 

CCMMON  /GFREQ/  CFREQ ( 24)  .UFREC 1 25 ) ,PFREC 1 24 ) 

CONVR 

75 

c 

CONVR 

7t 

c 

GENERAL  INPUT  PARAMETERS 

CONVrt 

77 

c 

CONVR 

78 

CCMMON  /GPRAM/ALTP,ALTR,SLOPE,AMACH,NCBS,SLDIST(10) ,NTENG, 

IUNIT 

CCNVR 

75 

* , ISPTRM,IATMGS,IAIR ,LA1RAB<24>  , NTEMP, TEMPI 5U)»TALT( 50) 

CONVR 

80 

* , NPRE  S,PKES( 50) ,PAL T 1 50) , NHUM 10 ,RALT I 50 ) ,RHUMIDI  50) , CTEMP 

CONVR 

81 

* » CPRES, CRHUMC, IEGA, IGOR, CTEMP, DPRES,CHoMIC,XKN,NC,FLO( 50), 

CONVR 

82 

* ZNRl 50) ,ZNI (50),LlNECT,MAXLlN,iFAGE  ,t)CG  , TCG  ,FLR  , AAL  T , EPF 

CONVR 

03 

c 

CONVR 

35 

c 

AIRCRAFT-OBSERVER  GEOMETRY  GLTPLTS 

CONVR 

85 

c 

CCNVR 

b6 

CCMMON  /GEOMc/  APY(I0,17),APZ(I0,I7)  , FD ( IC  , 1 7) ,0PNC(10,17) 

f 

CCNVR 

07 

* Bl(  10,  17), 621 1C, 17)  ,T0S(I7,I0)  ,TPCU7,10)  ,IRRIlO,i7) 

CONVR 

88 

*,  APP,TP,RHP,APO,TC,RHC,CA,CZ,TSP(17,lO) ,CCV 

CONVR 

85 

c 

CONVR 

90 

c 

CONVERSION  CONSTANTS 

CONVR 

91 

c 

CCNVR 

92 

CCMMON/GCON VC/C (2,10) .SLOISXIIC) 

CONVR 

93 

OOMMCN/CRSPL  S/UUBI 17) , PSCR (1 7 ) ,C FB I A 08 ) ,NPSCR 

CONVR 

55 

COMMON  / ICPA  TH/NCAS ,NCOF ,NTYP,IC,NRN,IAHRAY(2) 

CONVR 

55 

c 

CCNVR 

56 

c 

CCNVR 

97 

CGMMON/HEAD/HIN  (20)  ,HOCT  (20)  ,ChIM20) 

CONVR 

58 

c 

CONVR 

95 

c 

C(l,n  FEET  PER  MEIER 

CONVR 

IOC 

c 

CONVR 

1C1 

c 

C I 1,2)  L8F  PER  NENTCN 

CONVR 

102 

c 

CCNVR 

103 

c 

C( 1, 3)  LBS  PER  KG 

CGNVK 

105 

c 

CCNVR 

105 

c 

C(l,5)  HP.  PER  KILCFATT 

CONVR 

106 

c 

C ( 1,6)  LBS,  PER  SC.  IN  PER  ATMOSPHERE 

CONVR 

) 0 7 

c 

CONVR 

1C8 

c 

C I 1 , 5 ) RANKIN  PER  KEVIN  DEGREE 

CONVR 

105 

c 

CONVR 

110 

REAL  JETO 

CONVR 

111 

LM2  = L - 2 

CCNVr 

112 

IF  (LM2)  1000,  ICCC,  2 

CONVR 

113 

1000  CONTINUE 

CONVR 

115 

GO  TO  I l,  2, 3,  <t,5, 6, 7,8,5, 10,11  r 12  r 13,15,  15, 16, 17,  18,  19,20), 

IfcNTRY 

CONVR 

115 

56 


3J- 

2 

CONTINUE 

CONVR 

lit 

JETD14)=JETD(4)*C(N,1)**2 

CCNVR 

117 

fr 

JETQI5)=JETDI5)*CIN,3) 

CONVR 

118 

JET0<6)=JEI0(6)*C(N,1) 

CONVR 

115 

1 

CONTINUE 

CONVR 

12C 

n 

JETDI i)=JETD(l)*C<N, l)  **2 

CONVK 

121 

Mgf 

JET0(2)=JETDI2)*C<N,31 

CONVR 

122 

?s> 

JETD<3)=JET0(3)*C(N,1) 

CONVR 

123 

fe' 

JETl)(9)=JETD(9)*CtN,5) 

CONVR 

L24 

4F-_> 

¥i' 

J £ T 0 ( lll=.)ETOlll)*C{N,l) 

CONVK 

125 

If  (LM2)  2000,  2CCC,  3 

CGNVk 

126 

3 

CONTINUE 

CONVR 

127 

I? 

TT3=TT3*C(N,5) 

CONVR 

128 

p 

CMF3=CMF3*C { N»  3 ) 

CONVK 

125 

jt 

VTR3=VTR3*CIN,1> 

CCNVR 

no 

■S> 

CLS3=CUS3*C(N,1) 

CGNVk 

131 

-f' 

r. 

DT3=0T3*C(N, 1) 

CONVR 

132 

i?. 

I U3=  TU3*C (N , 5) 

CONVK 

133 

s. 

!“ 

PKF3=PMF3*C ( N, 3 ) 

CONVR 

134 

ECH3=EDH3*C(N,l) 

CCNVR 

135 

V 

DC  301  1=1,21 

CONVR 

be 

301 

R1W3I  I)=RlU3Ul*CtN,ll 

CONVR 

137 

f 

IF  (LM2)  2CC0,  2CCC,  4 

CONVK 

138 

!* 

CONTINUE 

CONVR 

135 

V. 

DC  41  1=11 »NSTG45 

CGNVk 

140 

41 

CIAM4I  I )=0IAM4I 1 J*C(N, I 11 

CONVR 

141 

E0H4=EDH4*C ( N, l 1 

CONVK 

142 

00  4C1  1=1,21 

CONVR 

1 4 j 

401 

R1W4(I)=R1W4UJ*C(N,1) 

CONVR 

144 

IF  ( LM2 ) 2000,  2CCC,  5 

CONVR 

145 

5 

CONI INUE 

CCNVR 

1*6 

OC  51  1=1 *NSTG45 

CONVR 

147 

51 

AREA5I 1 1 = ARE A5 ( I l*C  f N * 1 > **2 

CuNVR 

148 

ECH5=EDH5*C(N,il 

CCNVR 

145 

OC  5C1  1=1,21 

CONVR 

150 

501 

R1W5U1=RU5(  1)*C(N,1) 

CONVK 

151 

if  ILM21  2000,  2CCC,  6 

CONVR 

132 

6 

T T6  = T T6*C I N , 5) 

CONVK 

153 

ACti=AD6*C<N,  1 J**2 

CONVR 

154 

C£6=CE6*C(N, 11 

CONVK 

ia5 

ECH6=E0H6*CIN* l 1 

CCNVR 

156 

DO  6C1  1=1,21 

CONVK 

157 

oOl 

R1W6I  I)=KlW6tIl*C(N,l» 

CONVR 

15E 

“ 

IF  (LM21  2000,  2C0C,  7 

CONVR 

1>5 

7 

CCNT  INUE 

CONVR 

160 

fi 

T T7  = T T 7*C IN, 5 1 

CGNVk 

161 

AN7=AN7*C(N, 11**2 

CCNVk 

162 

# 

DN7  = DN7*C IN,  1 1 

CONVK 

162 

IF  ILK  2 ) 2000,  2CCC,  8 

CONVR 

164 

A 

£ 

8 

CGNTINUE 

CCNVR 

165 

I 

0lAM8=0IAH8*C(N,l) 

CGNVK 

loo 

S 

AREA8=AREA8*C<N, 11**2 

CCNVR 

167 

| 

E0F8=cDH8*CIN, 11 

CCNVR 

lo6 

| 

DC  801  1=1,21 

CONVK 

165 

f 

801 

fi  1W  8 ( I )=RU£U  )*C(N,IJ 

CGNVK 

170 

IF  < LM 2 1 2000,  2C0C , 5 

CGNVk 

171 

1 

9 

CCNT INUE 

CoNVk 

172 

£ 

£ 
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ECH9=EDH9*C(N» 11 

CONVR 

173 

0C  90 1 1*1,21 

CONVR 

174 

901 

<UW9<I)*R1H9U1*C(N,1J 

CONVR 

175 

TT9=TT9*CIN,5I 

CONVR 

lib 

ARE A9=AREA9*C IN , 11**2 

CONVR 

177 

PA9=PA9*C(N,1)**2 

CONVR 

178 

P S9*P  S9*C I N , 1 6 ) 

CONVR 

179 

PTS9*PTS9*CI N»  5) 

CCNVR 

180 

IF  ILM21  2000,  20CC,  10 

CONVR 

181 

10 

CONTINUE 

CONVR 

182 

T10=T10*CIN,2> 

CONVR 

183 

hl0=R10*C(N,4) 

CONVR 

184 

C 10=0 10*C ( N, 1 ) 

CCNVR 

185 

OSOBiO=DSOiUO*CIN,l) 

CONVR 

186 

ASUB10*ASUB10*C IN, 11**2 

CONVR 

187 

IF  ILM2 ) 2000,  20CC,  11 

CONVR 

188 

11 

CONTINUE 

CONVR 

185 

T ll=T 1 1*C(N, 2) 

CONVR 

190 

G11=U11*C(N,1)*C1N,2) 

CCNVR 

191 

0T11=DT11*CIN,11 

CGNVk 

i92 

A811*ABll*C{N, 11**2 

CONVR 

193 

CEli=DEli*C(N,I l) 

CONVR 

194 

IF  ( CH2 1 2000,  2CCC,  12 

CONVR 

195 

12 

CONTINUE 

CONVR 

196 

IF  I LM  2 ) 2000,  2CCC,  13 

CONVR 

197 

13 

CONTINUE 

CONVR 

198 

IF  ILK2)  2000,  2000,  14 

CGNVK 

199 

14 

CONTINUE 

CONVR 

2CC 

15 

CONTINUE 

CONVR 

201 

16 

CONTINUE 

CONVR 

2C2 

17 

CCNTINUE 

CONVR 

203 

18 

CONTINUE 

CONVR 

204 

19 

CONTINUE 

CONVR 

205 

200 

DC  250  1*11, NOBS 

CONVR 

206 

CO  250  J=  1 1, 117 

CONVR 

2C7 

APY ( I,Jl*C(N,m*APY(I,J) 

CONVR 

208 

AP2U,J)=CIN,Ill*APZ(I,J» 

CONVR 

209 

PCI  l,J)=C(N,ll)*POII,J.* 

CONVR 

210 

25C 

CCNTINUE 

CONVR 

211 

CA*C A*C I N , I l ) 

CONVh 

212 

CZ=CZ*CIN, 111 

CONVR 

213 

CCV*COV*C IN ^ 11) 

CONVR 

214 

CONVR 

215 

20 

CONTINUE 

CONVR 

216 

AITP*CI N,  111*AITP 

CCNVR 

217 

AALT*C(N,I11*AALT 

CONVR 

218 

ALTR=C(N,  m*Al.TK 

CONVR 

215 

00  110  1=11, NOBS 

CONVR 

220 

110 

SLOISTI  I)=C(N,Il)*SLOISTm 

CONVR 

221 

DC  112  1=1 l.NTEMP 

CONVR 

222 

TEMPI 1>=CIN»I5)*1EMP4I) 

CONVR 

223 

112 

TALT(I)=C(N,IU*TALTII) 

CCNVR 

224 

00  113  1 = 1 1,NPRES 

CONVR 

225 

PRES!  I )*C(N, (6)*PRESI I ) 

CONVR 

226 

113 

PALT I I )=C (N, I 11*PALTII ) 

CONVR 

227 

OG  114  1=1 1,NHUMI0 

CONVR 

228 

114 

RALTt I)=CIN, Iil*RALTl 11 

CONVR 

229 
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CONVH  2JG 
CUNVK  231 
CuKM  232 
CONVK  233 
CCNVft  234 
CCNVli  23b 
CCNVfc  236 
CONVH  237 


SUBROUTINE  COPTR 


CGHMON  /COPTER/  T,  0*  THETA.  NfL,  CT,  AB.  Ofc . RN»  S»  XC.  DELTA. 

* XLC.  XM,  NROT,  LLP,  ITR*  ICCR 
COMMON/SKITCH/NTVPE.ITVPE.NEAG.ICCP.IPRTm.  ICNI 13 ) , NLCPT 
COMMON  /GCONST/  IN.  IC.  WK1C29),  INOEF,  BL,  ICO.  MK2I24I 

CCMMON  /GCOMON/  NFB,  NK.  BCFI24),  X08 (24. 10. 171 . SPU24,17),  F(25) 

* , RETAI 17).  SPL2I17),  PSI24),  SFI17J 
COMMON  /SUMSPL/  TSPU24.10.17) 

COMMON  /PNLD/  PNLU7.2C),  £PM(5,lCj,  TEPNU5.10) 

CCMMON  /GFKEQ/  WK3I49) , PFRECI24) 

CCMMON  /ANGLE/  PSK17.10).  PSICI17.1CI.  eETAll7,!0) 

COMMON  /GPRAM/  ALTP.  ALTR . GRAC,  PO,  NCBS.  X(10)«  If  ENG*  IUNIT. 

* wK4( 493 ) . BCG.  TCG.  FLR  » AALT  . EPP 

COMMON  /GEOMO/  VI10.17).  2M1C.17).  PI10.17).  WK516B0).  TP0U7.1C) 

* * IRR ( 10*17) . WK6(3),  PSO.  TSO»  WK7 (2) » AO,  MK8117 11 
COMMON  /GCUNVC/  wK9(2C),  CX(IO) 

COMMON/ TMSPL /C08 ( 24  » 17), 18(2, 3,131 
CCMMON  /HEAD/  HK10I40),  CHIM20) 

REAL  NBL*  MC,  MT,  MOX,  PTE  * KP,  INCEF,  PE 


AUTHOR-  O.G.  DUNN 
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PURPGSE- 

TO  COMPLTt  THE  RCTLR  NCISE  AS  CEF1NEC  IN  REF.  2 


INPUTS-  VI 

0)  X 

1)  Y 

2)  ZN 

3)  P 

4)  SF 

5)  F 
8)  NFS 

10)  NOBS 

11)  T 

12)  0 

13)  THETA 

14)  NKOT 

15)  NftL 
lb)  DT 
171  A a 

18)  Ot 

19)  RN 

20)  LLF 
211  S 

22)  XC 

23)  XM 

24)  XLC 

25)  MO 
2b)  GRAD 

27)  OELTA 

28)  PSO 

29)  ISO 

30)  AO 

31)  ITR 


COMMON  BLOCKS 

. AIRCRAFT  COORDINATES , REF. I 
. AIRCRAFT  CCCROIN.'.TES,  RfcF.  1 
. AIRCRAFT  CCCROINATES,  RfcF.  1 
. PROPAGATION  DISTANCES, RfcF.  I 

. DOPPLER-SHIFT  FAC  ICRS .REFS.  1 AND  2.  SF  .GT.  0. 

. cutoff- freolenc i es  fcr  passbanc  filters,  hz.  ref.i 

. NUMBER  OF  PASSBANCS.  i .tE.  NFB  .Lfc.  24 
. NUMBER  OF  OBSERVER  POSITIONS.  NCBS  .GE.  1 
. THRLST  PER  RCTCR,  ieF 
. SHAFT  TCRCUt*  FT-LBF 
. SHAFT  SPEEO,  RPP 
. NLMbfcR  OF  MC ICRS 

. number  of  blades  per  pctcr 

. TIP  OIAMETER  * FI. 

. BLAOfc-AREA  IF  RCTLR,  SC. FT.  ...  CNE  SIDE  ONLY 
. MtAN— AXIAL  PRCJECIEC  CHCRC  AT  0.7  SPAN,  FT. 

. DIMENSIONLESS  CEMRCIC  FCR  ECLIVAIENT  POINT  LOAD, REF. 2 
. LOADING-LAW  INDICATOR  * REF. 2 
. LIFI-CLRVE  5LCPE,  REf.2 
. CONSTANT*  C,  IN  LOADING  LAW.  REF.2 
. CONSTANT*  P*  IN  LCACING  LA*.  REf.2 
. CONSTANT*  LC*  IN  LCACING  LAW.  REF.2 
. AIRCRAFT  MACH  NUMBER 
. CLIMB  GRADIENT 

. ANGLE  IN  DEGREES  BETWEEN  THRUST  VECTCR  ANC  HORIZON. 

. STATIC  PRESSLRE*  PSIA 
. STATIC  TEMPERATURE,  CEG.R 
. SPEEO  OF  SCUM),  Fp$. 

. INDICATOR  TL  SPECIFY  IF  THE  RCTCR  BEING  CDNSIDERtD  IS 
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r>  r>  no  oooc~.  ooooooor>rir>oriorv<~'0 


MAIN  ROTOR  CR  TAIL  SCTCR.  II  ECUALS  ZERO  FCR  MAIN  KOTO  CC1PTP 
IS  NUN-ZERC  FOR  THE  VAIL  RCTCR.  COPTK 

CCPTR 

OUTPUT  CCPTK 

U SPL  ...  SOUND  PRESSURE  LEVEL  SPECTRA  IN  CB  RE.  ZO  MICRO— N/SU ,M  COPTk 
AT  FREE-FIELO,  INDEX  (R  = 1 M)  LCNCIUONS.  CGPTh 

2)  »SI  ...  DIRECTIVITY  ANGLES  CCRRfcSPCNGING  TC  EACH  SPECTRUM.  CGPTR 

3)  ItC  ...  ERROR  CODE  I PRESENTLY  TH  3 1»  IS  A LOCAL  VARIABLE)  CGPTR 

I  EC  - C,  NO  ERRORS  DETECTED  COPTk 

I EC  = 1,  FOR  HfcL ICAL-T IP-MACh  NUMBER  .GT.  0.93  CUPTk 

I EC  « 2,  FOR  IME*SIMPSI  )/SF)  .GT.  U COPTk 

I EC  = 3,  FCR  BAD  INPLTS  CuPTh 

CCPTR 

REFERENCE  CGPTR 

1)  D.G.  DUNN, /MASTER  FLCW  CHART  FCR  NASA  CONTRACT  NAS  2-6969  CGPTR 

(PHASE  B)  COMPUTING  RECGIREMEN T$/ , BOEING  C/S  ANS-RES-F-336,  CCPTk 

6 CEC  1972.  CLPTK 

2)  D.G.  DUNN, /NOISE  PRECICIICN  FCR  HtLlCCFTERS,  TILT-ROTOR,  AND  COPTK 

PROPELLER  AIRCRAfT/,  BOEING  C/S  ANS-RES-F-915,  AUGUST  1973  CGPTh 

COPTK 

DIMENSION  G (24 ) , BE  S (130 ) , JU(B),  XJC(B),  DLJIBIt  KM(  A ) CuP'ik 

DATA  P5,K0»Rl,R2,R‘j,RlC,RPD,PI  , SC,RC , AL  , EPS/ .5  ,0  . , 1 . ,2. , 5. , 10. , GoPTk 

♦ 1.  745329E-2, 3.  141593,5.  9 , 3. 2C-C833  , 30.  35433,1.  E-5/  COPTk 

DATA  n,I2,JU  /l, 2, 1, 2, 3,5,7,10,15,21/  U.PTs 

UATA  XJD  /G.  ,.30103,.  <4/71212,  .69897 , .84  5098 , 1 1 . I7o09 1 , 1.322219/  COPTK 

COPTk 

CONSTANTS  KM  ■»  PI/6C,  1.+  CCS(7l  DEG)**2,  4*PI,  10. **.57  COPTk 

DATA  KM  / 5.23 598 BE-2 ,.21698,12.56637,5.715352/  CGPTR 

CGPTR 

ICN(II)  = ICN(ll)  + It  CCPTk 

NANG  * 17  CGPTR 

NRGT  = NENG  CuPIk 

ROTN  = NROT  CGPrR 

ERROR  CHECK  OF  INPUT  ARGUMENTS  UGPJk 

16C  ^ 3 CCPTR 

IF  ( ( T .LE.  RO)  .OR.  (Q  .LE.  PC)  .CP.  (THETA  .LE.  KO)  .OR.  CuPTR 

1 (ROTN  .UT.  HI)  .CR.  t No  L .LT.  R2)  .CR.  (NBL  .GT.  u.)  .OR.  CCPTk 

2 1 0 T .LE.  RO)  .CR.  (At)  .LE.  RC)  .CR.  (Ufc  .LE.  RO)  .CR.  CUPTK 

3 (RN  .LE.  RO)  .OR.  (RN  .GT.  H1I  .CR.  <UF  .LT.  I))  .CR.  CCPTR 

4 (LLF  .GT.  6)  .OR.  (S  .IE.  RCi  .CR.  (XG  .LE.  RC)  .OR.  <XM  .LE.  KG)  CCPTk 

5 .OK.  (MO  .LT.  KO)  .CR.  (MC  .GE.  fll)  .UK.  (PSO  .LE.  PO)  .CR.  CUPTK 

6 I TSC  .LE.  RO)  .OR.  (AG  .LE.  PC))  GC  TC  135  CCPTK 

OC  200  1 = ],NANG  CUPTK 

IT  ( SF  ( I)  .L(  . RC)  GO  TC  13‘-  CCPTK 

20C  CONTINUE  COPTK 

XX  = CCPTk 

N = NF3  * It  CUPTK 

DO  210  ( = l »N  CCPTR 

IF  (F(l)  .LE.XX)  GC  TO  135  CCPTk 

2IC  XX  * F(I)  Cr(PTK 

COPTk 

INITIALIZATION  COPTk 

IF  (ITK)  ?U,  213,  211  COPTk 

211  ALFA  = 1.57079 6 COPTK 

CO  212  I = 1 « NANG  COPTK 

DC  212  J = 1»NU8S  CUPTK 

PSI(I,J)  = ACOSIXIJ)  / P(J,I))  ♦ 57.29578  CCPTk 


9C 

91 

92 

93 

94 

95 

96 

97 
9E 
99 


»-  - -•-“  »vv«. 


212 

CONTINUE 

coptk 

lit 

GC  TO  214 

cgptk 

117 

212 

AN  = DELTA  * RPD 

CGPTk 

lie 

ALFA  = AN  - ATAN (GRAO) 

CGPTk 

119 

CALL  ANGLESINUBS*  AN) 

COPTk 

120 

2H 

VI  * KM{  l)  * THETA  * OT 

CUPTR 

121 

MT  = VT  / AO 

CGPTK 

122 

MCX  » MC  * COS(ALFA) 

COPTR 

123 

SMOX  = M0X*M0X 

CGPTR 

124 

XX  » MT*MT  ♦ M0*M0 

COPTR 

125 

YT  = MT*MO  * SINTALFA) 

COPTK 

126 

MTE  * (XX  * (XX*XX  ♦ 6. *YY*YY)  )**. 1666667 

CGPTK 

127 

IF  KMTE  .It . RC)  .OR.  (MTE  .G7.  0.931) 

GC  TC  130 

CGPTK 

126 

A * R 1 ♦ MTt 

COPTR 

129 

0 3 R l — MTE 

COPTR 

130 

C * R2  * ALOG ( A / B) 

CGPTR 

131 

VTE  * AO  * MTE 

CGPTR 

132 

K = P5  * RN  * OT 

CGPTR 

133 

HC  * 0 / IT  * R) 

COPTk 

134 

ME  * KN  * MT 

COPTk 

135 

XX  = ME*ME  ♦ MO*MO 

ccptk 

136 

YY  = ME  * YY  / MI 

CGPTR 

137 

Mt  = (XX  * <XX*XX  ♦ 6. *YY*YY) >**.1666667 

CGPTR 

136 

VCX  = AO  * MOX 

COPTK 

139 

SVOX  = VCX*VCX 

CCPTR 

14C 

V = C.7  * VI 

CGPTK 

141 

XX  = V*V  + ( AG*MC) **2 

CGPTk 

142 

YY  = V * YY  / (RN  * MT) 

COPTR 

143 

V = (XX  * (XX*XX  ♦ 6. *YY*VY) )**. 1666667 

COPTK 

144 

l 

CS  a R 1 

CCPTK 

146 

TMP I a R 5 

COPTR 

146 

GC  TO  ( 10.  2.  3.  4.  5,  6),  LLF 

CGPTK 

147 

2 

SOT  = UT*OT 

COPTK 

148 

VI  = P 5 * (VOX  ♦ SGRT ( SVCX  + Ai  ♦ ISO  * 

T / (PSO  * SET))) 

CGPTR 

146 

SIG  = 1.2732395  * AO  / SD I 

CGPTK 

150 

XM  = 1.3  ♦ 0.4076  * 4 V I * SC  / (S  * SIG 

♦ VT)) 

COPTR 

151 

TMPI  = Rl  ♦ XM+XM 

COPTR 

152 

GG  TO  1C 

CGPTR 

153 

3 

CS  = C. 7396 

CGPTk 

154 

TMPI  = 3.86 

coptk 

156 

GC  TO  10 

CGPTR 

156 

A 

CS  = 193d. 

CGPTK 

157 

HC  = 36. 

COPTk 

158 

GC  TO  1C 

COPTK 

159 

5 

CS  = 595.36 

CUP  TR 

16C 

HC  a 30. 

COPTR 

161 

GC  TO  10 

COPTk 

162 

6 

CS  a XC*XC 

ccptk 

163 

TMPI  = Rl  ♦ XM+XM 

COPT* 

164 

HC  = XLC 

COPTR 

165 

10 

CONTINUE 

COPTK 

166 

FVT  a c.28  * V / OE 

CGPTK 

167 

HOT  = NBL  * THETA  / 60. 

CGPTK 

168 

U V T = VIE  * T 

COPTK 

169 

UVT  = UVT*LVT  / ( A8  * KM(2>) 

COPTK 

17G 

URT  = ME  * T / I KM (3 ) * RC,  * «} 

CCPTk 

171 

HCT  = HO  / ME 

COPTK 

172 

62 


- j ^*A*vic*r»s*  -*,  < 


m$:-  \ 


■ 


IEC  -*  0 


LOUP  FOR  EACH  QbSfRVER  POSITION 
00  lib  JJ  = 1 ? NOB S 

CALL  L INCCR ( CUB (1,1)  , 0 ,0 ,D  ,0 , 0 , 0 ,C ,0 .0 ,0 .PS I 1 1 , J J) . NF8 , BCF , 
* D,D,D,D,U,D,0, ICCR. Ulli ItITVPE) .0.0) 


LOOP  FUR  EACH  ANGULAR  POStTION  RELATIVE  TO  FLT.  PATh 
DC  110  II  = 1 .NANG 


FVT  / SFU1) 
EOT  / SFlin 


uvi  / st'tin 

CRT  / lSF(m*SF(IIJ) 
HOT  * SFlin 


CALCULATE  VORTEX  NUlSE  PRESSURE  SPECTRUM  ShAPfc. 


Fin  / FV 
K = l.NFB 
F(KH)  / FV 
A * SI 
8 * SI 
A * Si’ 

B * S2 

= ALUuUtfU  *■  AS2*AS2)  / IR1  + 8S2*BS2>)  * IR1  ♦ BSl*BSl> 


* / i R 1 ♦ ASIAaSU  ) / C 
15  Si  = 52 

XX  = PSIl  l I ,J.I)  * RFO 
LPSI  = COSIXX) 

3PSI  * SmRTIRI  - CP5I*CPSI) 


FINISH-UP  VORTEX  NOISE  PRESSURE  SPECTRUM  CALCULATION 
PCA  = KMIAJ  * UV  * (0.  i ♦ CrSi*CPSn 
CC  20  K = l.NFB 
PS(K)  = ?UA  * U(K) 

20  CCNTlNUb 


ROTATIONAL  NOISE  CALCLLA T ION 
UO  = ME  * SPSl  / SFIII) 


IF  (00  .11.  Rl)  GL  1C  AC 
CG  3C  K = l.NFB 
SPUR. ID  = KC 


SPUR, ID  = RC 

3C  UCN I IN  Of: 

IEC  = 12 

CALL  ERROR ( l TYPE  » 3.  16) 
GU  TO  11C 


FORM  HARMONIC  LEVeL  DATA  CURVE 
AC  DO  60  K - L , 0 

N = JUIK)  * IFIXINBL+P5) 
NPl  = N >11 


N 

FN  * QU 
FN  - XX-  P5 
MAXOILl,  11) 
FN  *•  XX+  P5 


CALCULATF  BESSEL  K.NCTICNS 


CUPTR 

173 

COPT* 

WA 

COPTk 

175 

COPTR 

176 

UUPTk 

177 

ULPTk 

.78 

CuPTR 

179 

coptr 

1QG 

coptr 

181 

COPTR 

182 

COPTk 

183 

COPTR 

18A 

COPTR 

155 

Cf-PTR 

ibo 

t.uPTR 

167 

COPTk 

1 ofc 

uQPTk 

ld5 

COPTk 

19C 

UUPTk 

191 

COPTk 

190 

COPTR 

193 

COPTk 

199 

CUPTk 

195 

coptr 

156 

Ciit'Tr 

15  7 

COP  Ik 

15  8 

Cl'P’iR 

159 

COPTk 

20U 

UOPTh 

2 Ci 

COP  Tk 

202 

UcPTr 

203 

COPTk. 

2ija 

COPTk 

205 

CuPTk 

2Ct 

CCPTk 

207 

COPTk 

2G6 

COPTR 

205 

CUPTk 

21C 

COPTk 

211 

CUPTR 

212 

COPTk 

213 

C(  ptr 

2 l A 

COPTk 

2 i 5 

COPTR 

216 

U'PTR 

2 i7 

Ci. PTR 

218 

Cc  PTR 

219 

CUPTR 

^8C 

COPTk 

221 

coptr 

222 

COPTk 

223 

Ot  pTk 

22A 

COPTK 

225 

COPTR 

226 

COPTK 

227 

COPTR 

22e 

COPTR 

225 

I?";' 


CALL  JBE  S ( XX  »NP l » EPS  * BES) 

SUM  LOADING  HARMONIC  NOISE  CCMPCNENTS 


AN  = (CPSI  - HO) 

AN  = AN+AN 

DLJ ( K 5 = AN  * AN 

DO  50  L * Ll»LN 
FI  = L 

NML  = N - L 
J - I ABS(NML)  * 
AN  = (CPSI  - HO 

HN  = AN*AN  * CS 

IF  (LLf  .GT.  3) 

50  OLJ(K)  * DLJ(K) 
FL  = UR  * FLOAT ( 
DLJ(K)  = 124.5  7 


BES(NPl) 


60  CONTINUE 


= (CPSI  - HO  * FLOAT ( NHL ) t FN)  * 

= AN*AN  * CS  ♦ FL** (— TMPI ) 

(LLf  «GT.  3)  HN  = HN  / <R1  ♦ (HC 
K)  * DLJ(K)  4-  HN 
= UR  * FLOAT ( JD ( K) ) 

Ki  = 124.57  * R1C  * ALCGIC (DLJ(K) 


* 6 E S ( J ) 

(HC/FLI* (HC/FL) ) 


FL*FL) 


NOw  THAT  DATA  CURVE  IS  FORMED,  ACC  TONES  TC  VCRTEX  NOISE  SPECTRUM. 
Nl  3 R1  ♦ F ( 1 ) /FO 
DC  IC5  I = l.NFB 
N2  = FUU)  / FC 
IF  ( N2  - Nl)  5C,  7C,  7C 
7C  DC  8C  J = N1,N2 

XJ  = ALOGIO(FLOATIJ) ) 

«o  ccmi’nuf"  fi,U  * K‘C"'-‘  * muujl  cu.  1.  «>» 

5C  XJ  = P S { I ) * RCTN 
IF  (XJ)  IOC,  ICC,  55 

55  SPL(Ifll)  = R 1 C * ALOGIO(XJ)  - CCb(I,Ii) 

GCPrOi[o*,lii  * Pv'fiStN  ,tSPL  (I , JJ,i 1)  , SPL(Iyli)) 

IOC  SPL(  I, II)  = -COB ( I , II ) 

LC5  Nl  = N2  ♦ I 1 
UC  BETA!  (I,  JJ)  [ NDEf 

IF  ( IPRTt  7)  .NE.  7)  GO  TO  1C6 

^CALL  NUISOI IPRT ( 7) , J J, NK , l C ,CH N , ILNIT,CX( JJ)  ,PFREC,SPL(  l,  1),NFB, 

106  CONTINUE 

DC  107  J » 3 ,NANG 

DO  IC7  I = l ,NF8 

10?  SPLlltJ ) = SPL ( I , J ) - XDB(I,Jj,j) 

IF  ( l PRT( 3)  .HZ*  3)  GO  TO  115 

CALL  PNL  SUB(SPLllfl) ,PNL(l»JJ) , 1 f 0 ( l , J J) , E PNL ( l , JJ) , SPL2, 

* , , ft- PNL  < l»JJJ»NK»BC('»TCG,fLR»JJ,NC6S,IRR(Jj,l)j 

CALL  NO  I SOI  IPRTI3)  , J J,  NK,  12  ,CF  I N , I INI  I , Cx  ( JJ ) ,PFREU,SPL(  l,  l),NfB, 

* ITYPE) 

115  CONTINUE 

12C  RETURN 

13C  (EC  - II 

135  CALC  ERROR! ITYPE ,3,8) 

GC  TO  12C 
END 


COPTR 

23C 

COPTR 

231 

COPTk 

232 

COPTR 

233 

COPTR 

23  A 

CCPTk 

235 

COPTR 

236 

CCPTk 

237 

Ccptk 

238 

COPTR 

235 

COPTR 

240 

COPTR 

241 

COPTR 

242 

CUPtR 

243 

COP  TR 

244 

COPTk 

£45 

COPTR 

2h  t 

COPTk 

£47 

COPTK 

248 

COPTK 

249 

COPTk 

25c 

COPTR 

25 1 

COPTR 

252 

COPT* 

252 

COPTK 

254 

COPTR 

255 

COPTR 

2afc 

COPTR 

257 

COPTR 

25b 

COPTR 

255 

COPTk 

26L 

COPTR 

261 

COPTR 

£62 

COPTK 

263 

CUPTR 

264 

COPTR 

2c  5 

COPTR 

266 

CCPTK 

267 

CCPTK 

268 

COPTk 

269 

COPTk 

27C 

COPTK 

271 

COPTk 

272 

CUPTk 

273 

CCPTk 

2 74 

CUPTR 

2 75 

CCPTk 

27fc 

CCPTK 

277 

COPTR 

278 

CCPTk 

275 

COPTK 

280 

COPTK 

281 

CUPTk 

2b2 

64 


^r? ' - ~c\  t „■  ■. 


- **£*& 


<*■  ’’ , ^ a 
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c 

c 

c 


c 

c 

c 


c 

c 

c 


c 
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SLBRGUT INE  CUREN 

COMMON  /COREIN/  TT3,PP3»CMF3  »EK3 ,CELT3 ,363, 

* IC0R3,LIN3,NTF3, IMA3 ,LGM3 ,N*L3  , ICP3 , 1 LA Y3 , TF3 ( 10 ) , 

* PCTA3C 10),PLA3(IC) ,ELCH3 ,ECH3  ,R IR3 ( 10)  *TL3 (10) »CF3»FM3 
CLMM0N/TUR8IN/BN3 , SS3*VTR3»ClS3,LT3,TU3»PMf3»C$3,lC3,I$w3 

VARIABLE  SET  CALCULATED  IN  TEE  PROGRAM  PROCESSING 

COMMON  /GCOMON/  NCF  ,NK  ,BCF ( 24 I , T SFL( 24 , 10 , 17 ) ,SPLT ( 24 , 17  ) , 

*B0F(  25),RETA(17)  ,SPL2U7)  ,TGAGR(24)  ,CGPSF<17) 

GENERAL  INPUT  PARAMETERS 

CCMHON  /GPRAM/ALTP,ALTR, SLOPE ,A MACH  *NCBS ,SLD  1ST  (10 1 » NT ENG,  IUMT 

* , l SP  TRM, l ATMOS  * l A I K » CAI RA 8 1 24 ) ,MEMP  ,TEMP  (SO  ) , T ALT  ( 50  ) 

* ,NPRES,PkbS(50)  ,PALT(50J t NHL N IC , HALT ( 50 ) ,RHUM I Cl 50 ) , CT BMP 

* ,CPRES,CKHUMO, IEGA , I GOR.CTE M F ,DPRE$ , OHGM I C ,XKN, NO , FLO( 50  ) , 

* ZNKl 50) ,ZNI (50) ,LINECT,MAXLIN, I PAGF  ,0CG , TCG ,F LK , AAL T , EPF 

AIRCRAFT-OBSERVER  GEOMETRY  CITFLTS 

COMMON  /GEOMO/  AP Y ( 10 , 1 7 ) . APZ ( I C . 1 7) , PC ( 10 , 1 7 ) , DPND ( 10 , IT ) , 

* 61(10, 1 7 >,82(10,17) . TUS (17.10) ,TFD( 17.10)  ,1RR(10»I7> 
*,APP,TP,RHP,APO,TC,RHC,CA,CZ,TSFM7,lO)  ,CC  V 


COMMON /SWJ  TCH/NTYPE,1TYPE,NENG»ICCP,IPRT(7)»ICN(  13),NLCPT 

*,  INSEO*( 3 ) , INSHLD 
CCMMON/SLMSPL/SSPL (24 ,10,17) 

COMMON /PNLO/PSPL  (17,2  0 ,EPNL 1 5 , 1C ) ,T E PNL ( 5 , 10 ) 

COMMON/ ANGLE /PS  I ( l 7,10)  , PS  I 0 ( 17 , 1C ) , 0L T A ( 1 7 , 10 ) 

CCMMCN/HE AG/HI N (20  ,HCLT(2C)  ,CHIM20) 

COMMON /GFKEw/CFktl)  (24)  ,UFREC(25)  .FFRECI24) 

COMMON /GCON VC/C (2,10)  .SLDISXllG) 

CUMM0N/IMSPL/SPZI24,17) ,18(2,3,13) 

CCMMCN/UNSHLO/USPLAI 19)  ,F  S I I IS  ) , MSPL  , I NuSP 
C0MMUN/CRSPLS/U08I  17) ,PSCR ( 17) ,CFfi  (408)  ,NPSCR 
DIMENSION  PS3(  13)  ,F3(  13)  ,SMI24)  ,F2SM24) 

OMEN  SIGN  FI  1(8)  ,FD1 1 6)  , F 12  ( 8)  ,FC2 16  ) , T8  i ( 24 ) ,TB2  ( 8 ) 

DIMENSION  TT  3 ( l ) 

DATA  V03/l./,RM3/i./,CC3/ill6./ 

DATA  FD1/-21..-13. ,-4. ,- 1 . 5 , C . 1. 5 ,-9  . 19.  / 

DATA  FI 1/4C. ,60. ,9C. ,10C. ,11C. ,120., 140. *160./ 

DATA  F O 2/—  28.,  — 22.,— 6. ,— 2.5,C. 2.5,— 8. , — 26*/ 

DATA  FI  2/40.,  50., 91., ICO., 11C. *120., 130.  ,loO./ 

DATA  T81/7*0.«5*«l,2*.2,.3,.4,*5,.6,.8,1.2,l.4,2.,2.9,4. 2/ 

DATA  T82/3*C.,.1,.2,.5,1.2,2.2/ 

DATA  RPD/1. 745329 fc-2/» DPR/57. 29578/ 

DATA  PS3/40. ,50. ,6C. ,7C.  ,80.  ,9C . , 100. , 1 1 C.  ,120.  , 

^ 1 3C . , 140..15C..16C./ 

DATA  F 3 /—  7.7,— 6.2,—  5. 3,— 4.5,—  3.4,—  2.0,  — C. 9,0.  ,.2 ,.3, « 1,—  . 1,  — .2/ 
DATA  SN I /-2.0, -1.695,-1.5229,-1.3979,-1.30103,-1.2218,-1.1549, 

1 - 1.0 706, -l.C,-C. 8235 1 ,-C. 69857, -0.52288,-0. 39794, 

2 -0.30103 ,-0.221 85 »-C. 1549, -0.07058,0.0,0. 17fc09,0. 30 lu3, 

3 0. ‘,7712, C. 602  06,0.65897  ,2.30103/ 

OATA  F2SN/- 38. 2 ,-29.7,-24.7,-21. 1 ,-18.4 16. 3 ,-14. 7 ,-12. 5,-1 1.0, 
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CCREN 
COREN 
oOREN 
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4 

5 
fc 

7 

8 
5 

10 

11 

12 

13 

14 

15 

16 

17 

18 
iS 
20 
21 
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25 

26 
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32 
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45 

46 
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50 

51 

52 

53 

54 

55 
5c 
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O O Cl  o 


I -7. 8.-6. 3, -5. 3, -5.2,-5. 5. -5.8. -6.2, -6. 8, -7. 3, -9.2. -10. 8, 

COREN 

59 

2 - 13.3, -15. 3 »- 16.9, -95. C / 

COREN 

60 

ICNt  3 1 = ICN13 1 ♦i 

COREN 

61 

CLS=CLS3 

COREN 

62 

VTR= VTR  3 

COREN 

63 

IF(  I S Wi 3 .EG.  21 F8PF*555.  / SQR HCMF3  ) 

COREN 

64 

I F< I SW3  ,EQ. 3IFBPFX8N3*SS3/6C.C 

COREN 

65 

IF(  ( ISW3  .NE.  2)  .AND.  (ISti3  .NE.  3»  1 FBPF*SCRT  19.25*8N3ASS3/ 

CUREN 

66 

* SQRTtCMF3) ) 

COREN 

67 

DELTX=0ELT3*ftP0 

COREN 

68 

CALL  ANGLE St N08S> DELTX) 

COREN 

69 

XENG=NENG 

COREN 

7C 

A Jx2  1.7 

COREN 

71 

IFCJ83.EQ.2)  A J*3C. 7 

COREN 

72 

CCREN 

73 

TEST  FOR  SHIELDING  AND  EXIT  7C  FRIM  CUT  k 1 KG 

CLkEN 

79 

SHIELDING  DATA  ONCE  FCK  ALL  SIDELINE  POSITIONS 

COREN 

75 

COREN 

76 

I F t INSHLD .NE.OICALL  M SHCLT 1 1 PRI 17 > .10 1 1 1 YPE ♦USPLA.NUSPLt FSI , INUSP ) 

CCREN 

77 

DO  3CC0  I = I «NU8S 

COREN 

78 

CALL  LINC0RISP2C1.1I , I MA3 ,LGP3. E LCH3 ,E0H3 ,N*L3 ,R IW3, 

CCREN 

79 

* TL3. 1LAY3.FN3.I0P3.PS! (l.II.NCF ,8CF , PLA3 ,LF3, PCI  A3 , 

COREN 

8G 

* NTF3»  TF3.U0PSF . SPL2 . IC0R3 ,IB(1«1.ITYPE)«L1 N3 .FePF ) 

COREN 

81 

IFC  I SN3  . tQ. 2 )G0  TO  95C 

COREN 

82 

IF(VTR3.E(l.0.IVTRx.7*3.l4l5926*SS3*0T3/6C. 

CCREN 

S3 

lF(CLS3.EQ.O.)CLSx48.5*Si)RTl1t3> 

COR  FN 

89 

00  10  J=l,17 

CCREN 

85 

1C  SPL2(  JI=8N3»SS3/C6C.*DCPSFUn 

COKEN 

66 

XNCFxNCF 

COREN 

87 

10  • /XNCF*AL0G1 CC8LFCNCF+11 /8LF (1)1 

CCREN 

86 

DO  9C0  J=l» 17 

COREN 

89 

TEMP  1-10.*ALLG10( IVTR*CC3/IVC3*CLSH •*3*PPF3/RM3* 

COREN 

NO 

* rt/OOPSFC 

COREN 

91 

* ♦ TBLUltPSK  J,n.FIl,FDi,l,ei-lC. 

COREN 

92 

DC  100  N- 1 .NCF 

COREN 

93 

eSPL*ALOG10( 8LF(N> /SPL2C  J) » 

COREN 

99 

TEMX*8SPL 

COREN 

95 

aSPL»TEMPl-20.*TEMX 

COREN 

96 

l Ft TEMX.LT.O. )BSPL*TEPF1*10.«TEPX 

COR  EN 

97 

TGAGR<NI=1C.**( . l*BSPU 

COREN 

98 

100  CONTINUE 

CCREN 

99 

COREN 

IOC 

TEMP2=10.*ALCG1C( ( VTR/ VC3 > •*. 6* < CC3/CLS 1 **3* ( PRF3 

COREN 

1G1 

* /RM31*CS3/D0PSF t 

CcKEN 

1C2 

* ♦ TBLOltPSIlJ.I ).FI2.FD2.1t8)  ♦ 56. 

COREN 

103 

XK3=Q. 

COREN 

109 

IFC IC3.NE.01XK3=-1C. 

COREN 

105 

TEMP2  = TEMP2*-XK3 

CCKEN 

1C6 

C3=. 16TEMP2+1. 

COREN 

1C  7 

125  CCNTINLE 

COREN 

108 

ESN=ESHLOGtPSIOt J.t) ,8tTAtJ,ll  ,XENG» 

COREN 

109 

Nl=l.*BUFt 1I/SPL2IJ) 

COREN 

110 

DO  20C  N=1,NLF 

COREN 

111 

N2-BUFIN+1I /SPL2I J) 

COREN 

112 

IFC tN2-Nl).LT.0)G0  TC  175 

COREN 

113 

IFtNl.GT.lOIGU  TO  175 

COREN 

119 

DC  150  K=M,N2 

CORtN 

115 

66 


XK=K 

( cN 

116 

150 

IGAGR(N)=TGAGR1N)+10.**(C3-X*0 

COREN 

117 

175 

SPLT(N» J)=TGAGR(N1 

COREN 

118 

IFCSPLT(N»JI.LE.0.JG0  TC  176 

COREN 

119 

SPL7(N>J)*l0.*ALGGlC(SPLm.J) ) 

COREN 

120 

176 

N l=N2+ 1 

COREN 

121 

18C 

CCNTINUE 

COREN 

122 

IFINCF.EQ.291GO  TO  19C 

COREN 

123 

D8=TB2(N) 

COREN 

129 

GC  TO  195 

COREN 

125 

190 

OB=TBHN) 

COREN 

126 

195 

SPLT(NiJ)  = SPLT  CN»  J)  4-DB+33. 2-ESN-SFZ ( N»  J) 

COREN 

127 

200 

CONTINUE 

COREN 

128 

900 

CONTINUE 

COREN 

U9 

C 

COREN 

130 

I F( INSHLD .NE .0. AND. 1 Sta3.EQ«3)CALL  SHIDSP ( AHACH, AiTR, ISPTRM.CZt 

COR  EN 

131 

* SLDI  ST»I*APYtAPZ»DCPSF*SPLf»NCF,BCF*SPZ*PSI#ITYPE*Ufc'LT3*  ISW3 1 

COREN 

132 

C 

COREN 

U3 

I FI  I Sta3.EQ.3iG0  TO  2010 

COREN 

139 

c 

COREN 

135 

950 

CCNTINUE 

COREN 

136 

C 

COREN 

137 

00  2000  J=l,l7 

COREN 

138 

ESN=ESHL0G(PSI0{J#I1 .BETA l J , l ) ♦ XENG) 

COREN 

139 

FlPSI=TBLUllPSI(J»l)»PS3»F3fl#131- 

COREN 

190 

OA  = 10«*AL0G10 ICMF3*TT3  1 1 1 »TT3  1 1 )•  * PP3»*3  / I DCPSF I J )*DOPSFC J ) ) ) 

CCREN 

191 

1 ♦ F1PSI  * AJ  ♦ EK3 

COREN 

192 

SNTZ^iSSC./IDOPSFI J)*SCRT I CPF 3) ) 

CCREN 

193 

975 

CCNTINUE 

COREN 

199 

00  1000  K«l »NCF 

COREN 

195 

SNT=8CF(K)/SKTZ 

COREN 

196 

SNL=AL0G10(SNT) 

COREN 

197 

F2SNl=T8LU(SNL.SNl  ,F2SN,1,29) 

CCREN 

198 

IFINK.EQ.3)  F2SNI =F2SNI-9.8 

COREN 

199 

I £MPXX  = SPLT<  K»  J ) 

COREN 

15C 

C 

COREN 

151 

SPLT  ( K»  J )=QA*F2SNI— E SN-SPZ I K * J) 

COREN 

152 

IFUSta3.EQ.21GO  TO  9£C 

COREN 

153 

SPLT IKtJJ-PtaRSUMlSPLT(K»JI  .TEPFXXI 

CCREN 

159 

980 

CCNTINUE 

COREN 

155 

1000 

CCNTINUE 

CGREN 

156 

2000 

CCNTINUE 

COREN 

157 

C 

COREN 

158 

IF! INSHLD.NE.O)  CALL  SHIOSP ( AMACH, ALTR. IbPTRM.CZ. 

COREN 

159 

*SLDlST#l*APY»APZ»DCPSF»SPLT»lsCF»8CF»SPZfPSI»ITYPE»DELT3i  ISH3) 

COREN 

lftC 

C 

CCREN 

1 6 1 

20 1C 

OG  2050  J=l» 17 

COREN 

162 

00  2050  K=l,NCF 

CGREN 

163 

2050 

SSPLIK.I , J)=PtaRSOR I SSPLIK.I  ,J)  .SFLTIK.J)  J 

COREN 

169 

C 

COREN 

165 

210C 

IF(  IP«T(7).NE.7IG0  TO  22CC 

CCREN 

166 

CALL  NO  1 SO ( IPRT I 7) . I ,NK, 10.CH I N . ILNI T, SLC I SX III .PFREC, 

COREN 

167 

l SPLT(l.l)  .NCF.ITYPE) 

COREN 

168 

220G 

CCNTINUE 

COREN 

169 

OC  25CC  K=1»NCF 

COREN 

170 

DC  2500  J=1»17 

CCREN 

171 

250C 

SPLTlK,Jl=SPLTtK,J)-TSPLCK,I,JI 

COREN 

172 

67 


IF( IPRT ( 3 ) . NE .3 )GQ  TO  3000  COREN 

CALL  PNLSUS4  SPCT (1*11 *PSPL ( i t I ) «TP0(1»I)»EPNL(1»13*  SPL2«  COPEN 

* TEPNLI 1» l ) »NK  «BCG» TCGtFLR*  I *N08S t IRR4  I dl)  COREN 

CALL  N0IS0UPRU3)  ,1  .NK»12,CWIK,ILMT#SLCISXU),  COREN 

L PFREQ.SPLTIltl) .NCF.ITYPE)  COREN 

300C  CONTINUE  COREN 

RETURN  COREN 

END  COREN 


ooooooooooooonoo 
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CORSPL 
CORSPL 
CCRSPL 
CORSPL 
CQRSPl 
CCRSPl 
CuKSPl 
CCRSPL 

THfS  ROUTINE  ALIGNS  08  CCRRECTICN  TABLES  TO  BE  PLACED  ON  FIlE  COR:,Pl 


UFOATtO  PER  CASE  PER  CONFIGURATION  PER  NCISt  COMPONENT  CORSPL 

CORSPL 

INPUTS  CCRSPl 

curspl 

I CUR  = 1 17  VALUE  TABLE  IS  BLILT  FOR  A SINGLE  08  CORRECTION  P CORSPL 

ANGLE  FOR  ALL  BANOS  CORSPL 

= 2 24,NPSCR  CR  8,NFSCR  TABLE  CF  CB  cCRRECTIONS  TO  ALL  CCRSPl 
FUR  BCTH  URECTI VI  TV  ANO  SOUND  LEVEL  CHANGES  CURSPL 

NB  NUMBER  CF  FRECLENCY  BANDS  24  CR  8 CORSPL 

PAI1-17)  17  DIRECTIVITY  ANGLES  CORSPL 

CURSPL 

OUTPUT  CCRSPL 


SUBROUTINE  CURSPL I IC0R,1B,NB,PA,SF) 

C 

COMMON  /GCOMLW  NCF »NK ,BCF (24 ) , TSPU 24 »1C  , 17 ) ,SPLTl 24, 17) , 
*8UF(25),R£TA(17)»SPL2(l7),TGAGR{24)»GOPSMl7) 

CCMMON/I CPA  TH/NCAS  ,NCCF  »NTYP,1C»NPN»IARAAY(2) 
CGMMCN/CRSPLS/DOI 17) ,P$( 17) ,CP(4C8) .NPSCR 
COMMON /SWITCH/NTYPE,! TYPE 


SPI24.17)  ARRAY  CF  CB  CCRRECTICNS 
DIMENSION  IB  12, 3) ,U3T<24,17) #DC T ( X?) , PST 1 17) ,SP(24, 17) , PA( 17) 
DIMENSION  RBUX(IC) 

DIMENSION  RBUF ( 14) 

DIMENSION  0SPLI24)  ,OBN  117)  ,BM24) 

C360  REAL*8  FNAM 
C 

C MASS  STORAGE  (RANDOM  DISK  I/O)  INCECES,  COUNTER,  AND  FLAG 

COMMON  /MS  10/  1NDXK4C),  INDX2I3),  INDX3(3o),  ICl,  ICPFN 
DATA  IL1,  IL2,  IL3,  IRR  /40,  3,  36,  C/ 

DATA  ET/1.2E— 3/ 

DATA  IOP/O/ 


CORSPL 

CCRSPL 

CORSPL 

CCRSPL 

CCRSPl 

Curspl 

CORSPL 

CORSPL 

CCRSPL 

CURSPL 

CORSPL 

COkSPL 

CORSPL 


IRP-l 


CORSPL 


2 GG= l CORSPL 

IF(  IUP.NE  »0)G0  TC  1 CORSPL 

N«l.  CORSPL 

IF(NB.EQ.24)h=.3333  CORSPL 

00  10C0  J=1 » 1 7 CORSPL 

100C  0BN(J)=l.442695C41*ALCG(CCPSF(J))/V  CORSPL 


IOP=I 


CORSPL 


NRN= 1 CORSPL 

ICl  = 1 CORSPL 

C360  CALL  GETPAR(FNAM, I)  CORSPL 

C360  CALL  OFF  INE( 13, FNAM,  6SPLC0R  £,NPN,14Q)  CORSPL 

C CURSPL 

C OPEN  RANDOM  DISK  FILE  13  ANO  SET  FLAG,  ICPEN,  TC  INDICATE  THE  FILE  CCRSPL 
C IS  OPENEO.  CORSPL 

CALL  LPENMS113,  INDXI,  ILi,  C)  CCRSPL 

IOPFN  = 1 CCRSPL 


C CORSPL 

C TURN-OFF  FATAL  REAO  ERRUR  78  ANO  79  SENSE  SWITCHES  AND  TURN-ON  ClRSPL 

C ERROR  COUNTER,  IRR  CORSPL 

1 CALL  ERRSETdRR,  l)  CORSPL 

I F ( I iH  1 , NCOF ) .£ w. 0 ) GO  TO  5 CuRSPL 

IR-IBI  1,NC0F)  CORSPL 


2 

7 

4 

5 
t 

7 

8 
9 

1C 

a 
12 
12 
14 
lb 
lo 
) 7 
lb 
IV 
zO 
z i 

1 -7 

23 

24 
2b 
2o 

27 

28 

29 

30 

31 

32 

33 

34 

35 
3fc 
37 
3b 

39 

40 

41 

42 

43 

44 

45 
4t 
H? 

46 

49 

50 
31 

52 

53 

54 

55 

56 

57 

58 


69 


IGO=2 

CORSPL 

59 

IF  ( IK-  l J 20,  20,  50 

CORSPL 

60 

C BUILD  CORRECTION  TABLES 

CORSPL 

61 

5 CONTINUE 

CORSPL 

62 

I B C l,NCOF )*1CQR 

CORSPL 

63 

C 

CORSPL 

64 

C SAVE  MAJOR  INDEX  COUNTER  IN  STORAGE  FRCVIOEC  8Y 

NOISE  COMP.  ROUTINE 

CORSPL 

65 

IBI2,NCl)F)  = IC1 

CORSPL 

66 

C 

CORSPL 

67 

C IBM36C 

CORSPL 

66 

C360  IB( 2 , NCOF ) * NRK 

CORSPL 

69 

IF  ( ICOR-I)  10,  10,  AO 

CORSPL 

70 

10  CONTINUE 

CORSPL 

71 

c 

CORSPL 

72 

C IBM360 

CORSPL 

73 

C 14  NRN  = IB! 2, NCCF ) 

CORSPL 

74 

C360  WRITE! 13, 15  MODI J) ,J*l,NPSCR) 

CORSPL 

75 

C360  WRITE! 13,15)!PS!J),J*1,NPSCR) 

CORSPL 

76 

C 

CORSPL 

77 

C INITIALIZE  MINOR  AND  MAJOR  INDEX  CClMERS 

CCRSPL 

76 

14  NRN  = 1 

CORSPL 

75 

IC1  = IB(2,NC0f) 

CORSPL 

8C 

IF  I IGO  .GT.  11  GO  TO  105 

CORSPL 

81 

C 

CORSPL 

82 

C ZERO  CUT  MINOR  INDEX  BEFORE  WRITING  CN  DISK  FOR 

1ST  TIME  FCR  THIS 

CORSPL 

82 

C NOISE  COMPONENT 

CORSPL 

84 

55  DC  ICO  J * 1, IL2 

CORSPL 

6.5 

INDX2IJ)  = 0 

CORSPL 

86 

IOC  CONTINUE 

CORSPL 

87 

C 

CORSPL 

88 

C S FT  INDICATOR  TO  WRITE  AT  ENO-CF- 1 NFCRMAT ICN 

CORSPL 

69 

Iw  = c 

CORSPL 

90 

GC  TO  no 

CORSPL 

91 

c 

CORSPL 

92 

C SET  INDICATOR  TO  uRITE  IN-PLACE 

LORSPL 

53 

IC5  IW  = 1 

CORSPL 

94 

C 

CORSPL 

95 

C USE  MINOR  INDEX 

CORSPL 

96 

11C  CALL  ST  iNDXi 13,  IN0X2,  112) 

CCRSPL 

97 

ENCODE!  140,1 5, RBLF  HOC  (J)  ,J*1,NFSC  R1 

CORSPL 

98 

15  FuRMAT! 17F8. 3,4X1 

CORSPL 

59 

C 

CORSPL 

ICC 

C WRITE  DATA  ON  DISK 

CORSPL 

101 

CALL  wR I IMS (13,  RBUF , 14,  NRN,  IW) 

CORSPL 

102 

NRN=*NRN+1 

CORSPL 

103 

ENCODE  ( 1^0, 15,  RBUF)  (PS  ( J)  , Jd.NFSCR) 

CORSPL 

1U4 

CALL  WRITMSdJ,  RBLF , 14,  NRN,  IW) 

CORSPL 

105 

C 

CORSPL 

106 

C USE  MAJOR  INDEX 

CORSPL 

107 

CALL  STIN0XU3,  INDXI,  14.1) 

CORSPL 

108 

C 

CORSPL 

109 

C WRITE  MINOR  1N0ECES  ON  DISK 

CORSPL 

lie 

CALL  WRITMSdJ,  1NDX2 , IL2,  111,  IW) 

CORSPL 

111 

IC1  = IC1  ♦ 1 

CORSPL 

112 

IF  (IGU-t)  20,  2C,  3C 

CORSPL 

113 

2C  NRS  = 1 

CURSP1. 

114 

C 

CORSPL 

115 

70 


* 

/::.v,  * 


C READ 

i MINOR  INOECES  FROM  DISK 

CGKSPL 

116 

CALL  REAOMSIli,  1N0X2,  IL2,  18<2,NCCFI) 

CCRSPL 

117 

C 

CORSPL 

118 

C USE 

MINOR  INDEX 

CORSPL 

119 

CALL  STINUXI13,  IN0X2,  IL21 

CORSPL 

120 

C360 

READ!  13,  15)(D0T(J)  »J® 1, NPSCR I 

CORSPL 

121 

C360 

RtAJI 13, 15 ) l P STI J) ,J*1, NPSCR) 

CORSPL 

i22 

C 

CuKSPL 

12  3 

C READ  CATA  FROM  DISK 

CORSPL 

1r4 

CALL  REAOMSI  13,  RtJUF , 14,  NRS) 

CORSPL 

l2'5 

DECODE ( 140,15, KfiUf) ( OCT ( J) ,J=l,NFSCR) 

CORSPL 

12t, 

IF  ( IRR  .GT.  0)  GC  TC  30CC 

CORSPL 

127 

NKS=NKS+L 

CCRSPL 

i2d 

CALL  READMSI 13,  RBLF  * 14,  NRS ) 

CORSPL 

129 

C 

CORSPL 

1 30 

C USE 

MAJOR  INDEX 

CCRSPL 

1 Ji 

CALL  ST lNDXI 13,  INDX1,  X LI ) 

COnSPL 

132 

DECODE ( 140,15,KBCF)(PST<  J)  ,J=1,NF$C*J 

CCRSPL 

133 

IF  (IRR  .GT.  0)  GO  TO  300C 

CORSPL 

1 3<» 

IF  I I GO-  1 ) 3C,  3C,  25 

CCRiPl 

135 

25 

DC  29  J=l, NPSCR 

CCRSPL 

136 

IF(D0(J).E3.ETJG0  10  27 

CORSPL 

137 

lF(OG(J).EG.OcT(J))GC  TC  27 

CORSPL 

138 

OOTI J )=D0( J) 

CCRSPL 

139 

I RP=2 

CORSPL 

1«*L 

27 

UCIJ)=DCTIJ> 

CORSPL 

141 

I F C PSI J).FC.ET)GC  TO  28 

CORSPL 

142 

IF(PS(J)  .Ew.PSTIJ)  )GC  TC.  28 

CORSPL 

143 

PSTI J J=PSIJ) 

CORSPL 

144 

IRP  = 2 

CCRSPL 

1h5 

28 

PS(J )=PST(J) 

CCRSPL 

146 

29 

CONTINUE 

CCRSPL 

147 

IF  IIRP-1)  3C,  3C,  14 

CCRSPL 

148 

3C 

CONTINUE 

CorvSPL 

149 

00  39  J = 1 , 1 7 

CUP  SPL 

15C 

TSPX=TBLOi(PA( J) ,PST,OCT, l, NFfCR J 

CCRSPL 

1 3 1 

00  3e  N= 1 ,N3 

CCRSPL 

152 

SP(N,J)=SP(N,J)+TSPX 

COP  S°L 

153 

38 

CONTINUE 

CORSPL 

154 

3? 

CONTINUE 

CORSPL 

155 

GC  TO  400C 

CORSPL 

lPC 

40 

I G0=  1 

CORSPL 

157 

C 

CORSPL 

lpfa 

C IBM36C 

CORSPL 

159 

C 42 

NRN  = IB(2,NCCF) 

CCRSPL 

leC 

4? 

NRN  = 1 

CORSPL 

lol 

IC1  = 1812, NCCF) 

CCRSPL 

162 

NMi  = NPSCR  ♦ 2 

CORSPL 

163 

IF  (NB  .GT.  12)  NMI  = NMI  ♦ NPSCR 

CCRSPL 

164 

IF  ( IGO  .GT.  1)  GU  TC  205 

CCRSPL 

165 

195 

00  2C0  J = L ,NMI 

CCRSPL 

lot 

INOX  31 J)  = 0 

CCRSPL 

167 

200 

CONTINUE 

CURSPL 

168 

(h  = 0 

CORSPL 

lo9 

GO  TU  2 1C 

CCKSPL 

170 

205 

m = i 

CCRSPL 

171 

2 1C 

CALL  STINOXlli,  INDX3 , NMI) 

CCRSPL 

172 

71 


NS*1-N8 

CORSPL 

173 

N2*NS 

CORSPL 

174 

00  45  J3  1 tNPSCR 

( ORSPL 

175 

N$=N$+NB 

CORSPL 

176 

NE*NS-N2  * 

CORSPL 

17  7 

IF  ( N8  ,GT.  121  GO  TC  43 

CORSPL 

17E 

C360 

WRITE! 13,17)(DP(N> ,N*NS,NE) 

CORSPL 

175 

C 17 

FORMAT 124F8.3»8X) 

CORSPL 

180 

ENCODE! 100, 1 6 ,RBUX) 10PIM ,N«NS, NE) 

r no co i 

181 

16 

FORMAT! 12F8.3»4X) 

CORSPL 

182 

CALL  WKITMSI13*  RBUX,  10.  NRN,  ik) 

CORSPL 

183 

NRN»NRN*l 

CCRSPL 

184 

GO  TO  45 

CURSPL 

165 

43 

NM=NS+ 1 1 

CORSPL 

186 

NF*NM+ 1 

CORSPL 

187 

ENCODE! 100, 16,R8UX) (DP (N) »N=NS, NR) 

CCRSPL 

188 

CALL  WRIIMSI13,  R8UX , 10,  NRN,  Ik) 

CORSPL 

189 

NRN^NRN+l 

CCRSPL 

190 

ENCODE! 100,16,RBLX)(DP(N) ,N*KF ,NE) 

CORSPL 

191 

CALL  wR  I IMS! 13,  R8LX,  10,  NRN,  Ik) 

CORSPL 

192 

NRN*NKN+l 

CORSPL 

193 

45 

CONTINUE 

CORSPL 

154 

C360 

WRITE! 13, 151 (PS! J) . J»l,NPSCR) 

CORSPL 

19  5 

ENCODE! 140,15,RBLF)(PS( J)  , J*1,NF$CR) 

CORSPL 

196 

CALL  „R  I IMS!  13,  RBliF , 14,  NRN,  Ik) 

CORSPL 

157 

CALL  ST INDX! 13 , INDX1,  III) 

CORSPL 

196 

CALL  WR I TMS! 13,  INDX3,  NRI.  ICl,  Ik) 

CORSPL 

199 

IC1  - IC1  ♦ 1 

CORSPL 

200 

IF  (IGO-11  50,  5C,  1C 

LOR  SPL 

201 

5C 

NRS  = 1 

CCRSPL 

202 

CALL  KE AUMSI 13,  IN0X3,  NMI,  IE(2,KCCF1) 

CCRSPL 

203 

CALL  ST  INDX! 13,  INDX3,  NN1) 

CCRSPL 

204 

DO  55  J=  l.NPSCR 

CURSPL 

2C5 

IFINB. EQ. 24)00  TO  53 

CORSPL 

206 

C36C 

REAC1  13,17)(D8T(N,J)  ,M1,NB) 

CORSPL 

20  7 

CALL  READMS! 13,  RBUX,  1C,  NRS) 

CURSPL 

206 

DEC  OOP  f ICO,  16, RBUX)  (OUT  !N,  J)  ,N=1  ,f.B) 

CCRSPL 

209 

IF  ( IRR  ,GT.  0)  GC  TC  3UUL 

CORSPL 

2 1C 

NRS*NRS*-1 

LUKSHL 

211 

Gl  TO  54 

CORSPL 

212 

53 

CONTINUE 

CORSPL 

213 

CALL  REAOMS! 13,  R80X,  10,  NRS) 

CORSPL 

214 

DECODE  ( IOC, 1C, RBUX)  !DBT  ! N , J ) ,M  1 , 12) 

CORSPL 

215 

IF  (IRR  .GT.  0)  GO  TC  30CC 

CORSPL 

2 i6 

NRS=«NK$Fl 

CORSPL 

217 

CALL  READMS! 13,  RBUX,  1C,  NRS) 

CCRSPL 

218 

DECODE! 100, 16, RBUX) (08T(N,J) , Ml  3, 24) 

CORSPL 

219 

IF  I IRR  .GT . 0)  GO  TC  30CC 

CORSPL 

220 

NRS*NRS+I 

CORSPL 

221 

54 

CONTINUE 

CORSPL 

222 

55 

CONTINUE 

CORSPL 

223 

C36C 

READ!  13,  15MPSH  J ) , J*  l ,NPSLR  ) 

CORSPL 

224 

CALL  REAOMS!  13,  RBLF , 14,  NRS) 

CORSPL 

225 

CALL  ST  INDX!  13,  INOXl,  ILL) 

CURSPL 

226 

CtCUOt!  140, 15, RBLF) (PST! J) ,J*i,NFSCR) 

CORSPL 

227 

IF  ( IRR  .GT.  0)  GC  TL  30CC 

CORSPL 

226 

IF  ( IGO-l)  70,  7C , faC 

CORSPL 

229 

72 


it  < i- ^v<*‘-°  5^^  > 


60 

CONTINUE 

CORSPL 

230 

DO  64  J*1#NPSCR 

CORSPL 

23  i 

00  62  N*1 »N8 

CORSPL 

232 

I = { J-l)*NB*-N 

CORSPL 

233 

IFIOP 1 1 ) .EU»ET)GG  TO  61 

CURSPL 

234 

IF<D8T(N.J).EO.OPimGO  TO  62 

CORSPL 

235 

0BT(N,J»=DPC H 

CORSPL 

2 3e 

IRP=2 

CORSPL 

237 

61 

0P(  I 1-C8T (Nt  J) 

CORSPL 

238 

62 

CONTINUE 

CORSPL 

235 

IF(PS(JJ.EC.ETJGO  TO  63 

LoKSPL 

240 

IF(PS(Ji«EQ.PST(J)IGC  TG  64 

CORSPL 

241 

PST( J»=PS(J) 

CORSPL 

2h<; 

IRP=2 

CORSPL 

243 

63 

PS(J)=PST(J) 

CORSPL 

244 

64 

CONTINUE 

CORSPL 

243 

If  URP-IJ  70*  7C»  42 

CORSPL 

24c 

70 

CONTINUE 

CORSPL 

247 

00  9C  J=  L * 17 

CuRSPL 

248 

00  75  N=i,NB 

CORSPL 

249 

OSPL (N)=  TBLL2 ( BCF IN) >PA(J)  ,BCF  , f ST.DBT . I , I .NB.NPSCR .24, 17) 

CORSPL 

cSC 

C8FC=CBN( J) 

CORSPL 

2d  i 

1 FI  I TYPE  .EG.  UOR.ITYPE.EC-2.CR-mffc.EC.6.0R.ITVPE.EC.9.0rt.lTYPE. 

CORSPL 

232 

* 

EQ.12)0BFC=0. 

CORSPL 

233 

75 

BN(NI=FLOAT<N)-DBFC 

CORSPL 

254 

00  8C  N=1,NB 

CORSPL 

255 

80 

SPlN,J)  = SP(N,J)»TetUl(FLCAT(M,BN,OSfL.I.Ne) 

CORSPL 

230 

9C 

CONTINUE 

CORSPL 

237 

GC  TO  4000 

CORSPL 

256 

30C0 

CALL  ERRGRI ITYPE»6»14) 

CORSPc 

259 

STOP 

CORSPL 

26-: 

C 

CORSPL 

261 

0 TURN 

-ON  FATAL  READ  ERROR  78  AND  75  SENSE  SWITCHES 

CORSPL 

2fc2 

4CCC 

CALL  ERRSETIIKK,  0) 

CORSPL 

263 

00  41C0  J=l» 17 

ClRSPL 

2o4 

DC(  J )=EI 

CORSPL 

265 

4 ICC 

PS(  J 1 =ET 

CORSPL 

266 

OC  42C0  N= I* 4C8 

CORSPL 

267 

42CC 

0P(N)=6T 

COR Sr L 

266 

RETURN 

CORSPL 

269 

END 

CORSPL 

2t  C 

noon 


COMPLEX  FUNCTION  CPOLAR(A) 

CPOLAR 

2 

CPOLAR 

3 

COMPUTES  THE  POLAR  FORM  (PAGM TIDE*  ANGLE)  FOR  THE  COMPLEX  QUANTITY 

CPOLAR 

A 

A*  (REAL  PART * IMAGINARY  PART). 

CPOLAR 

5 

CPOLAR 

6 

COMPLEX  A 

CPOLAR 

7 

DATA  P 12  / 1.57C796326794S4  / 

CPOLAR 

e 

AMP ( X • Y)  = ABSIX)  * SORT (I.  ♦ 4VX)*( Y/X)  ) 

CPOLAR 

$ 

AR  * REAL(A) 

CPOLAR 

10 

A I = AINAGIA) 

CPOLAR 

u 

T = 0.0 

CPOLAR 

12 

IF  (AR)  20*  1C,  2C 

CPCLAR 

13 

10  IF  (AI)  20*  5C*  2C 

CPOLAR 

1 A 

20  T * ATAN2( AI * AR) 

CPOLAR 

15 

J = ABS ( T / PI2)  ♦ 0.5 

CPOLAR 

16 

IF  IJ  - 2 * (J  / 2)1  3C*  4C*  3C 

CPOLAR 

17 

30  AR  = AMPIAI*  AR) 

CPOLAR 

18 

GO  TO  50 

CPCLAR 

IS 

AC  AR  = AMPIAR,  AI ) 

CPOLAR 

2G 

50  CPOLAR  * CMPLXIAR*  T) 

CPOLAR 

21 

RETURN 

CPOLAR 

22 

END 

CPOLAR 

23 

74 
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SUBROUTINE  0ATAIN(N»DATN»N4*01»D2»03»D4,IRCCE) 

LATAIN 

*- 

c 

OATAIN 

3 

c 

PURPOSE  TC  RE AO  IN  VARIABLES  ANC  ARRAYS 

OATAIN 

4 

c 

ANS  DUMMY  VALUES  OF  ANL  TC  ELIMINATE  BLOCK 

DATA  REQUIRED  BY  3 

LATAIN 

3 

c 

ALSO  TU  SORT  TND  REARANGE  THE  BASIC  CATA  FRCM  rEE187C 

OATAIN 

0 

COMMCn/CCUNT/NEPK.NL 

LAI AtN 

7 

CGMMCn/OIGI/IUNIT,IPNDB,IPLCT 

OATAIN 

a 

CCMMGN/CGNTNT/AEPR( 5) ,ALRU($),AAt.FA(fc) 

LATAIN 

L 

COMMON/ S12E/NLRC* KALE A 

LATAIN 

10 

c 

LATAIN 

II 

CGMMON/LEVELS/ANU  5 > 

OATAIN 

u 

DIMENSION  GAIN  1 1 ) 

DATAIN 

i3 

DIMENSION  ANS t b) 

OATAIN 

14 

DIMENSION  01(11 ,02(1) ,03 111,04(1) 

CATA1N 

15 

DIMENSION  ARG( 324) 

LATAIN 

Ifc 

C IBM  SYS 3fcC  ♦ 37C 

LATAIN 

17 

C 

REAL*8  ARG 

CAT  AIN 

18 

C. 

LATAIN 

19 

C 

DATA  WILL  BE  LOADED  BY  DATA  STATEMENTS  TC  CONSERVE  TIME  ANL 

DATAIN 

2C 

C 

LATAIN 

21 

c 

READ  THE  SPECIFIC  NOISE  CL  .CLR  VALUES  1C  BE  EXAMINEE 

LATAIN 

22 

c 

AND  THE  NUMBER  OF  CCNTCUR  VALLES 

DATAIN 

2j 

NAMELIST /0IGINT/ANL,M,ICMT,1FKCB*IFLCT 

LATAIN 

24 

OATA  ANS/85.,90.,95. , ICC., ICS./ 

DATAIN 

25 

c 

DATAIN 

2t 

NL*b 

DATAIN 

27 

OC  1CCC  1=1, NL 

LATAIN 

2L 

1000 

ANL ( 1 )=ANS( I ) 

LATAIN 

cS 

Ir( lMUOE.Ett.-l)GL  TO  1C1C 

LATAIN 

30 

IPNDd=0 

LATAIN 

31 

I PLO  T = 0 

DATAIN 

32 

1LNIT=0 

DATAIN 

33 

READ! 5, OIGINT ) 

LATAIN 

34 

101c 

CGNT1NLE 

DATAIN 

35 

c 

DATAIN 

30 

c 

DATAIN 

37 

c 

DATAIN 

38 

c 

READ  NUMBER  OF  NCISE  FuxCTICN  VALLES  TC  BE  READ 

DATAIN 

39 

c 

DATAIN 

40 

c 

READ  THE  ARRAYS  CF  NOISE  LEVEL  PARAMETERS  Nl=FUN( EPR-, ALPHA, LRO ) 

DATAIN 

41 

c 

01,  02,  03.  04 

DATAIN 

42 

c 

DATN  IS  AN  ARRAY  SLPPL1E0  BY  T r E 1 € 7 CF  NLISE  VALUES 

DATAIN 

43 

C EPR  VALUES,  ALPHA  VALLES  AND  VAilfcS  CF  LCG10  RC  IN 

A ONE  DIMENSIONAL 

DATAIN 

44 

C 

STRING  SUCH  IF AT  THF  SETS  REPEAT  THEIR  CRCEK 

OATAIN 

45 

J=0 

DATAIN 

46 

UC  1020  1 = 1,  N,  4 

LATAIN 

47 

J = J+I 

OATAIN 

48 

Ll(J)=OATN(i  1 

DATAIN 

49 

D2(  J )---OATN(  I ♦ i) 

LATAIN 

50 

D3( J ) =0A  TNI  1*2) 

DATAIN 

51 

041 J » = 0A IN (1*3) 

DATAIN 

52 

102C 

CONTINUE 

DATAIN 

53 

C 

SORTS  INTO  INCREASING  CRDER 

DATAIN 

54 

c 

SORT  WITH  RESPECT  TC  EPP 

LATAIN 

35 

CALL  SCR*TR(D2,D3,D4,N4,01 ,DAIM  R4*l ) »OATN( l ) , ARGJ 

OATAIN 

56 

C 

GET  THE  NUMBER  CF  DISTINCT  EPRC S , ALPHA 63  ,LRC6S 

AND  THEIR 

CATA  IN 

37 

C 

VALUcS  ANC  STORE  THEM 

DATA  1 N 

38 

75 


c 

OATAiN 

59 

CALL  SQUASH  ( 02 »N4 ,AEPR,NEPR) 

CATAIN 

60 

CALL  SQUASH! 03*ft4«AALFA*  KALFA) 

CATA IN 

61 

CALL  SQUASH( D4»N4»ALRC»NLRC1 

OATAIN 

62 

c 

OATAIN 

63 

c 

OATAIN 

64 

c 

OATAIN 

65 

c 

OUTPUT  SECTION  FOR  INPUT  ACCLSTIC  DATA 

CATAIN 

66 

c 

OATAIN 

67 

c 

CATAIN 

68 

12*0 

OATAIN 

69 

UC  1040  I* 1 ,N£PR 

OATAiN 

70 

IF  (MODU-i,  2))  9007*  9006*  9CC7 

CATAIN 

71 

goo6 

WRITE  (6*8999) 

OATAiN 

72 

8999 

FCKMAT( 1HI,//54X,22HAC0LSTIC  DATA  FUNCTION, /53X*24HNCISfc  LEVEL  VAL 

OATAIN 

73 

*UES  (08)  ) 

CATAIN 

74 

9007 

WRITE  I6.9C0E)  AEPR ( I ) 

CATAIN 

75 

9008 

FORMAT ( // 10X, 34HAT  ENGINE  PERFORMANCE  PARAMETER  * *IPE10.3) 

DATA  IN 

76 

WRITE(6*  90C7  ) 

OATAIN 

77 

9C09 

FORMAT (/55X.24HL0G10  OF  RANGE  AT  CPA  l 

CATAIN 

78 

WRITE  (6*9010) 

DAT  A IN 

79 

90 1C 

FORMAT (5X*10HELEVATICN  ) 

OATAIN 

8G 

WRITE  (6*9011)  (ALROU).  J * l,M.RC) 

CATAIN 

81 

9011 

FORMAT ( 7 < * 5HANGLE * 5X ,1PE12.3*8E12.3I 

CATAIN 

82 

9012 

F0RMAT(5'. iH(DEGREES)  1 

DAT  AIN 

83 

DO  1C3C  N* 1 , NALFA 

CATAIN 

84 

I 1= I 2* 1 

OATAIN 

85 

12*1 l+NLRC-1 

OATAIN 

66 

WR  I TE  ( 6*  9C13  ) AALFA(N)  ,(01(K)  ,K*U,I21 

CATAIN 

87 

9013 

FORMAT!  MX, IPE 10.3.2X, CPF10. 1, 8F 12. 1 ) 

CATAIN 

08 

103C 

CONTINUE 

CATAIN 

69 

IG4C 

CONTINUE 

DATA  IN 

90 

C 

OATAiN 

91 

C 

OATAIN 

92 

CALL  SWITCH(NEPR  * NL,  NLKC*  NALFA,  Dl*  C2I 

CATAIN 

93 

C 

DATAiN 

94 

c 

CATAIN 

95 

C 

OUTPUT  SECTION  FOR  TRANSCRMAEC  INPUT  ARRAY 

DATAIN 

9fc 

C 

OATAIN 

97 

C 

DATAIN 

98 

WRITE  ( 6 * 9C 16) 

OATAIN 

99 

9C16 

FGRMATt IHi,///) 

CATAIN 

IOC 

WRITEtb*  9014  ) 

OATAIN 

101 

>014 

FORMAT (4CX*51HTA8LE  OF  UEVELCPEO  VALLES  FCR  LCGIO  OF  RANGE  AT  CPA) 

OATAiN 

102 

WRITE(o*  9015  ) 

OATAIN 

103 

9015 

FORMAT ( 46X*43HBASED  CN  THE  PRECEDING  INPUT  ACCUSTIC  CATA  ) 

OATAIN 

104 

14*0 

DATAIN 

105 

OQ  ICfcO  1*1, NL 

CATAIN 

1C6 

WRITEI6,  9C17  >ANUt) 

CATAIN 

107 

9017 

FGRMATt ///* 44X * 2 6H VALUES  FCR  NCISE  LEVEL  GF  ,F5.i,5H  08  ) 

CATAIN 

ice 

wRITE ( 6,  9018  ) 

OATAiN 

1C9 

9018 

FORMAT ( ✓/ , 7X,9HELEVATIGN*30X*28FENGINE  PERFCRMANCE  PARAMETER  ) 

DATAiN 

no 

WR  I f E ( 6,  9019  ) 

DATAIN 

in 

9019 

FORMAT (9X»5HANGLE) 

OATAIN 

112 

WR ITE ( b * 9C2C  ) (AEPRtJ) ,J*l,NEPP) 

OATAiN 

113 

9020 

FORMAT ( 7 X ,9H4D£GREbS ) *2X*IPE15«3,5E15.3) 

OATAIN 

114 

WRITE  (6*9013) 

OATAIN 

115 

76 


..-o '*”rJ ” ' "♦’QIpEv:  *? - 


* £*  V 

/ S v«<*  ^ ' 


OQ  1050  K*1,NAIFA 

13=14+1 

14*1 3+NEPR-l 

WRITE (6, 9021)  AAIFA(K), (02 (U *1=13,14) 

9021  FORMAT I 6X« 1H( ,1PEIC.3»2H)  .4X.E1C.3, I5EIS.3) ) 
105C  CONTINUE 
106C  CONTINUE 


RETURN 

END 


CAT  A IN 
CATAIN 
CATA1N 
DATA  IN 
OATAIN 
CATAIN 
CATAIN 
UATAiN 
OATAlN 

datain 

OATAIN 


, ..> 


c 

c 

c 

c 


FUNCTION  DPSOIF .SBO.CBC. S81 » TA.  SdS. R »ORN  .CO.KN.LQF.ZNR.ZN  It  NO) 

COMPUTES  THE  ACOLSTIC  GROUNU  REFLECTION  ANOMALY  FCR  POKER  SPECTRAL 
DENSITIES 

REAL  KN»  KOR,  LF.  LDF 
DIMENSION  LOF(l) .ZNRID.ZNII1) 

DIMENSION  RPXI2) » HX(2>»  ZI2) 

COMPLEX  Fh»  w«  RP.  ZN#  FX.  OF?  SBls  1* 

C0MMQN/BLK97/ZN.RP  »K»FX 

EQUIVALENCE  (RPX(l).  RP) « CkXtH.  K) » IZ *** * ***?, , _a . . 

DATA  ZORQ.  GNfc.  EPS.  TP  I /O.  .1. cl«2E-5»6. 2831853071796/ 

T A = 1 O.  . 0 * } 


DPSO 
TSBOS 
KOR  = 
DA  = 
Lf 

llll> 
Z ( 2 > = 


= ONE 

* ONE  - KN*KN 
TPI  * F * R / 
KOR  * ORN 
ALOG1C4F) 
TBLUliLF.  LDF  . 
TBLUliLF,  LDF. 


2 

10 

11 

A 

5 


IF 

RP 

IF 

IF 

KP 

GC 

RP 

GC 

RP 

M 

te 

IF 

FX 

GO 

w, 

FX 

TA 

OP 


CO 


ZNR,  2 » 
ZM  t 2 . 
EPS 


( (ABSIZI  UI-ONE)  .LE. 

= ZN  * SBO  ♦ SB  1 
(ABS(RPXU) )*ABS(RPX<2)  ) - 


ND) 

NO) 

.ANC. 


EPS) 

11 


Afi$m2>> 

2,  2,  4 


, LE.  EPS)  GO  TC  9 


(ABSITSBOS)  - EPS)  10.  10. 

* IZN  - ONE)  i I ZN  * ONE' 

TO  5 

= (-1..0.) 

TO  5 

= (RP  - ( SB l+SB 1 ) ) / RP 
S ZN  * CONE  - RP)  * CBO 

* I.  * In 

(ABSiHXU)>*A8S<KX<2»  - 

* (0.,0.) 

TO  8 

* (0..1.)  * (<KOR*KOR)*SeiS) 

= FWU) 

= (RP  + FX  * (ONE  - RP))  / CONE  ♦ DPN) 
= ONE  ♦ TA  * CMPLXICOSIUA)  » -SIMOA)) 
DPSO  = REALIDP  * CCNJGIDP)) 

RETURN 

END 


EPS)  6.  6 » ^ 


/ h 


DPSD 

2 

DPSO 

3 

DPSD 

4 

DPSD 

5 

DPSD 

6 

DPSD 

7 

DPSD 

8 

DPSD 

9 

DPSO 

10 

DPSD 

11 

DPSD 

12 

DPSD 

13 

DPSO 

14 

CPSD 

15 

DPSD 

16 

DPSO 

17 

dp  so 

18 

CPSD 

15 

DPSD 

20 

CPSD 

21 

DPSD 

22 

OPSU 

23 

DPSD 

24 

CPSD 

25 

DPSD 

Zb 

DPSD 

27 

CPSO 

28 

DPSD 

29 

DPSD 

30 

DPSD 

31 

DPSD 

32 

CPSO 

33 

CPSD 

34 

DPSO 

35 

DPSD 

3fc 

DPSD 

37 

CPSO 

38 

DPSD 

39 

CPSD 

40 

DPSD 

41 

DPSD 

42 

fP/KSS"5-"'' 


SUBROUTINE  DRI VES101 ,02 , XI , X2 , Y 1 ,Y2, SUM , SLNL , IMUOE) 

PURPOSE  TO  SIMULATE  THE  OUTPUT  CF  THE  AMES  FSAA  SIMULATOR 
BY  GIVING  COORDINATES  CF  THE  FLIGHT  PATH  IY,Z),THE  ENGINE 
PRESSURE  RATIO(EPR) , THE  DIRECTIVITY  ANGLE! SC  1 1 AND  ThE  ENGINE 
ATTITUOE  ANGLE(DE) 

CCMMGN/CGUNT/NEPR,NL 

COMMON/D IGl/ 1 UNI T, IPNDB, IPLCT 

COMMON /CON TNT/AE PR (6) ,ALRG(9)  .AALFAI6) 

CGMM0N/LEVELS/ANL<5) 

C0MM0N/ASD/S0<3) ,NSL 
CCMMGN/SI2E/NLR0,NALFA 

COMMON /FL IGHT/ I MODEQtDXQ, DYG ,DZC,CSCIC»DCEC»CEPRC 
COMMON /KC  SULT/XlC»>2Q,YlC»Y2C,SUf'C*SlNLC«IECC 
DIMENSION  XIQ<5)  * X2Q  ( 5)  , Y10  ( 5 1 , Y2L  !5 1 ,SUMU5  I ,SLNLU(  3 1 , 1 ECO!  5) 
DIMENSION  XP<  102C)»YP(1G20),FS(3C6),FP(3Q6) 

DIMENSION  DX( 100) ,DY(1C0) ,DZ IlCO) ,OEPR( ICO) »CC£< 100) 

DIMENSION  S( 20) ,DDX!2C) ,DDYI20) ,CCZ<20)  ,0CEPR<20> ,DDDEt20) 
DIMENSION  DU1)  ,02(1)  ,IIILE(i6) 

DIMENSION  Xl(5)»X2(5)»Yl(5)»Y2(5) 

DIMENSION  I EC  ( 5 ) *SUM ( 5 ) * SOS  ( 3 ) , S LNL  ( 3 ) 

DIMENSION  PN ( 2) ,EM(2) 

DIMENSION  SPPUQO) 

DATA  11,111/  1,1/ 

DATA  EM  /3HEPN , 3H  PN/ 

DATA  PN/3h  M.,3HFT./ 

NAMELIST/DIGSIM/NFPP,DX,0Y,D2,DEFR-,0DEiCSCI,SC,NSL 
1,N0,DS,DDX,DDY,0D2  ,DDEPR  ,DDDfc  »MS,NLF,ISTCP 
INITIALIZE  THE  FLIGHT  PATH  VALUES 
CATA  NO, SI 1)/0,C.0/ 

DATA  NFPP»NLN/25 , 5/ 

DATA  DX/1CC*C.0/ 

DATA  0Y/1CC.,200.,30C.,4C0. ,5CC.  ,600. ,700. ,800 . ,900. , 1000. , 1200 . , 

1 1400. . 1600. .1800. .2C0C. ,2300.  ,260C. ,3000. ,*000. , 5000. ,6000. , 7000. 
2,8G0C.,5CCG.»10GCC.»75*1C0CC.C/ 

DATA  02/ 1.0, 1.0, 1.0, 5C.  ,100.  ,150.  ,2UC.  ,300.  ,400.  ,500. ,600., 700., 

1800. . 900.,  1000. ,1200. ,1400.  , 18C0.  ,1900. ,2000.  ,2100. ,2200. , 2300. , 

22400. . 25CC., 75*C.C/ 

DATA  DEPR/ 15*2. G, 1.9, 1*6, 1.7 ,1.6, 1.5, 1.6, 1.7, 1.6, 1.9, 2.0, 75* 1.9/ 
DATA  DDE  / 10*20. C, 5*15. C ,5*IC. f , 5*C. C, 75*0. 0/ 

DATA  CSCI/110.0/ 

DATA  NSLl,S0S/3, l.C, 152.4,463.3/ 

DATA  I STOP/O/ 

PUSH  FLIGHT  PARAMETERS  INTO  SIBRCIT! NE  VALUES 


IF  ( (MODE  .GQ. 
NSL=NSLl 
NLS=  1 
NLF=NL 

IF  ( IPNDB  .EQ. 
IF  ( IUNIT  .Ey. 
IC=0 

DO  999  1=1, NSL 
999  SD(  I ) = SDS( I) 
1000  CONTINUE 

REAO! 5,  9C00  ) 
IC*IC+1 

READ! 5, DIG SIM) 


GO  TO 


1 1 1 =2 
11=2 


TITLE 


79 


NLN=NLF— NLS+ 1 

DRIVES 

39 

I Ft  IC.EQ.HG0  TO  I01G 

ORIVES 

60 

CALL  RESTRT(01,D2»NEPR,NL,NLRC,MLFA,NLS,NLFI 

DRIVES 

61 

1010  CONTINUE 

DRIVES 

b2 

IF  ( NO  .EQ.  0)  GO  TO  1050 

ORIVES 

63 

00  1020  I=2»ND 

DRIVES 

<3  A 

1020  SU)=S(  I- IJ+SQRT  ( IDDX ( I J-OOX  ( I— 11  )**2*(00Y!l  )-QDY  ( I— 1 1 1**2 ) 

DRIVES 

63 

SP=S( 1) 

CRIVES 

66 

0X( l)=0DX!l) 

DRIVES 

67 

DY( l)=DDY( 1) 

ORIVES 

68 

OZ! 1)=0DZ<1) 

CRIVES 

69 

DEPP ( 1 ) =DDEPR( l I 

DRIVES 

7C 

0DEm=D00fc(  1) 

CRIVES 

71 

SPP( 1)=0.0 

ORIVES 

72 

00  1030  I=2,NFPP 

CRIVES 

73 

SP=SP+DS 

DRIVES 

79 

SPPt l)  = SP 

ORIVES 

75 

0X(  I I=TBLU1! SP, S.DOX.l.NO) 

ORIVES 

7t 

0Y(  n=TBLUl<  SP.StOOY.lfNO) 

ORIVES 

77 

0Z( l)=T8LUl(SP»S »ODZ » 1 »ND) 

DRIVES 

78 

OEPRI I ) = TBLU1 ( SP * StOOEPRt l » KD ) 

ORIVES 

79 

ODE ( I)=TBLUHSP»S»UODEtl»NO) 

CRIVES 

80 

103C  CONTINUE 

DRIVES 

81 

105C  CONTINUE 

ORIVES 

82 

CALL  VDIM!Dl,D2,NEPR,NLtNLRC»MLFA»(aS,NLF) 

CRIVES 

83 

1F< IPLOT .EQ.O)  GO  TO  1C5C 

DRIVES 

89 

WRITE! 2»  900C  ) TITLE 

DRIVES 

85 

9000  FORMAT! 18A5) 

DRIVES 

86 

NFF*NFPP-1 

DRIVES 

67 

WRITE  ( 2,9001 ) NFF*NLN ,NSL «(SC(I<2),K2  = 1,NSL) 

DRIVES 

88 

9001  FORMAT  (3I5,3F1Q.CJ 

ORIVES 

85 

WRITE  (2.9002)  (ANl!K3)»K3=MS»MF) 

DRIVES 

90 

9002  FORMAT! IPE 15.6, 5E 15. 6, I 5 J 

DRIVES 

91 

105C  CONTINUE 

DRIVES 

92 

DG  1080  I=l,NFPP 

ORIVES 

93 

I F ( 1/2*2. EQ. I)  GO  TO  1C60 

DRIVES 

99 

WRITHE,  9C03  1TITLE 

CRIVES 

95 

1060  CONTINUE 

DRIVES 

96 

9003  FORMAT! IH 1 , 30X , 1 8A5» 

DRIVES 

97 

C 

ORIVES 

98 

GSCIQ=DSCI 

DRIVES 

99 

IMODEQ-  IMOOE 

DRIVES 

100 

OXQ-DX ( I ) 

CRIVES 

101 

CYQ=DY ( I) 

DRIVES 

1C2 

CZQ=OZ ( l ) 

DR  IVES 

103 

DEPRQ=OEPR! I 1 

ORIVES 

109 

CCEQ=ODE!  I J 

DRIVES 

105 

CALL  VALUfc2iOl,D2,NEPR,NL,NLRC,MlFA,KLS,NLF) 

DRIVES 

106 

00  1031  J=NLS ,NLF 

ORIVES 

107 

Xl(J)=XlG(j; 

DRIVES 

ioe 

X2( J )=X2Q( J) 

CRIVES 

109 

Yl! J)=Y1Q{ J) 

DRIVES 

110 

Y2iJ  ) = Y2Qi Ji 

drives 

111 

SUM! J )-SUMQi J) 

ORIVES 

112 

IECI J»=IECU! J) 

DRIVES 

113 

1031  CONTINUE 

ORIVES 

115 

00  1032  J=1,NSL 

DRIVES 

115 

80 


-jra‘^-^rr-=Tfhr-  M«rnnrnirTrw-^^,*-rf 


mtt  v^-*c-r*»'»i^r-  '•fUsr^iti^A**  •■ 


IG32 

SLNL(  JMSLNLCIJ) 

DRIVES 

lit 

IF  (1  .fcQ.  1 ) GC  TO  LC7C 

DRIVcS 

11/ 

If ( IPIOI.EC.C)  GO  TG  LC70 

DRIVES 

1 18 

WHITE  (2.9022)  OX  C 1 > ,OYt  I)  ,SPP  (I)  . (SLM  l IZ) , IZ=l  ,NSL) 

DRIVCS 

119 

9022 

FORMAT ( LPE  L 5.6. 5615. fc) 

DRIVES 

120 

WRI TE  < 2 , 5CC2  ) ( XI  (K)  ,X2  (K) ,Y1 ( K ) , Y2 I K) . SUM! K) , 1 EC{ K) , K=NLS, NLF ) 

DRIVES 

121 

107C 

cgntinue 

DRIVcS 

122 

wR  ITE(  6 . 9009  ) 

DRIVES 

123 

9004 

FORMAT ( J.P  ) 

DRIVES 

124 

rtRITElft.  9009  ) 

DRIVES 

125 

«RUE(fc,  9CC5  ) OX(I  >,OY(II  »C2(1)  ,PNUI) 

DR  IVtS 

I2t 

9005 

FORMAT  t LOX. 30HAIRCRAF  T COORDINATES  (X.Y.Zi  * ,1PE10.3,3F.  , ,fclO 

♦ 3 1 

GKlVcS 

127 

* 3H  , ,EIC.3,5H  (.A3.2H)  ) 

DRIVES 

128 

WRITE  (6,9004) 

DRIVES 

129 

WRITE(6V89981SPP(  M.PM1 1) 

DRIVES 

I3u 

6998 

FORMAT  l 9X.  3 LH  UISTANCt  ALONG  MIGHT  TRACK  = , 1 PfclO.  3 , 2X  , A3) 

DRIVES 

131 

wR I I C ( 6 , 9004  ) 

DR  IVES 

12c 

WRITt  (6,  9C06  ) DDEIIltCSCl 

DRIVES 

133 

9 tOt 

FORMAT!  10X, 23HENGINE  ATTITUDE  ANCLE  * ♦ LPfclO. 2 , 3iH  (DEGREES  > , 

OlKfc 

DRIVcS 

134 

*CT I V l TY  ANGLE  = ,EIC.2,11H  (CCGHECS)  ) 

DRIVuS 

13-j 

WR  IT  E ( 6 , 9004  J 

DRIVcS 

lit 

WRITt  It,  90C  7 ) DEPR(I) 

DRIVES 

137 

9007 

FGRM AT I 1CX .31 H ENGINE  PERFORMANCE  PARAMETER  = .1PE10.3) 

DR  IVES 

138 

wR I Tc ( 6 , 9004  ) 

DRIVES 

139 

00  1C73  JKL=1,NSL 

DRIVES 

140 

WRITE  (6.9CC8)  EM(IIl),  SLNL  ( JKL)  » SC  1 JKL)  » PM  III 

DRIVt  S 

141 

9008 

FORMAT ( 10X» 1 EHNO 1 SO  LEVEL  IN  .A3.5H0E  = ,F6.1»l6H  AT  A SIDELINE  . 

DRIVES 

l42 

* 1 1HO 1 STANCE  CF,1PE10.3»IX»A3) 

CKiVtS 

143 

1C  ? 5 

continue 

DRIVES 

144 

WRITE ( 6.  9004  J 

DRIVES 

145 

WRITE (6,  9004  i 

DRIVcS 

14c 

wRITE  (6,  9009  1 

DRIVES 

147 

9009 

FORMAT ( 34X,  141  ICON  T CUR  PC I NTS  ) 

Dw  IVti 

148 

WRI T E l 6,  90U4  1 

DRIVES 

149 

WRITE  (t,  9010  1 

DRIVES 

15C 

9010 

FORMAT! 2X» 

DRIVES 

151 

* L10H  NOISE  LEVEL  LEFT  CONTLLP  POINT  RIGHT 

COM 

DR  IVES 

152 

10UK  POINT  ACCUMULATED  AREA  fcRKCR  CCOE 

) 

DRIVES 

153 

WRITE  (6.  9011  ) IMtIin.PMm.FMm.PNdn.PNUIUPMI!) 

DRIVES 

1S4 

90  LI 

FORMAT ( 3X,1H( , A 3 , 3HDB ) . I CX , 1H ( , A3 , 1H ) , 7X . 1H I , Ai , IH) , HX, 1HJ , A3, 

Drives 

155 

* IH) ,7X,  1H(,AJ, IH) ,lCX,8H(SCLARt  ,A3  ,3H  ) ) 

drives 

1 DC 

WR I TE ( fc,  9004  ) 

drives 

157 

WRITE  It,  9012  )(ANL(JI,X11J),Y1(J),X2(J)»Y2(J)<SJM(J),IEC(J), 

J = NL 

LRIVES 

15  8 

IS, NLF  ) 

DRIVES 

ls9 

9012 

F0RMAT(4X,CPFJ,l,7X,lPElC.3,2X,ElC.3,6X,£lO.3,2X,fclU.3,UX,£lO. 

3, 

DRIVES 

ItO 

* 14X.I3  > 

DRIVES 

It  1 

IG8C 

CCNTINLE 

DRIVES 

162 

If ( ISIUP  .EU.  1 ) GC  TC  1050 

DRIVES 

lo3 

GO  TO  1GC0 

DR  IVES 

lt4 

L09C 

CGNTINUE 

DR  IVES 

lc5 

IF  ( IPLOT  .IE.  0)  GC  TC  112C 

LRIVES 

166 

HOC 

CCNT  INUE 

OR  IVES 

It  7 

LllC 

CUNT INUE 

LR  I Ve  S 

168 

CALL  PLOT ITC XP,YP,PS,*P,IG2,2,5> 

Lk  IVES 

Lu9 

1L2C 

CUNt INUE 

OP  IVES 

170 

RETURN 

DR  IVES 

171 

END 

GR  IVES 

172 

? 

V 
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SUBROUTINE  EOGEO  I(  NPSI X , PS  I X.8CFIF  , USPL IF»CZ,THP , 

1 GAM,ROPP,IHOPP,ETAP,PS!0,PSlOP,BW,TLe, 

2 PS2) 

TITLE 

EDGE  DIFFRACTION 
PURPOSE 

THIS  SUBROUTINE  CALCULATES  THE  ECGE  DIFFRACTION  BY  THE  FOLLOWING 
CALCULATIONS 

BANOWICTH  EFFECT  TERMS 
HAVE  NUMBER 

PATH  LENGTH  DIFFERENCES 

PHASE  DIFFERENCE  FOR  INCIOEM  ANC  IMAGE  FIELDS 
REFERENCE  PRESSURE  FCR  DIFFRACTED  FIELD 
OHFRACTED  PRESSURE  FIELCS 

LEADING  fcDGE  ADDITIONAL  DIFFRACTED  PRESSURE  FIELD 

SUMMATION  OF  DIFFRACTEO  FIELCS  THAT  INCLUDES  BANUM I UFH  EFFECTS 


INPUT  - 
NPSI  X 
PSIX 
BCFIF 
USPL  I 
Cl 
GAM 
RCPP 
THOPP 
ETAP 
PSIO 
PSIOP 
BV. 

TLE 

OUTPUT 

PS2 


CALLING  SEQUENCE 

NUMBER  OF  DIRECTIVITY  ANGLES  PSIX 
DIRECTIVITY  ANGLES  AT  WHICH  USPLIF  IS  GIVEN 
CENTER  FREQUENCY 

F THE  USPL  FCR  THE  FRECLENCY  BCF 
AMBIENT  SPEED  CF  SCLND 
TRANSFORMED  WAVE  NLMBEP  ' 

MAGNITUDE  CF  1RANSFCRMEC  SOURCE  POSITION 
PHASE  CF  TRANSFORMED  SCLRCfc  POSITION 
TRANSFORMED  OBSERVER  ANGLE  l£TA  i 
OIRECTIV1TY  ANGLE  FCR  DIFFRACTED  INCIDENT  FIELD 
DIRECTIVITY  ANGLE  FCR  DIFFRACTED  IMAGE  FIELD 
FILTER  BAND  MOTH 
LEADING  ECGE  TERM 


SHIELDED  MEAN  SQUARE  PRESSURE 


DIMENSION  PSlXUl  tUSPLIFII) , 

1 A l 3 ) , b i 3 ) • U ( 3 ) , D ( 3 '/ 

COMPLEX  CFl,ALPl,BETl,BFT2 
DIMENSION  RALP1121  ,RBE  T 112  ) , R6E  T2  ( 2 ) 

EQUIVALENCE  (RALP 1(1 ) » ALP1) , ( RBE T 1 l U »BETl » « I R6ET2 III , BET2 ) 
COMPLEX  CPOLAR 

DATA  DFGRAO,  RADDEG,  Pt»  EPS  / 1 . 7453292 5 1943 1-2 , 57.295779513082, 
* 3.1415926535898,  l.E-10/ 


COMPUTE  BANOhlOTH  EFFECT  ERM 

a = io.**i.5*em 
FA  = .5*1  Q ♦ l./C  I 
FB  = .5*1  Q - l./Q  ) 

COMPUTE  WAVtNUMBER 

WKP  = 2.*Pl*GAM*dCFIF  / CZ 


COMPUTE  PATHLENGTH  DIFFERENCES 
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m 


A2=ABS(2«*WKP*KCPP*COS(EIAP*0£GRACn 
8C  = SIN ( »b* ( THP  - THOPPI *DEGP AC  i 
CL  = SINC  .£>♦(  THP  * THOPPI*CEGRAO  ) 

AL  = SORT ( A2  ) 

AB  =AL*BL 
AC  =AL*CL 

COMPUTE  PHASE  DIFFERNECE  FOR  INCIDENT  AND  IMAGE  FIELDS 

CL  = S INI  THP*DEGRAO  1 * SIM  TFCPP*DEGRAC  I 
GAMl  = A2*0L 

COMPUTE  REFERENCE  PRESSURE  FCP  DIFFRACTEC  FIELO 
A TABLE  LOOK-UP  IS  PERFORMED  CN  FSIX  VERSUS  USPLIF  USING  TBLUl 


USPLO  = TBLU(PSIC»PSIXiLSPlIF,2»NPSlX) 

USPLOP  = TtJLUKPSICP#PSIX,LSPUF  ,2tNFSIX) 

PC  = I0.vv(.C5*USPL01 
POP  = 10.*<‘(-C5*USPLCPJ 

COMPUTE  DIFFRACTEC  PRESSURE  FIELDS  WHERE  SUBROUTINE  CFI  IS  USED 
WHICH  COMPUTES  THE  FRESNEL  INTEGRAL  TIMES  I HE  SCUARfc  PLOT  OF 
THE  IMAGINARY  UNIT  TIMES  PI 


ALPI=  PO  * CFII  AB  » 

BET l = POP*  CFI ( AC  I 

CGNTINUE  WHEN  A 2 IS  NCT  NEAR  ZEKC 

IOC  ALP1=CPQLAR( ALf 1) 

BET 1=CPCLAR ( oc  T1 1 
N = 1 

AC  lJ=RALPim*RALPHll  ♦ RBET  1 ( I ) *RBETi  ( 1) 

B(1J=  2.*  RALPim*R8fc*Tl(ll 
CCI)  = GAMI 

OI  l)  = R8ETII2I  - RALPII2I 

COMPUTE  LEADING  EDGE  AOOITICNAI.  C IFF  RAC  T EC  PRESSURE  FIELO 


IFIAL.EO.O. )GU  TC  2CC 
IF!  TLE.EU.O.  ) GC  TC  2CC 
N = 3 

BET2=0.3989A22*TLE*<  (PO*BUPtF*CL)/AL  I *CMPLXC 1. , l. ) 

BET2=CPOLARIBCT2J 

AUI  = RALPH  1 1 *RAt  P 1 (l) 

AI2)  = RBET l< l)*K6ETl(l) 

A I 3)  = RdcT2(;>*RBET2(i; 

B ( 2)  = 2.*RALP1U)*RBET2(1) 

B ( 3 1 = 2.*RBEU(l)*Rdf  12(1) 

C(2)=-A2*C.5 
C 1 31  = CI2)  - CIl) 

0121  = RBET2C2)  - RALP1C2) 

0(31  = RBET2  ( 2)  - R8ETH2) 


SUM  DIFFRACTED  FIELDS 

DETERMINE  SHICIDEU  MEAN  SCLARE  PRESSURE 
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EDCEDI  lit) 

c EDGED  I 117 

2CC  PS2  = 0.  EDGED  I life 

DC  3G0  J=1»N  EDGED  I 11*5 

TERM=8(J>*COS(C< JI*FA-D( Jll  EDGEDI  l2C 

CJFB  = C(J)*FB  6CGED1  121 

JFl  CJFB. EG. 0.)  GO  TO  29C  ECGEUl  122 

TtRH  = TERM  * SlNt  CJFB  ) / CJFE  ECGfcOI  123 

29G  PS2=PS2-*-TERM+A(  J)  EDGEDI  12A 

30C  CONTINUE  EDGEDI  12S 

c EDGEDI  12o 

tCOC  RETURN  EDGEDI  127 

END 
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ilBRGUTlNfc  EEGECMUEOGE.lTYPfc, 

1 Lt  V*i»»El  »Et  tt  3 ,RC,THD,R0V,C,0L1  ,A»  F, ALPu. AP) 

TITLE 

ENGINE  EOCE  UEUMETRY 
PURPOSE 

THIS  SltBKuUT  1 ht  CALCULATES  ENuINE/EOCe  GECPETRY  WHIuH  CONSISTS  OP 
CALCULATING  ’HE  FCLLLWl  NG 

UNIT  VECTORS  ICk  Vi  I NG  EDGES  ANC  ENGINE  R EL  AT  IV  i:  U.  HALE  PLANE 
ENGINE  CENTERLINE  CMENTATICN  RELATIVE  TC  EOGE:> 

FLOW  INC 1 OENT  ANGIE 

inlet  or  nozzle  cccrdinaus  relative  to  edgc 

INPUT  - CALL  SEGCENUF. 

ItOGE  - = l LOU  TRAI1ING  EDGE 
l FOR  LEAOINu  EDGE 
3 FOR  TIE  tduE 

ITY--E  - = A FoR  INLET  FAN  NLISi: 

NCI  A FOR  OI.V.HAFGF  TLRfcCMALHINERY  NCISF 

NPUT  - COMMON 

EwGEO  - ALL  VARIABLES  ARE  LSEC 
REPKAc  - Iwl-v  ONLY  IS  OSLO 

OUTPUT 

U.V.ri  LN  l T VECTCRS  CR  WING  ELCE 

El.fcZfE3  COORi.INATt  S>  STEM  LM  T VECTORS  FIXED  TC  ENDIN'  SUCH  I HAT 
El  IS  PARALLEL  TO  HAl f-FLANfc 

RC.IH.,  POL  A<\  CCCRDINA  TES  CF  INLET  CR  NOZZLE  Rti.ATIVt  TO  EDGE 

RGV  VECTOR  OF  INLET  CR  NCZZLt 

U VEv.TUK  OEPENOING  CN  EDGE  TYPE 

OLT  f AI.P  ENG  f Nt  CENTER!  INF  CRItMATICN  ANGLES  RELATIVE  TC  EDGE 

ALPC  FLOk.  INCIDENT  ANGLE 

NOTE 

ALL  ANCLES  INPUT  ANO  CU1PLT  ARE  IN  DEGREES 

DIMENSION  US),V(3)tW<3J  ,E1  (31  ,E2  <3J  ,P.J(3J  .RCVI3I . 
l 01 3) «APt 3) 

CGMMCN/EWGfcO/  GWt»TEfSWPLE  .01HED,CGSD  ,DDX1D,DGX2D» CDxOD.DDYlD, 
l DOY2D,nOYfD,DI!LD,OIAM 

COMMON /RCFRaC/LM J.TS1 SC, IKEDI3)  ,Cf ASS . BET A U 0 ) .CPS I , l UI.NASRC 

DATA  CEGRAO.  RAUDEG  /l.7‘»t>32S2E  ISA3E-2.  5 7.29577951  A Ot*  2/ 

UNIT  VECTOR  C'-MPUIATICi. 

COMPUTE  U AND  V DEPENDING  LPfN  EDGE  TYPE 

IP!  lEDGu-  -2  I 1CQ.20C.4CC 

COMPUTF  6 V E C I *j w FCR  THE  TRAILING  ECGfc 


ICC  3(11  = 0. 

U(2»  = -DOXID 
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r>  r>  o »■'  r*  r>  r<  r>  o ono  ooo  o o o 


20C 


3CC 


4CG 


5GC 


Q<3>  = -0DY10 

EEGEUM 

59 

ALP  = -SWPTh 

EEGEOM 

oC 

GC  TU  300 

EEGEUM 

tl 

EEGEOM 

62 

COMPUTE  Q VECTOR  FOR 

THE  LEADING  EDGE 

EEGEOM 

o3 

EEGEUM 

64 

0(1)  = c. 

EEGEUM 

65 

0(2)  - 00X20 

EEGEOM 

C.L 

Q( 3)  = -G0Y2D 

EEC-EUM 

6? 

ALP  = -SWPLE 

tEGEUM 

6fc 

TRAILING  uR  LEAfclNG'  EDGE 

EEGEOM 

65 

COMPUTE  U AND  V FCR 

EEGEuM 

7G 

EEGEUM 

71 

SN  = SiGM  1.  »U<2) ) 

EEGEOM 

72 

U(l)  = SN*COS(  ALP*0EGRA0  ) 

EEGEUM 

7 2 

U(2)  a SN*S( M ALP*0C-'i«A0  ) 

EEGEuM 

/A 

U(3)  = U(l)  * TAN ( OIHED*DEGPAD  ) 

EEGEOM 

75 

CALL  VECN ( U ) 

EEGEUM 

76 

OCT  = OOTP(O.U) 

EEGEUM 

77 

V ( 1 ) = 0(1)  - OCT  *UU) 

EEGEUM 

78 

V( 2)  = Q( 2)  - Q0T*L(2) 

EEGEUM 

75 

V ( 3)  = 0(3)  - OCT  *0(3) 

cEGEUM. 

SC 

CALL  VhCNl  V ) 

EEGEUM 

31 

GO  TO  50C 

tEGEUM 

«2 

EtGEuM 

33 

COMPUTE  G ANG  V FCR 

TIP  EDGE 

EEGEuM 

8 A 

EEGEUM 

ci 

OhTAXs  ATAN(  (00 Y ID-DCY2C)  / 

( CCX 1D*CCX2C  ) I 

EtGEuM 

8 b 

Ull)  = 0. 

FLGfUM 

67 

G12)  = - C0S(  BETAXI 

tEGEUM 

c 8 

U( 3 ) = - SIN(  UETAX) 

EEGEOM 

39 

V(l)  = CCSi  CIHEG*D£GRAG  ) 

cLGEuM 

5C 

V ( 2 ) = C. 

EtGEuM 

91 

V ( 3 ) =■  SIN(  0 I HEC*DGGR AC  ) 

tf GEum 

9 2 

EEGEUM 

S j 

COMPUTE  ht  rit  E2  AND  E3 

: eGEUM 

94 

EtGEuM 

95 

CALL  cRUSP(Vi,U.V) 

CECEuM 

96 

£2( l)  = C. 

tCGEuM 

97 

t2(  2 ) = l. 

h eGEUM 

5£ 

E2( 3 ) -=  0. 

EtGEuM 

95 

CALL  CKO f, »>(!:  1 ,t  2 .hi 

tEGtUM 

100 

CALL  VECN l t l > 

EECECM 

101 

CALL  CROSP ( ' ? t ■.  1»L2) 

EEGEuM 

102 

EtGEuM 

103 

cCMPuTf.  6N':(ME  CENTE-l L.N  CRIGMA1 ILN  ANGLES  hcLATIVt  TC  EDGE 

cEGEUM 

1C4 

£t GEuM 

105 

OLT  = ATAN?(  h(2>,  -V(2)  ) *PACC6G 

EfcCEOM 

1C6 

ALP  “■  ASINi  U(2)  ) *R AUOEG 

EEGEuM 

107 

EEGEOM 

108 

COMPUTE  FLuirf  incicf.nt  angle 

EEGEUM 

109 

EEGEUM 

no 

OCT  = DCTP(L2tW) 

CEGEuM 

m 

0(1)  = DOT  * Ml)  - E 2 1 1 ) 

EEGEuM 

112 

0(2)  = 00(  * W'.2|  - E2(2* 

EE  GEuM 

113 

0(3)  = OCT  * V*  ( 3 ) - E2  (3) 

EEGEul 

1 14 

CALL  VFCN(  0 > 

EtGEuM 

115 
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3Jgj* 

pi* 

& 

ALPO  = ACOSI  OOTPtC.VI  J * ftADDEG 

EtGEUM 

lit 

%t< 

c 

EtGEuM 

117 

??v. 

c 

STORE  LNIT  VtUTGft  IN  DIRECTION  CF 

AMEIENT  FLCw 

t fcCEOM 

1 IE 

H* 

c 

EEGEUM 

119 

AF( l)=Q< 1) 

EEGEUM 

12U 

AF<2)=Q<2i 

t f GLuM 

121 

f^l 

AFlSJ-om 

EtGEUM 

1 22 

c 

ttoEOM 

123 

‘i 

c 

COMPUTE  NUULh  UR  INLET  PEL  Aft  CCCPCiNATES  RELATIVE  If  fcO-ifc 

EEGEuM 

U4 

f| 

c 

EtGEuM 

12b 

XCP  * QpxCD 

EEGECM 

Ut 

P 

1 F ( ITYPE.EQ.4  J XCP  - XCP  - 

GOLC 

ELbEUM 

127 

8 

c 

ElGEOM 

120 

W 

c 

COMPETE  VECTOR  DEPENDING 

LPCN 

EDGE  TYPE 

EEGEGM 

12S 

t~ 

c 

EtGEuM 

nc 

IK  IEUGE  - 2 ) 7CC*£CC»9C0 

EfcGEOM 

131 

§k 

c 

tECfcUM 

132 

/*■£ 

f. 

TRAILING  EDGE 

ttGEL’M 

133 

§ 

c 

FtCfcCM 

134 

& 

?cc 

Oil)  * C. 

f tGfUM 

13b 

§ 

y(2>  = -<  OOXID  - XOP  1 

EtGEOM 

13 1 

s 

y(3)  = -(  OUYIO  ♦ DCYCO  ) 

EEGEuM 

137 

K. 

S” 

GO  TO  1000 

EtGEuM 

138 

I* 

t 

V 

c 

EEGEuM 

13» 

-*» 

c 

LEACING  EDGE 

EtGEuM 

140 

7*1* 

c 

ErCtUM 

14  i 

8CC 

am  = c. 

EcGEOM 

1h2 

i 

U ( 2 > = DDX2D  + XCP 

EtGEUM 

1 ^ 3 

& 

e* 

U(  3)  = -(  OL) Y2D  ♦ OOYGO  J 

EEGEuM 

144 

t* 

GC  TJ  100C 

FfcGEoM 

14b 

■f- 

c 

EfcGfuM 

14c 

\ 

c 

TIP  tUGt 

EtCEUM 

147 

5 

c 

€ ECtuM 

1*8 

V 

9CC 

am  * ocsd 

tEGEuM 

149 

F 

f 

at  2)  = xop 

EtGtuM 

15C 

V 

C 

w ( 3 ) = - OUYGO  ♦ OClSO*  TAM 

Clh£C*CECRAO  ) 

tEGfcuM 

ibl 

£ 

c 

EtGEOM 

152 

§ 

c 

COMPOTE  THE  COORDINATES 

EEGEuM 

153 

5 

c 

tEGEuM 

154 

v 

1C0C 

DOT  = OOTPtOt  C»  * ClAM 

EEGEUM 

155 

OC  10 10  I = 1,3 

tEGEUM 

156 

gtn  = QUI  * DIANl 

Ei.GEOM 

157 

» 

=& 

fttVt l)  = Qi I ) - DCT  * L(II 

EEGEuM 

158 

J& 

101C 

CGNTINUE 

tt-GEOM 

159 

£= 

RC  ^ SORT (ROVl i)*R 0 V < 1 » * 

R( V(c)*«GV(2»  ♦ Ro Vl 3) *Ro V (3)1 

EtGEUM 

16C 

=v 

F 

THC  -■  ACCSl  Oi;TP(ftCV,V>  / RC 

J * ft AUDtG 

tEGEUM 

lol 

R 

* 

c 

tEGEOM 

162 

& 

| 

RETURN 

EtCEOM 

163 

fe 

END 

tEGEOM 

164 
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SUBROUTINE  EGACAL (D»  BETA,  NFB,  F,  ATM 
VERSION  8 DATE  l "5  OEC  72. 

REFERENCE-  O.b.  DUNN,  /NOTICE  CF  REVISICNS  FCR  EGA  ROUTINES/, 
TECHNICAL  MEMO  ANSFTM-2,  14  DEC  1<)72. 

PROGRAM  TO  CALCULATE  THE  EXTRA  GRCUNO  ATTENUATION  DUE  TO  THE  TUR- 
BULENT BOUNDARY  LAYER  OF  THE  AIR  NEAR  THE  GRCUNO  PLANE.  REFER  TO 
FIGURE  3 OF  SAE— A IR876A  ANO  FIGLPE  4 OF  SAE-AIK923. 

THE  RMS  CALLULATICN  ERROR  IS  LESS  THAN  O.I  D8  KITH  RESPECT  10 
FIGURE  3 UF  SAE-AIR876A.  THE  DECAY  TERM  FOR  ELEVATION  ANGLE  BETA 
REPRESENTS  THE  BEST  FIT  FGR  FIGLPE  4 CF  SAE-AIR923. 

INPUTS.  0 = DISTANCE  BETWEEN  SCIRCE  AND  OBSERVER  IN  FT. 

BETA  = ELEVATION  ANGLE  IN  DEG  BETWEEN  THE  HORIZONTAL 

GRODNO  PLANE  AND  THE  OBSERVERS  LINE  CF  SIGHT  TO 
THE  NOISE  SOURCE  (OBSERVER  CN  THE  GRGUNO) 

NFB  = NUMBER  CF  FREQUENCY  BANDS 

F = AN  ARRAY  OF  (NFB)  6ANC  CENTER  FKECUENC I ES  IN  HZ. 


OUTPUT.  ATN  = 


THE  ARRAY  OF  EXTRA  GROUND  ATTENUATION  VALUES  FUR 
EACH  FRECLGNC Y BANC. 


ALLOCATE  STORAGE  FOR  CTHER  ARRAYS 

DIMENSION  F ( i),ATN(l) , EGA (7 1 .C l (6) ,C2 (6 ) »C3 (6 ) ,C4(6 ) ,C0( o ) ,C( 8, 6) 
l , DANG  ( 5), OF (5, 6) 

REAL  LbCF { 7 ) 

ODUBLE  PRECISION  SUM,  PGh,  DIERN 

DATA  LbCF  /U. ,1.724546, 2. 025592, 2. 326602, 2. 627632, 2. 928667, 

1 3.229662/ 

DATA  EGA  / 7 * C . / 

DATA  GANG  /O.,  2.,  10.,  20.,  45./ 

DATA  OF  / I . , I . , . 1 66 , . 1 63 , 0 . , 1.  , i.  ,.297, .183  ,0.  , i • , 1 • , . 352, • 168, 

1 C . , 1.,  l.,.4U6,.198,C.«  468 , .214,0.,  1., I. ,.534,. 235, U./ 

DATA  CC  /2.5500/C5, 3. 7CC5o97, 4. 854333,6.1758828, 7. 31*6577, 

1 8. 76C9S2  3/ 

OATA  C/ 7.4685316 -9. ei 7C563 ,- 1 16. 1 1669 ,-5 13. 50033 , 3593 .272,  251 13 .8 
22  7,-8  73C6.  19  1 ,- 795555. 28 ,9. C4  708 52 ,2C. 06 7737 ,- 12 l.U45o2 ,-l 14 7.68 26 
it  2896. C422»56o47.28,- 1C 2929. 41,-1900633.5,  1 1.494 17 1,  22. <*527^0, 

4- 13L. 24292, -117B. 1871,  4Cp9. 3326 , 60283.99 ,- 109  3 7o. 69, -2006965  .9, 
514.933911,  22. UC35C3, -202.45769,-1217. 1785,  0636.1366,  60729.708, 
6-178956. J9,-1992C28. 1,  16.609834 , 18.789958,-167.364,-797.87204, 
75tC7 .9769,  35 4 7C . 3 74 ,-135686 . 42 ,- IC79105 . 8 , 19.031016,  13.761267, 
8-243.34  34  8,-632.97531,  77  73.6292,  456 14. 593  ,-203 312 .6 7 ,-  162002  7. 1/ 
OATA  Cl  /2.4072E-3, 3.4204E-3 ,4.6C8E-3,5.f:72E-3,7.24E-3,t  . 192  6-3/ 
DATA  C^  /5. D, 7. 2, ID. C, 12. 0,15. €,16.0/ 

DATA  C3  /— 7 . 906 ,— 1G. 2 76 »- 7.443 »— 8 • 124 » - A. 632 »-5 » 336/ 

OATA  C4  /2. 041, 3.075,3. 13C3,3. 12C5,3 .0196,2.9982/ 

X =■  ABS(O) 

IF  (X  - I. I 2,  2,  l 
I J = dtTA  / ^0. 


ANG  = ABSIb.U  - 90. 
IF  ( MOO ( J, 2 ) .NE.  C) 
IF  (ANG  - 45.)  4,  2, 

DO  3 l r 1 , NF  B 
A TNT  I » = 0. 

CCNT INUE 


* FLOAT ( J)  ) 

ANG  = 9C.  - ANG 
2 


EGACAL 
EGACAL 
EGACAL 
tCAUAL 
EGACAL 
ECACAL 
EGACAL 
EGACAL 
EGACAL 
JGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
tGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAc 
EGACAL 
tGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
FGACAL 
tGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
EGACAL 
tGACAL 
cGACAl 
tCACAL 
tC-ACttL 
tGACAL 
tGACAL 
EGACuL 
ECACmL 
EC  ACAc 
ECACAL 
EGACAL 
EGACAL 


2 

3 

4 

c 

-j 

6 

7 

5 
10 
11 
12 

13 

14 

15 

16 
17 
16 

19 
2C 
21 
22 

23 

24 

25 

20 

27 

28 
25 
3C 

31 

32 

33 

34 

35 

36 

37 

38 

39 
4 C 
Hi 
42 

4 J 
h4 

45 

46 

47 

48 
*»9 
5C 
51 
92 
p3 

54 

55 

5 c 

57 

58 
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GO  TO  20 

tGACAL 

bS 

4 

IF  (X  - 250.)  5,  5,  7 

EGACAL 

60 

5 

DC  6 J = 1,6 

tGACAL 

o 1 

EGA! J+l)  = C1IJ)  * X 

EGACAL 

62 

6 

CONTINUE 

ECACAL 

62 

GO  TU  13 

EGACAL 

64 

7 

X = ALOGIOI X) 

ECACAL 

6b 

IF  IX  - 3.6)  1C,  S,  8 

ECACAL 

66 

8 

00  9 J = 1,6  , , 

EGACAL 

6 7 

EC-AlJ  + l)  = C2  ( J)  * (1.  - EXFIC3IJ)  ♦ IX  - C4(J)))) 

EGACAL 

ot 

9 

CUNTINUE 

EGACAL 

6S 

GO  TO  13 

EgACAL 

70 

FGACaL 

71 

COMPUTE  EGA  BY  THE  TAYLOR  SERIES  LEAST-SCUARE-F IT. 

EGACAL 

72 

1C 

N = 8 

tGACAL 

7 3 

XX  - X - J.U76S521 

t CACAO 

74 

DC  12  J * 1,6 

tGACAL 

75 

PCh  = 1. 

tl.ACAl. 

76 

SUM  = COIJ) 

fci.Al  Al. 

77 

DC  11  I = 1 »N 

t CACAO 

7 b 

PGK  = !>Gw  * XX  / FLOAT  11) 

t 'Ou 

; S 

U TERM  * POh  * L ( I , J ) 

EoACmL 

SG 

11 

SUM  = SUM  + DTeRP 

ECACAu 

81 

EGAIJ+l)  = bUM 

tGACAL 

c2 

12 

CONTINUE 

ECACAL 

bi 

13 

DC  14  J - 1,6 

EGACAL 

c 4 

EGA(J  + l)  = tGA«J*l)  * TBLIKANG,  DANG,  DHl.JI,  1,  5) 

EGACAL 

14 

CCNT 1NUF 

FGACAL 

C6 

DC  IS  I = 1 , NFt) 

ECACAL 

j7 

X = ABSIFUH 

E G AC.  AC 

88 

If  (X  - 1.)  15.  15,  It 

ECACAL 

,<!9 

15 

A TNI  I)  = C. 

tGACAL 

9t; 

GO  TO  IS 

EC-aCAl 

SI 

16 

X = ALCGIO(X) 

FGACAL 

•>2 

IF  (X  - laCF ' 7 ) ) lfi,  17,  17 

EGACAL 

S3 

17 

A TNI  i ) = EGa ( 7 ) 

EGACAL 

94 

GO  TO  19 

tGACAL 

v5 

IS 

A TNI  I)  = TBIUUX,  LBCF,  EGA,  I,  7) 

lGACAL 

St 

19 

CONTINUE 

FGACAL 

S 7 

2C 

RETURN 

ECACAL 

Sb 

END 

EGACAL 

99 

89 
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P-IJs-' 


SUBROUTINE 

EJECT 

EJECT 

2 

AUTHOR 

0.  F.  MELORUH 

EJECT 

3 

EJECT 

4 

PURPOSE 

TO  PREDICT  JET  NCISE  FCR  MULTIPLE  ELEMENT/TUBE 

EJECT 

5 

NOZZLE S FOR  THE  PHASE  fi 

EJECT 

6 

NASA-AMES  FOOTPRINT  COMPACT  NAS2-6969. 

EJECT 

7 

EJECT 

8 

METHOD 

AS  DESCRIBED  IN  REFERENCE  1). 

EJECT 

9 

EJECT 

10 

INPUTS 

VIA  LABLEO  COMMON 

EJECT 

11 

EJECT 

12 

EJECT 

13 

VIA  LABLEO  CQMMCN  SWITCH 

EJECT 

14 

EJECT 

15 

NUMENC  NUMBER  CF  NCISE  SOURCES  OF  THE  SAME 

EJECT 

16 

NOISE  TYPE. 

EJECT 

17 

EJECT 

18 

VIA  LABLEO  COMMON  GCOMCN 

EJECT 

19 

EJECT 

20 

NCF  1/3  OCTAVE  OF  FULL  OCTAVE  SWITCH 

EJECT 

21 

CR  NUMBER  CF  FREQUENCY  BANDS  <6  UK  241 

EJECT 

22 

RE TA (241  DIRECTIVITY  ANGLES 

EJECT 

23 

EJECT 

24 

VIA  CABLED  CCMMCN  GPRAN 

EJECT 

25 

EJECT 

26 

AM  .CH  MACH  NUMEER  CF  THE  AIRCRAFT 

EJECT 

27 

NOUS  NUMBER  CF  OBSERVER  POSITIONS 

EJECT 

28 

EJECT 

29 

VIA  LABLEO  COMMON  SUMSPL 

EJECT 

30 

EJECT 

31 

SSPL  CURRENT  TOTAL  PREDICTED  NCISE  FOR  NCF 

EJECT 

j2 

(8  OR  24)  FREQUENCIES,  AT  NOBS  OBSERVER 

EJECT 

33 

POSITIONS  FCR  17  DIRECTIVITY  ANGLES. 

EJECT 

34 

EJECT 

35 

VIA  LABLEO  COMMON  ANGLE  (SET  UP  8Y  SUBROUTINE  ANGLES 

EJECT 

36 

EJECT 

37 

PSI  17  OIRECTIVITY  ANGLES  FCR  EACH  OF 

EJECT 

38 

NOBS  OBSERVER  POSITIONS. 

EJECT 

39 

PSIC  17  OIRECTIVIlY  ANGLE  PROJECTIONS  FOR 

EJECT 

40 

EACH  CF  NCBS  OBSERVER  POSITIONS 

EJECT 

41 

BETA  ELEVATION  ANGLE  PROJECTION  FOR  EACH 

EJECT 

42 

CF  NCBS  OBSERVER  POSITIONS. 

EJECT 

43 

EJECT 

44 

EACH  COMPONENT  IS  WRITTEN  CN  TAPE  CR  FILE  10 

EJECT 

45 

FOR  EACH  OF  NCF  BANCS  FOR  EACH  CF  NCBS  OBSERVER 

EJECT 

4 b 

POSITIONS. 

EJECT 

47 

EJECT 

48 

OUTPUTS 

VIA  LABLED  COMMON  SLMSPL 

EJECT 

49 

EJECT 

50 

SSPL  CURRENT  TOTAL  PREDICTED  NOISE  FOR 

EJECT 

51 

B CR  24  FREQUENCIES,  AT  NOBS  OBSERVER 

EJECT 

52 

PGSITICNS  FOP  17  DIRECTIVITY  ANGLES. 

EJECT 

53 

EJECT 

54 

VIA  LABLEO  CGMMCN  ANGLE  (SET  UP  BY  SUBROUTINE  ANGLES 

EJECT 

55 

EJECT 

56 

PSI  17  DIRECTIVITY  ANGLES  FOR  EACH  OF 

EJECT 

57 

NCBS  CBSERVER  POSITIONS. 

EJECT 

58 

.-  .,..  A w.  '4 ' 


FUNCTION  SOBPRGm  COS 


17  OIRECTIVITY  ANGLE  PROJECTIONS  FOR 
EACH  i.F  NEBS  LBSERVEK  PCSITICNS 
ELEVAllCN  ANGLE  PROJECTION  FOR  t ACF 
CF  N CPS  OBSERVER  PCSITICNS. 


fcSHLCC  PViRSUM 


SUBROUTINES 


ANGLES 


MENC2Z 


COMMON  /EJECT!)/  I E JEC  T , MMTtJ  S , AR  E A , AR  , T S , AMACPJ  , AHAoHS  , CV  , 

* PS,PAKtA,PTS,PMACHJ,PCV,EJANG, 
*lCCR9,LIN9,NT,-9.1MA9,LGM9,NVsl9,  I L F 9 • I LAYS, 

*TF9( 1C), PC  IASI  10) * PLA9 (1C) , 

*EL0H9,E0H9,K 1U9I  10)  »TL9UC)  ,Cf9,FM9 

CCMMUN/ Sk I TCH/NT  YPE  , I T YPE .NEAL, I CCf  » I PP T (7) , 1LN ( U) ,NLLPT 

CCMMON/TMSPL/SPZ 124, 17) , IB  12,3,13) 

CONSTANTS  USED  If:  INTERNAL  CAICULATICNS 

CCMMCJN  /GCONST/  IN  , IG  , I T 1 , I T2  ,EC  ,F  l,E2  ,F3  ,E  '♦  ,FS  * F6  , I 7,  FB  ,H 

* 10,11,12,13.14. IS. 16 .17. 18. 19, I 10, Pi. P3J.P! 


N,IG,lTl,IT2,FC,FWF2.F3,f',,F!»,F6,T  7.F8.F9.F10, 
0fH.I2fI3.i9.IS.l6.I7.i8.I9. 110, Pi ,P3i ,PS, POu  1 , 
PS.UNDEF  .BL.irC.CPR.RPC,::  rA(17i,Ml,FMl,II7,  A,  Pi 


VARIAHLr  SET  CALCULATEO  IN  TFT  PROGRAM  FRCCESSING 

COMMON  / GCCMLN/  NCF , NK  , BCR  I 29 ) »ISPL(24»1C,17),$PLT(24, 17), 
♦BUFI 2SJ.RETAI U) , SPl 2 < 17) , TG AGP < 24 ) .CL PSf ( 17  ) 

COMMON / SUM SPL'SSPL (24,10,17) 

CCMMCN/Pr,LO/PSPL(  U.2C)  .EPNL  ( 5 , 1C  I ,T  EFNL  ( S , IG  > 

FREQUENCY  BAM’i  USfcO  BY  PROGRAM 

COMMON  7GFRE0 > CFRrC ( 29 ) , UFHEC ( 2 S ) ,PF PE C (24 ) 

GENERAL  INPUT  parameters 

COMMON/ ANGLE /PS l I 17,10 ,P$IO( 17, 1C), BETA <17, 10) 


A IRCRAFT~UiSt°.VER  GEOMETRY  OUTPUTS 

COMMON  /GEOMU/  APY110.17) ,AP2(1C,17)  , PC  110, 17) , DFNC(  10. 17), 

* Bit  10, 17),B2<  10,17)  ,T,)S(  17,10)  ,TFC(  17,10  ,I'«R(  10, 17) 

* , APP  , TP  ,KHP,  APC  , TC,RI<L,CA,CZ,T  oFt  17, 10J  ,CCV 

/*  rktif  cn  O i r ii  /*  r*  k r r i i 


3* 

4bC  -9.X  ’ 


CCNVcPS IGN  CONSTANTS 
CCMMON/GCCNVU/C ( 2 , 10 ) , SLO I SX I 1 0 ) 


EJECT 
EJECT 
EJECT 
tJ  EOT 
EJECT 
EJECT 
cJEU 
EJECT 
EJECT 
EJECT 
EJECT 
EJECT 

eject 

EJECT 
EJECT 
EJECT 
EJECl 
EJtCT 
f.J  EC7 
EJECT 
tJECT 
EJECT 
L-JELI 
f JECT 
EJECT 
LJECT 
EJECT 
EJECT 
EJECT 
tJ  tCT 
tJECT 
EJEoT 
I JECT 
EJECT 
tJECT 
EJECT 
EJECT 
EJECT 
EJtCT 
tJECT 
t J EC.  T 
EJECT 
EJECT 
EJECT 
EJECT 
EJECT 
Eject 
EJECT 
EJECT 
EJECT 
EJECT 
EJFCT 
EJECT 
EJECT 
EJECT 
EJECT 
EJECT 


oonnn  ooo  non  no  oooooofio  noooo 


CCHM0N/HEAD/HINI20)  .HCUI120)  ,CHIM20I 

EJECT 

1 u 

fcJECT 

in 

tJECT 

i 16 

DIMENSION  PS2 1 2A  ,1 7) 

EJECT 

119 

LJEC 1 

120 

ICN(9)=ICN!9J+1 

fcJECT 

121 

fcJfcCT 

122 

EJECT 

123 

CELTA=EJANG*RPO 

EJECT 

12A 

ALPHA=DELTA-ATAN(SLCPE1 

EJECT 

L25 

AN*NLMTBS 

EJECT 

126 

CALL  ANGLES! NOBS tDELT A) 

EJECT 

127 

EJECT 

128 

EJECT 

125 

LOOP  FOK  THfc  NUMBER  OF  OBSERVER  POSITIONS 

EJECT 

13C 

EjtCT 

131 

AC 

DO  LOCO  M=1»NGB$ 

E J cCT 

132 

EJECT 

133 

EJECT 

13A 

CALCULATE  THfc  PRE  NERGE  JET  NOISE  PREOlCUCN 

EJECT 

i i'j 

EJECT 

136 

CALL  MlV.Zi’.Z!  IE JECT,1,ARE A, TS, APACE J,CV, AN, AMACHS.AR.PS, CZ, 

fcJECT 

137 

I 

* APG »PS I ( 1 ,M  ) ,CFREQ < I ) ,SFLT 11,1) *FBPF 1 

EJECT 

138 

CALL  L I'.CCR  (SPZ  ( 1*1)  »IPAS,fcGP9«£LCH9»SDH9»NtoL9,Kl-'9,  TL9, 

EJECT 

135 

*ILAY9,FNT,  I0P5,PSU  i,M)  ,NCP  ,8CF  ,FU9,CF9,PCTA9,NTF9,TF9» 

EJECT 

1 AC 

*OQPSF , SP!  2,  ICOR9 ,18(1,1, ITYPE)  ,LIN5,F8PFI 

fcJfcCT 

lAl 

EJECT 

1A2 

EJECT 

1A3 

A5 

CONTINUE 

EJECT 

1 A * 

fcJECT 

1 A- 

CCNVEHT  TG  A UNIT  CR  INDEXED  SPfcCTRA 

EJECT 

1 A6 

fcJLCT 

1A7 

ENG=NENG 

EJECT 

1A8 

IF(ENG.LE.O.C)  ENG=1.C 

EJECT 

1A5 

DG  50  J=  1 , 1 7 

EJECT 

15C 

ElVANG=BETAl J,M) 

EJECT 

151 

DANGL£=PSIG 1 J , M) 

EJECT 

152 

ENS=ESHL0G(0 ANGLE. EL VANG ,ENG) 

fcJfcCT 

153 

DC  50  K= 1 , 2A 

EJECT 

15A 

5C 

SPLKK,  J)=SPLMK,J)-6NS 

EJECT 

155 

IF!NCF.EQ.2A>  GO  TO  3CC 

EJtCT 

156 

EJECT 

157 

CONVERT  1/3  CC.TAVE  TU  FULL  CCTAVE 

fcJECT 

158 

fcJECT 

155 

DC  2GC  -J  = 1 , 1 7 

EJECT 

16C 

00  20C  K.  = 1 , 8 

EJECT 

lb  1 

SPLT(K.J)  * SPLT ( 3*K— I , J)  + A.6 

EJ  CCT 

102 

2C0 

CONTINUE 

fcJECT 

16  3 

EJECT 

lOA 

EJECT 

165 

ACO  TC  CURRENT  TOTAL  AND  HK1IE  ON  TAPE  1C 

EJfcCT 

166 

EJfcCT 

lo7 

fcJECT 

16  8 

3C0 

DO  ACC  J=l,NCF 

fcJECT 

165 

OC  350  K=  1, 1 7 

t J CCT 

170 

35C 

SPLT!  J,lO=SPLT(  J,K)-SPZ!J,K) 

EJfcCT 

171 

AOC 

CONTINUE 

Eject 

172 

\ 


92 


CALCULATE  THE  .‘L3TMERGE  JEI  NCISE  PREDICTION 

CALL  HEN022I I EJECT  ,2,AREA,P7S«PPACHJ  ,PC V » ALPHA*ARACH»AR» PAREA, 
» CZ»APO,PSIIl,h>*CFRECIl)  ,PSZI1,U  ,F8PF) 


I CONVERT  TO  A UNIT  CR  INDEXED  SPECTRA 
ft  ENG=NENG 

m IFIENG.LE.O.OJ  ENG--1.C 
I DO  050  J=l,17 
f £LVANG=8ETA( J«M) 

I'  DANGLE=PSI0(  J.MI 
f.  ENS=ESHLDGIDANGLE,ELVANG,ENG) 

I DC  550  1,24 

§50  PSZIK, J)*PSZIK,J)-ENS 

f IF(NCF.eQ.24»  GO  TO  700 

I 

I CONVERT  1/3  OCTAVE  TO  FULL  OCTAVE 

I DC  600  J=i»17 

I DC  600  K-l,  8 

i PSZIK.J)  * PSZ I3*K— 1 , J)  * 4.8 
500  CONTINUE 


AOD  TC  CURRENT  TOTAL  AND  NRITE  C>\  TAPE  10 


; DC  800  J^laNCF 
DO  75C  K=l» 17 

SPLTI J,K»=PWRSUM‘SPLT(J,K) ,PSZIJ,K)I 
3 SSPL (J,M,K)=PWRSUM(SSPLIJ,M,RI  ,SPLT( J.KJ J 
CONTINUE 

IF! I PRT ( 7 ) .NE . 7 J GO  TC  41C 

CALL  NO  I SOI  1 PRT  1 7 ) ,M  ,NK  , 10, CHI  N , ILr.I  T,  SLC  I?  X (H)  , PFKEO,  SPLT  ( 1*  1)  , 

* NCF » I TYPE ) 

CCNTINUE 

DO  360  JC=l»NCF 
DC  360  KC=1, 17 

SPLTI JC,KC)=SPLT( JC,KC1-TSPLCJC,P,KCJ 

CALI  PNLSUBI SPLTI 1,11 ,PSPL (l, M ,TFCI1,M  yEPNL ( 1 »F)  ,SPL2» 

♦TEPNLI lfM),NKyBCG*TCG,PLR,P,NCBS,IRR<P,U I 
IFIIPRTI 3J.NE.3JGO  TO  1CC0 

CALL  NO  I SOI  I PRT  I 3)  ,M,NK,  12, CHIN*  ILMT,SLCISX  IP)  , PFREC, 

* SPLTI  1,1) , NCF, ITYPEi 


CONTINUE 

RETURN 

END 


EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJr  '.7 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

fcJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

tJECT 

EJECT 

fcJECT 

fcJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 

EJECT 


iM-  » 
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r’  ,-  i 


SUBROUTINE  EOGEOM (X,Y,ZEUNtDELT3  ,1 , V , W »THC  k D5.T  , ALP, 

EOGEOM 

2 

l ETAtTH»PSIQ,PM 

EOGEOM 

3 

c 

• 

EOGEOM 

A 

c 

TITLE 

EOGEOM 

5 

c 

ECGE/CBSERVER  GEOMETRY 

EOGEOM 

6 

c 

EOGEOM 

7 

c 

PURPOSE 

EOGEOM 

8 

c 

ThlS  SUBROUTINE  DEFINES  THE  EDGE/CBSERVER  GECPETFY  CONSISTING  OF 

EOGEOM 

9 

c 

THE  FOLLOWING  BASIC  STEPS 

EOGEUM 

1.0 

c 

UNIT  VECTOR  FOR  SOUND  PROPAGATION 

EOGEOM 

II 

c 

DIRECTION  ANGLES  RELATIVE  TO  FOGE 

EOGEUM 

12 

c 

DIRECTIVITY  ANGLE  GRAZING  WING  EDGE 

EOGEOM 

13 

c 

EOGEOM 

14 

c 

INPUT  - CALL  SEQUENCE 

EOCEOM 

15 

c 

X* Y»  ZEON  AIRCRAFT  COORDINATES  RELATIVE  Tu  OBSERVER 

EOGEOM 

).6 

c 

DELT3  'ENGINE  INCLINATION  ANGLE  RELATIVE  TC  HORIZON 

EOCEOM 

i.  i 

c 

U,VtW  UNIT  VECTORS  FOR  tafNG  ECGE 

EOCEOM 

IB 

c 

THO  ANGLE.  OF  POLAR  COORDINATE  CF  INLET  OR  NOZZlE  RELATIVE  TO 

EOGEOM 

1.9 

c 

EDGE 

EOGEOM 

20 

c 

OLTfALP  ENGINE  CENTER  LINE  CRIEMAI1CM  ANGLES  RELATIVE  TO  EDGE 

EOGEOM 

21 

c 

EOGEOM 

22 

c 

OUTPUT 

ECGEUM 

23 

c 

ETAtTH  DIRECTION  ANGLES  RELATIVE  TC  ECGE 

EOGEOM 

24 

c 

PSIO  DIRECTIVITY  GRAZING  ANGLE 

EOGEOM 

25 

c 

PN  UNIT  VECTOR  FGR  SOUND  PROPAGATION 

EOGEOM 

26 

c 

EOGEOM 

27 

c 

NOTE 

ECGEOM 

28 

c 

ALL  INPUT  AND  OUTPUT  ANGLES  ARE  IN  DEGREES 

EOGEOM 

29 

c 

EOGEOM 

30 

DIMENSION  UC3)«VC3)tfc(3)  tPNOI 

EOGEOM 

31 

DATA  OEGRAD,  RADDEG  /I.  74532925 1943E-2 , 57.?.957795130B2/ 

EOGEOM 

3? 

c 

EOGEOM 

33 

c 

COMPUTE  UNIT  VECTOR  FGR  SOUND  PROPAGATION 

EOGEOM 

34 

c 

EOGEOM 

35 

SIND3  = S INC  DEL  T3*DEGRAO ) 

ECGEOM 

36 

COSD3  = COSC  OELT3*DEGRAD) 

EOGEOM 

37 

PN1 1)  ■=  X 

EOGEOM 

38 

PNC  2 ) = -Y*COSD3  - ZE0N*SIN03 

EOGEOM 

39 

PN(  3 i * Y*$IN03  - ZEDN*C0.',03 

EOGEOM 

40 

CALL  VECNCPNI 

EOGEOM 

41 

c 

EOCEOM 

42 

c 

COMPUTE  DIRECTION  ANGLES 

EOGEOM 

43 

c 

EOGEOM 

44 

ETA  * ASINC  DOTMPN.UI  MRAODLG 

EOGEOM 

45 

TH  = ATAN2i-DOTP(PN,W),OCTPtPN,V)  MRACCEG 

EOCEOM 

46 

c 

EOGEOM 

47 

c 

COMPUTE  GRAZING  ANGLE 

EOGEOM 

48 

c 

EOGEOM 

49 

PSIO  = 18C.  - ACOSC  -,0S(  AL?*OEGR  AC)*CGS  (ET A*CEGRAD) *COSI CTPO*  GLT I* 

EOGEOM 

50 

I OEGRAD)  - SIN 1 ALP*D£GRADI*S1NCETA*DEGRA0)  J*RADOEG 

EOGEOM 

51 

c 

EOGEOM 

52 

RcT'Jv 

EOGEOM 

53 

END 

EOGEOM 

54 

4 


94 


SUBROD’S  INE  EPNLI  4 PNL , T , N ,H ,TC .CNF  , ANS , I G IPKL) 

DIMENSION  Tt2i  • PM. (2)  , ANS(5) 

PURPOSE 

TO  COMPUTE  EFFEC f I VE  PERCEIVED  NOISE  LEVEL.  CCMPUTATION  INVOLVES 
INTEGRM  ION  OF  THE  PNL-TIME  HISTORY  OVER  THE  LIMITS  (PNLN, PNLX) 
AND  ( TN,  TX 1 » I.E. 

EPNL  * PNL X ♦ 1C  * ALCG10U1  / TO)  * 

INTEGRAL!  ANTILCGIO.I  * (FNL  - PNLX))  * OT  )) 


W v< 

I C 

I C 

I c 

S c 

| c 

I c 

I c 


WFERE 

PNLX 

PNLN 

TN 

TX 

INPUTS 
1)  T 

21  PNL 

3)  N 

4)  TO 


61  CNF 


OUTPUT 

1)  EPNL 

2)  PNLN 
PNLX 

31  TN 
TX 


MAXIMUM  PNL 

AMAXK  PNLX  - H.  CNL ) 

MINIMUM  TIME  WHEN  PNL  * PNLN 
MAXIMUM  TIME  WHEN  PNL  * PNLN 


ARRAY  OF  (Nil  TIME  VALUES,  EACH  CORRESPONDING  TO  THE 
TIME  WHEN  A (PNL)  VALLE  IS  CeSERVEO. 

ARRAY  OF  (M  PNL  VALLES  FCR  THE  TIME  HISTORY. 

NUMBER  OF  PCIMS  FOR  THE  TIME  HISTORY 
NORMALIZING  TIME  CONSTANT  IN  Tnfc  INTEGRAL  FORMULA. 
NORMALLY  THIS  IS  TEN  SECCNOS 

PNL  INCREMENT  DCWN  FRCM  THE  MAXIMUM  (PNLX)  USED  TO 
DETERMINE  THE  INTEGRATION  LIMITS  IF  (PNLX  .GT. 

(CNL  «•  H)  I . NORMALLY  (H)  IS  TEN  FNOB. 

CUTCFF  CR  NCI SE  FlCCR  LSEO  AS  AN  ADDITIONAL  CONSTRAINT 
IN  DETERMINING  THE  INTEGRATION  LIMITS.  FUNCTIONS  ONLY 
IF  (PNLX  .It.  (CNF+H) )• 


THE  EFFECTIVE  PNL  IN  (EPNCB) 


M1N/MAX  PNL  LSEO  IN  THE  INTEGRATION  FORMULA 


TX  ...  MlNs  <(AX  TIME  USED  IN  ThE  INTEGRATION  FORMULA 
4)  IGLPNL ...  FUNCTION  VALLE  USED  AS  AN  EKPCR  CODE. 

* C FOR  NC  ERROR 

* I FGK  BAD  INPLTS,  RESULTS  SET  TO  CMEGA,  I.E.  1.E75 

- 2 INTEGRATION  LIMITS  ARE  UNDEFINED,  RESULTS  ARE 

SET  TC  CMEGA. 

RFMAKKS 

L)  ASSUMES  LINEAR  VARIATION  BETWEEN  PCIMS  (T,  PNL)  FCR  INTERPOLA- 
TION, EXTRAPOLATION,  AND  CCN.PLTATICN  OF  THE  INTEGRAL. 

2)  INPUTS  (TO,  H,  N)  MUST  BE  GREATER  ThAN  (0.,  0.,  2). 


LOGICAL  A,  B 

DATA  II,  12,  FO,  FI  F1C,  Cl,  CMEGA  / 1 ,2  ,C.  , l . ,10. , .2302535 1 , l. E75/ 
TCXI  X1,X2,Y1,Y2>  * I X4*(  Y2  PM  N • ♦ X2*  ( PnLN-YI)  ) / (Y2-YI) 

OA(Xl)  * XI  * XPMIDX (C3)  ♦ DT 

EPNL  = OMEGA 

TN=OMEGA 

TX=CMFGA 


E°M.  f 
EPNI.I 
EPNwI 
EPNL! 
EPNLI 
EPNL  I 
EPNL  I 
EPNL  i 
EPNLI 
EPN1. 1 
EPi.u. 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
fcPNLl 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNlI 
EPNL  i 
EPNLI 
EPIiLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
cPNLl 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 


95 


o o 


' J* 


i 


PNLN=GMEGA 
PNLX=OM£GA 
IGLPNL 


= 1 1 


ERRC".  CHECKS 

IF  UN  .IE.  12 1 
IGLPNL  = 12 


.OR.  ITC  • cE  . FCI  .LR.  IH  .LE.  FO)l  GU  TO  160 


C 

C 

c 

c 


SORT  POINTS 
K( 

OC 


20 


IC 


JS 

DC 

IF 

M 

T I J } 

UK) 

DT 


NITH  RESPECT  TO  INCREASING  IT)  ANC  FIND  IPNLX) 
N - II 
K = ItKE 
= K * II 
2G  J = JSfN 

ITtJ)  - TIKli  IC.  2C.  2C 

* TIJ) 

= UK) 

= DT 

* PNLIJ) 


20 


2C 

40 

5C 


PNL(J)  * PNUK) 

PNLIK)  = DT 
CONTINUE 
MI  = 1 1 

PNl X = PNL(l) 

IX  50  K = 12, N 

IF  IPNLX  - PNL(K ) ) 3C,  40,  50 

PNLX  = PNLIK) 

MT  = K 
CCN3 INUE 

IF  UMT  .LE.  II)  .OR.  (NT  .GE. 
PNLN  = AMAXUPNLX  - H,  CNF) 

OS  = EXPICI  * I PNl N - °NLX) ) 

I = II 

SUM  = FC 


M .OR.  IPNLX  .LE.  CNF))  GC  TO  ItO 


PERFORM  INTEGRATION 

CHECK  FOR  ENO  POINTS  BEING  ABOVE 

USING  LINEAR  EXTRAPOLATION. 


(PNLN),  ANC  CALC.  AREA  IF  SO  BY 


<:PNll 
fcPNLJ. 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNL  I 
EPNLI 
EPNLI 
EPNLI 
EPV.i 
TrNL  i 
EPNLI 
EPNLI 
EPNLI 
t.PNLl 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPN!  1 
EPM  I 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNLI 
EPNcI 


LOOP  OVER  ACL  PCINTS  AND  SUP  AREAS  IF  ABCVE  < PNLN) 
00  14C  J = 12, N 


EPNLI 

EPNLI 

EPNLI 


59 

(jG 

M 

, «i 

t>3 

04 

05 

Lt 

57 

t>8 

fc9 

7C 

71 

72 

73 

74 

75 
It 
77 

76 

79 

80 
81 
82 

83 

84 
65 
36 
87 
o8 
89 
SO 

91 

92 

93 

94 

95 


IF 

I PNL I 1 » .LE.  PNLN) 

GO  TC  8C 

EPNLI 

96 

IF 

(PNL (21  - PNL ( 1 1 1 

160,  16C , 60 

FPNLl 

97 

60 

TN 

= TCXU  U«  T(2), 

Pf.L(l),  FNL12J) 

EPNLI 

9b 

OT 

= T ( I ) fN 

EPNLI 

99 

C3 

= Cl  * I - C 11  - 

PNLN) 

EPNL  I 

IOC 

7C 

SUM 

* SUM  «•  4(C0) 

EPNLI 

IC1 

IF 

( : ) 6G,  l .t,,  ICO 

EPNcI 

1C2 

8C 

TX 

* -TX 

EPNLI 

LC3 

IF 

IPNLlNi  .LE.  PNLN) 

GC  TC  IOC 

EPNLI 

104 

J 

= N - II 

EPNLI 

105 

I 

= I ♦ ll 

EPNLI 

106 

IF 

-PNLIJ'.  - PNL  IN  1 ) 

163,  16C,  90 

EPNLI 

107 

SO 

TX 

= ICXIT1J),  TIN), 

P .vi J)  , FMIMI 

EPNLI 

IC8 

OT 

* TX  - TIN) 

EPNLI 

1C5 

c? 

= CL  * 4 PNL  I M - 

PNLN) 

EPNLI 

lie 

GO 

TO  7C 

EPNLI 

111 

10G 

CONTINUE 

EPNLI 

112 

113 

114 

115 


96 


* J - li 
= PNl ( I ) 
= PNLIJ) 


IF 

(A 

.AND. 

8)  GC  TC 

110 

IF 

(8 

-AND. 

I. NOT.  A))  GO  TC 

12C 

IF 

(A 

.AND. 

I. NOT.  0))  GC  TC 

13C 

GO 

TO 

140 

nc 

OT 

= 

FIJI 

- Til) 

C2 

EXPIC 

i * ipnlii: 

1 - PNLX 1 

l) 

C3 

Cl  * 

(PNL  1 J)  - PNUin 

SUM 

SOM 

* 0AIC2) 

GC 

TO 

140 

120 

TT 

= 

TCXIT 

111*  TIJ) . 

PNL  ID  , 

PNL 

TN 

- 

Art  INI 

ON#  TT) 

01 

s 

TIJI 

- TT 

C3 

= 

Cl  * 

( PNL I J ) - PNLN) 

GC 

TO 

135 

130 

IT 

TCXITII),  TIJ), 

PNL II) , 

PNL 

IX 

= 

AMAX1 

ITX#  TT) 

01 

3 

TT  - 

Til) 

C3 

3. 

Cl  * 

IPNLII)  - PNLN) 

135 

SUM 

X 

SUM 

♦ OA ICO) 

14C 

CONTINUE 

15C 

SOrt 

X 

SOM 

/ TC 

IF  ( SUM  .Lfc. 
EPNL  * F 10 
10LPNL  = 0 

ANSI 1)=EPNL 
ANSI  2 )=PNLN 
ANSI 3l=PNLX 
ANSI 4)=TN 
ANSI 5)=TX 
16C  RETURN 
fcNC 


FC)  GC  TC  160 
* ALOGICl SOP)  ♦ 


EPNLI 

116  § 

EPNLI 

117  1 

EPNLI 

118  e 

EPNLI 

119  | 

EPNLI 

l2!'  I 

EPNLI 

I 

EPNLI 

n.  § 

EPNLI 

123  | 

EPNLI 

124  5 

fcPNl  I 

125  1 

EPNLI 

126  I 

EPNLI 

127  | 

EPNLI 

12C  | 

EPNLI 

129  I 

EPNLI 

13C  1 

EPNLI 

131  I 

EPNLI 

132  1 

EPNLI 

\l2  1 

EPNLI 

134  f. 

EPNLI 

135  | 

EPNLI 

l3fc  1 

EPNLI 

137  | 

EPNLI 

138  | 

EPNLI 

135  | 

EPNLI 

I4C  S 

EPNLI 

141  1 

EPNLI 

142  I 

EPNLI 

143  1 

EPNLI 

144 

EPNLI 

145  | 

EPNLI 

146  | 

EPNLI 

147  I 

EPNLI 

146  | 

EPNLI 

149  | 

SUBROUTINE  ERROR!  1 TYPE,  INDX1 , IN° X2 I 

ERROR 

2 

c 

ERROR 

*3 

c 

AUTHOR 

M.A.  JAEGER 

EKRGk 

4 

c 

ERROR 

5 

c 

PURPOSE 

TO  WRITE  ERROR  MESSAGES 

ERROR 

6 

c 

ERROR 

7 

c 

METHOD 

THE  CALLING  SEQUENCE  PARAMETERS  ARE 

AS 

FOLLOWS 

ERROR 

fc 

c 

I TYPE 

IDENTIFIES  THE  NOISE  TYPE  CURRENTLY 

BEING  PRECICTEO 

ERROR 

5 

c 

INOXi 

IDENTIFIES  THE  ROUTINE  IN  WHICH  THE 

ERROR  WAS  FOUND 

ERROR 

1C 

c 

INDX2 

IDENTIFIES  THE  STATEMENT  TO  BE  PRINTED. 

ERROR 

11 

c 

ERRORS 

THAT  ARE  FATAL  CAUSE  A PROGRAM  STOP 

,CThERWISE  A RETURN  TO 

ERROR 

12 

c 

THE  ROUTINE  CALLING  ERROR  ANO  A RETURN 

TO 

ITS  CALLING  ROUTI 

fcRRGi\ 

13 

c 

WITHOUT  CONTINUEING  CALCULATION 

ERROR 

14 

c 

ERROR 

15 

c 

ERRGr 

Id 

c 

ERROR 

17 

c 

ERROR 

18 

DIMENSION  TYPNAM(4,13) 

ERROR 

19 

U IMENS ION  SUBNAM ! 2 , 7) 

ERROR 

20 

DATA  ICUTAP/  6/ 

ERROR 

21 

OATA  SUBNAM/4HATM0,4HSP  , 

ERROR 

22 

* 

4HBLWF  »4HLP  , 

ERROr 

23 

* 

4HCCP  T ,4HR  , 

ERROR 

24 

* 

4HL I NC ,4H0R  , 

ERROR 

25 

* 

4HPRCP ,4H  , 

ERROR 

26 

* 

4HC0RS,4HPL  , 

ERROR 

27 

* 

4HMAIN.4H  / 

ERROR 

28 

CATh  TYPNAM/4HPRIM,4HARY  ,4Hj£T  ,4H  , 

ERROR 

25 

* 

4HPRI..4HAN0  ,4hSEC . ,4H JET  , 

ERROR 

JC 

* 

4HC0KE , 4H  ANC* 4HTLRB  «4HI NE  , 

ERROR 

31 

* 

4HC0MP ,4H. AND ,4H I NL T ,4H.FAN, 

EKROk 

32 

* 

4HEXIT ,4H  FAN ,4H  ,4H  , 

ERROR 

33 

* 

4hAUGM,4HENTC,4HR  WI ,4HNG  . 

ERROR 

34 

* 

4K8L0W,4HN  FL,4hAP  ,4H  , 

ERROR 

35 

* 

4HE JfcC  »4HIGR  ,4HSLPP  ,4FRESR  , 

ERROR 

36 

* 

4HLI F T , 4H  FAN.4H  ,4H  , 

ERROR 

37 

* 

4HPR0P,4HELLE,4HP  ,4H  , 

ERROR 

38 

* 

4HHEH,4HC0PT  ,4hER  ,4H  , 

ERROR 

35 

♦ 

4HME AS ,4HORfcO»4H  DAT ,4HA  , 

ERROR 

4C 

* 

4HFL 1G,4HHI  G.4HE0ME,  4HTRY  / 

ERROR 

41 

WRITE  ( IGUTAP  , 5)  ( TYPNAM  ( I ,1  TYPE  ) 1 1=  I ,4 > 

ERROR 

42 

5 FORMAT ( AH  ERR.4HCR  D »4HE  TEC ,4F IEC  ,4HIN  P» 

4HREDI 

,4HCT IC,4HN  OF, 4H 

ERROR 

43 

* ,4A4,4F  N0I»4HSE  T »4H YPE  I 

ERRGR 

44 

WRITE!  IOUTAP,  20101  { SOBNAM ! 1 , I NCX i 1 .1  = l ,2 1 

ERROR 

45 

2010  FORMAT!  IX, 4HERR0.4HR  RO  « 4HUT  I A ,4HE  CA.4HILEC, 

4H 

FR0,4HM  SU,4HBR0U, 

ERROR 

46 

♦4HTINE 

, IX.2A4) 

ERROR 

47 

GO  TO 

i IC, 20, 30, 4C,5C,6C,7G, 80,90,100,110, 

120 

• 

ERROR 

48 

*13C,  140, ISC, lbO) , INDX2 

ERROR 

49 

1C  WRITE! 

IOUTAP, ICICI 

ERROR 

5C 

GO  TO 

2000 

ERROk 

51 

2C  WRITE! 

IOUTAP, 1020 

ERROR 

52 

GO  TO 

2000 

ERROR 

53 

30  WRITE! 

IOUTAP, 1030 

fcRRUR 

54 

GO  TO 

2000 

EKRCK 

55 

4C  WRITE! 

IOUTAP,  1040 

ERROR 

56 

GO  TO 

2000 

ERROR 

57 

50  WRITE! 

IOUTAP,  1050 

ERROR 

58 

98 


GO  TO  2CCC 

ERROR 

55 

60 

WRITE! (OUT AP, 106 Cl 

ERROR 

oC 

GC  TO  2000 

ERROR 

61 

70 

CONTINUE 

ERROR 

td 

GC  TO  2000 

ERROR 

bl 

8G 

WRITE!  10UTAP  *1080 

ERROR 

£.4 

GO  TO  20CC 

ERROR 

6- 

9C 

WRITE!  10UTAP, 1050 

ERROR 

6fc 

GC  TO  2000 

'.KROR 

67 

ICO 

WRITE! I0CT AP  1 1 ICO) 

F.  KOR 

6b 

GG  TO  20C0 

I RROK 

65 

11C 

WRITE!  lOLTAP(lllC) 

tRROK 

7L 

GC  TC  200C 

ERROR 

71 

12C 

WRITE! IOCTAP, 1C8C) 

ERROR 

72 

GC  TO  2000 

ERROR 

73 

1 30 

WRITE!  IOCTAP *1130 

yrror 

74 

GC  TO  200C 

ERROR 

75 

14C 

WRITE! IGCTAP»114C) 

cRKUR 

76 

GC  TO  2C0C 

error 

77 

150 

wRITE!  IOCTAP, 1150 

error 

76 

STOP 

ERROR 

75 

160 

WRITE!  IOCTAP, 1160 

ERROR 

0C 

1010 

f CRMAT 1 106HCTUO  MANY  ENTRIES  IK  ALTITUCE  VS  TEMPERATURE  TABLE 

. HA 

ERROR 

61 

IXIMUM  ALLOWED  IS  FIFTY.  ISA  ATMCSFHERE  IS  ASSUMED. 1 

ERROR 

32 

IC2C 

FORMAT! IC3H0TUU  MANY  ENTRIES  IN  ALI1TLCE  VS  PRESSURE  TABLE. 

Ma  . «H 

fc-’RUR 

63 

IUK  ALLOWED  IS  FIFTY.  ISA  ATMOSPHERE  IS  ASSUMED. 1 

cKRGR 

65 

1030 

FORMAT! 112H0100  MANY  ENTRIES  IN  ALTITUDE  VS  RELATIVE  HUMIDITY 

Tabl 

ERROR 

86 

IE.  MAXIMUM  ALLOWED  IS  FIFTY.  ISA  ATMOSPHERE  IS  ASSUMED.) 

EkKOk 

66 

O 

>r 

o 

~4 

FORMAT! 105H0ALTITC0E  VS  TEMPfcRATLRE  TABLfc  IS  UNDEFINED.  MUST 

HAVE 

ERROR 

3 7 

l AT  LEAST  TWO  ENTRIES.  ISA  ATMCSFHERE  IS  ASSuMEC.) 

ERROR 

ee 

1050 

FORMAT! 102H0ALTITLDE  VS  PK5SSC8E  TABLE  IS  UNCEFINEC.  MUST  HAVE  AT 

ERKC'K 

85 

l LEAST  TWO  ENTRIES.  ISA  ATMCSFHERE  IS  ASSUMED.) 

Error 

5t 

1060 

FORMAT! 1C8H0ALTI ILCE  VS  RELATIVE  HCMICITY  TABLE  IS  UNCtFINED. 

MUS 

ERROR 

91 

IT  HAVE  AT  LEAST  TWC  ENTRIES.  ISA  AIMCSPHERt  ASSUMED.) 

ERROR 

52 

108C 

FORMAT ( 40H  EFFECTIVE  TIP  MACH  NLMGER  CUT  LF  RANGE,  / 

ERROR 

53 

* 33HGREATER  THAN  .93  OR  LESS  THAN  0.  ) 

ERROR 

94 

109C 

FCRMAT ( 5PH  TGU  MANY  TARGET  FREQUENCIES  SPECIFIED  FGR  LINING. 

/ 

ERROR 

55 

J 

*25H  ONLY  FIRST  TEN  ARE  USED.  ) 

ERROR 

9t 

1100 

FCRMAT! 65HCT0G  MANY  WALLS  SPECIFIED  IN  FAN  LINING.  ONLY 

FIRST 

ERROR 

57 

l TEN  ARE  USED ) 

ERROR 

98 

me 

FCRMAT  (44M0NC  WALLS  HA VF  8EEN  DEFINED  FLF  FAN  LINING.  > 

error 

99 

1130 

FORMAT!  IH  ,35HERK0R  WRITING  RANCCM  FILE  JCri  AECKT  | 

error 

ICO 

U4C 

FORMAT!  IH  » 35HERRCR  REAL I NG  RANCCM  FILE  JC6  A6CKT  ) 

error 

iCl 

1 15C 

FORMAT! 33H0***FATAL  ERKCH**»  tAC  CfcCMEIRY.  ) 

ERKLR 

IC2 

U6C 

FCRMAT! 70H  ***  WARNING  ***  PROGRAM  CAPABILITIES  EXCEEDED,  l.E. 

! ME/ 

ERROR 

103 

*SF)  GREATER  IhAN  ONE  ) 

ERROR 

104 

2000 

CGNTINCE 

ERROR 

105 

RETURN 

ERROR 

106 

ENO 

ERROR 

107 

99 


FUNCTION  ESHLDG(PSI,  BETA,  XEI  ESHLDG 

OATA  FI,  HPl,  RPO  /l.C,  1.57C796,  l.74i>329E-2/  EShLOG 

EShLOG  = -10.  * AlCGICtXE)  EShLOG 

CP  * COSIRPO  * PSD  ESHLOG 

SP  = SQRT(F1  - CP»CPI  EShLOG 

IF  (SP  .LE.  3.4E-4)  GC  TO  10  ESHLDG 

CTP  * FI  * CP  / SP  ESHLDG 

ESHLOG  * ESHLDG  ♦ (FI  - 2.  * (CCSIhPl  * (BETA  / ?Q. I ♦*0.8) **61  / ESHLCG 
l (X£  » (FI  ♦ CTP*CTPDI  EShLOG 

1C  RETURN  ESHLOG 

ENC  ESHLOG 


6 

7 

£ 

<3 

10 

11 

12 


100 


VJ'  U'  M 


' ***** 

, * 


m 


SUBROUTINE  EWGIO 

EwGIU 

2 

ewgic 

3 

PURPOSE 

TO  READ  ENGINE/RUG  GECMETPY  I/C  FOR 

EwGIO 

4 

WING  SHIELDING  PACKAGE 

EWGIC 

t 

EWGIU 

t 

INPUT 

EWGIO 

i 

SHPTE 

TRAILING  EDGE  SWEEP  ANGLE  (DEG)  DEFAULTS. 

EWGIO 

6 

SWPLE 

LEADING  EDGE  SWEEP  ANGLEIGEG)  =0. 

EwGIU 

$ 

OIHEO 

WING  DIHEDRAL  ANGLE  (GEG)  =0. 

EwGIO 

10 

DOSD 

DIMENSIONLESS  DISTANCE  BETWEEN  ENGINE  C.L. 

EwGIU 

11 

AND  WING  TIP 

EWGIO 

12 

00X10 

DIMENSIONLESS  DISTANCE  IN  AXIAL  DIRECTION 

EwGIO 

13 

TO  T.E.  FROM  POINT  CN  TCP  CF  WING 

EWGIU 

14 

00X20 

DIMENSIONLESS  OISTANCE  IN  AXIAL  01REC7ICN 

EwGIO 

IS 

TO  L.E.  FROM  POINT  CN  TCP  CF  WING 

EWGIO 

ib 

DCXOO 

DIMENSIONLESS  DISTANCE  IN  AXIAL  DIRECTION 

EWGIO 

17 

FROM  NOZZLE  EXIT  PLANE  TO  PCINT  CN  TOP  OF  WING  D£F=0 

EwGIO 

16 

DDYIO 

DIMENSIONLESS  OISTANCE  NORMAL  TC  ENGINE  C.L. 

EWGIU 

IS 

FROM  TOP  CF  WING  TC  T.E. 

EWGIu 

2G 

0DY20 

DIMENSIONLESS  DISTANCE  NCRRAL  TC  ENGINE  C.L. 

EwGIli 

^1 

f-AOM  TOP  CF  WING  TC  L.  E. 

EWGIU 

22 

DC  rOC 

DIMENSIONLESS  DISTANCE  BETWEEN  TCP  CF  WING 

EWG  lu 

23 

AND  ENGINE  C.L.  DEFAULT*.! 

twGIO 

24 

ODLO 

DIMENSIONLESS  ENGINE  LENGTH 

EwGIU 

25 

0 IAN  I 

DIAMETER  CF  NGZZLE  INLET  < FT ) DEF AULT*. 3048 

EWGIU 

lb 

OIANE 

DIAMETER  CF  NGZZLE  < ► # FT  * 

EWGIU 

27 

EWGIO 

28 

COMMON/GCONST/IN 

EWGIO 

29 

CCMHCN  /GPRAM/ALTPfALTK,SLCPE,AMACH,NCBS,SLDl$TUO)»NTENG,  iunit 

EWGIU 

3C 

EWGIU 

31 

CCMMON/EWGEO/SwPTE.SWPLE,DIHEO,CCSC,CCXlC.nCX2D,i:CXOC, 

EwGIO 

32 

♦CCYIU.00Y20. 

ODYCD.DDLO.UIANI ,lt$ 

EWGIU 

33 

CCMMON/ICPATH/NCAS.NCCF 

EWGIU 

34 

DIMENSION  WNP(lJ,3» 

EWGIO 

35 

EQUIVALENCE 

(SEI.lbS) 

EWGIO 

36 

EWGIO 

37 

NAMELlST/EWDATA/SWPTE,SWPLE,ClFED*C0XlDfCCX2C,DDX0D»CCSD. 

EWGIO 

3e 

*CCYI0,0UY2D» 

DUYCD.DDLO.DIANE.IES 

EWGIu 

39 

EWGIU 

40 

EWGIO 

41 

EWGIU 

42 

TEST  AND  STORE  DATA  FCR  FIRST  CASE 

EWGIO 

43 

EWGIO 

44 

I FI  NCAS.EQ. 

UGO  TC  ICC 

EWGIU 

45 

EWGIu 

46 

RESTORE  GATA 

EWGIU 

47 

SWPTE  = WKP( 

l.NCCFI 

EWGIO 

46 

SWPLE  =WKP( 

2.NCGF ) 

EWGIu 

49 

CIHED  = WKP( 

3.NCCF ) 

EWGIU 

50 

OOSO  - WKPI 

4.NCGF) 

EWG  IG 

51 

CDXID  =WKP< 

5.NC0F) 

EWGIU 

52 

CCX20  *WKP I 

6.NCUF) 

EWGIU 

53 

CCXOO  “WKP ( 

7.NCGF) 

EWGIO 

p4 

CCYID  =NKPI 

B.NCCF ) 

EWGIU 

55 

CCY20  *WKP( 

9.NC0F ) 

EwGIU 

5t> 

CDYOO  = WKP(  lOtNCCF) 

EWGIU 

57 

GOLD  = WKP  ( I I tNCOF ) 

EWGIU 

58 
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C IANE  *RKP( l2fNCCFI 
SE  I*WKP( 13.NC0FI 
100  READ! IN.EROATAl 

WKPl  1,NCGF)*SKPTJE 
MKP(  2.NCOF)*SWPLE 
taKPl  3»NCCF)*DIHcD 
WKP1  AfNCCF)*DDSD 
KKP(  5»NCOF)*OOXiO 
UKP(  6>NCGF) *00X20 
1»KP«  7,NCOF)*DOXOO 
WKP(  8,NCOF)*ODYlO 
UKP(  <3,NCOF)*DOY2D 
wKP ( 1C  »NCOF ) *00 YOD 
MKPU1.NC0F1*00L0 
hKP( 12,NC0F )*OlANE 
. WXPU3,NC0F)*Sfcl 

D |ANl*DlANE  „ „„„„„ 

1F( 1 UN I T*EQ. 01 01  AN I *01  AN 1*3. 2808 33 

RETURN 

ENO 


SUBROUTINE  EWGOUT!  IPRT, UNIT) 

PURPOSE 

fhlS  SUBROUTINE  PRINTS  THE  ENGINE  / WING  GEOMETRY  VARIABLES. 

THESE  VARIABIES  ARE  AVAILABLE  IN  CCMMCN  EwGEC. 

THE  PRINTOUT  IS  UN  LOGICAL  UNIT  1C  UNLESS  THt  ARRAY  REPORT 
INDICATOR  IPRTI7)  IS  NOT  7 IN  WHICH  CASE  THE  PRINTOUT  IS  UN  6. 

INPUT  - CALLING  SEQUENCE 

IPRT  - ARRAY  CF  REPORT  INDICATORS,  ONLY  7 IS  USED 
IONIT  - 0 MRS  UNITS 

1 ENGLISH  UNITS 

INPUT  - COMMON 

tWGEU  - ALL  VARIABLES  ARE  PPINTEC 
DIMENSION  IPKTI7) 

CCMMGN/CWGEO/  SWP7E » SWPLE ,DI HED, CCSD ,CCXlC ,CCX20, CCXOC , COY  ID , 
l ODY20,ODYCD,ODLU,CIAM 

DIMENSION  IUDI2I 
DATA  IUO  /3H  M.,3H  FT/ 

DETERMINE  OUTPUT  UNIT 

ICUT=8 

rr( IPRTI 7I.NE.7) IUlT=fc 
SET  THE  UNIT  FOR  CIAN1 
I FI  lUMT.NE.OGO  TC  25 

a = iuom 

i;iANE=UIANl*.3u48CCE 
GO  TU  DC 
25  Ii.  = I U0(  2 ) 

DIANE=DIANI 

PRINT  TITLING  INFCRMATICN 
5C  CALL  PKINTHI 1PRTI7)  ,LCT,ICLT» 

PRINT  THE  VARIABLES  IN  CCMMCN 

WRITE! 10L  T , 1 Cu ) SWPTE, DIANE, ILiSwFLE  ,DCLC ,CIHfcC, CCSD, CCXOD, OCX  ID, 
I 00X20, D0Y0D,D0Y1C,C0Y2C 

ICO  FORMAT! 1HC,39X,36HE  NGINE/WING  GtCMETRY// 

1 2GX • 16HT .E • SWfcEP  ANGLE »5X  , 1H=  , F6.1  ,4H  CEG.16X, 

2 15HNUZZLE  DIA.  (0)  »5X,IH=,F7.2  ,A3/ 

i 2UX  1 16HL.E.  SWEEP  ANGLE »5X , 1H= , Ft.i  ,4H  CEG»l6X, 

A 19HENGINE  LENGTH  (L/D)  ,5X,lH=,F7.2/ 

5 2CX  t 22HW ING  DIHEDRAL  ANGLE  =,Ffc.L,4H  D£G,I6X, 

6 2SHDIST.  10  WING  TIP  I S/D  J =,F7 ,2/// 

7 41X.37HAXIAL  DISTANCE  (NOZZLE  HFL.  TC  h INGI /// 

8 2 IX , 8HX0  / D =,F7.2,17X,8HXl  / C =,F7.2 ,17X,8HX2  / D =,F7.Z 
V ///41X,40HVERTICAL  DISTANCES  (NC2ZLE  Hfcl.  TC  WING)// 

* 21X.8HY0  / D =,F7.2,17X,8HY1  / C = , F7.2 ,1 7X  ,UHY2  / D =,F7.2) 

RETURN 


EWGOUT 

2 t 

EwGUUT 

A Jg 

EwGUuT 

4 fi 

EWGOUT 

s 

EWGUuT 

**■  5 

EwGOu T 

. 

' 4 

EWGOUT 

o *5 

EWCOuT 

c 9 

* M 

EwGUUT 

1C  | 

OWGOuT 

n i 

EWCU~ t 

12  | 

EmGOUT 

EwGUUT 

14  I 

EWGOUT 

15  I 

EwGOuT 

16  I 

EwGOUT 

17  ] 

EWGOuT 

it  1 

EWGUUT 

U 1 

EwGOuT 

20  I 

EWGOUT 

21  S 

EwGOUT 

22  | 

EwGUUT 

23  | 

EWGOuT 

2*  S 

E'W  GuU  T 

25  I 

EWGOuT 

26  1 

EwGOu  T 

c7  1 

EWGOUT 

2t  | 

EWGOUT 

29  I 

EwGuuT 

30  V 

EwGOuT 

31  | 

EWGOUT 

32  1 

EwGOuT 

33  1 

ewGOur 

54  B 

EwGOuT 

35  1 

LWCUuT 

36  | 

EWGUUT 

j>7  1 

EwGOuT 

38  f 

EwGOUT 

39  1 

EWGOUT 

AC  | 

EWGOUT 

4,1  1 

EWGOUT 

A2  f 

EWGOUT 

A3  | 

EwGOu  T 

AA  j 

EwGOUT 

A 5 - 

EwGOUT 

A6  I 

EwGOUT 

A 7 I 

twGCUT 

A8  1 

EwGOUT 

A9 

EWGOUT 

50 

EWGOUT 

51 

EwGUUT 

52 

EwGOUT 

53 

EwGOuT 

54 

EWGOUT 

55 

EWGOUT 

56 

EwGOuT 

5 7 

EwGOUT 

3G 
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SUBROUTINE  FAAI SO IF, FREQ ,K ,FC » 

FAAISO  MASTERS, R.M.  APS-IC4A  APRIL  1969 
SUBROUTINE  FAAISO  CALCULATES  THE  TONE  CORRECTION  TG  A 
SPECTRUM  FROM  A KNOWLEDGE  CF  THE  TONAL  I RREGULAR IT  I ES . 

THE  METhOD  IS  THAT  DEFINED  BY  THE  ISC/FAA  CURVES  OF  REFERENCE  1. 


REFERENCE  1. 


DEPARTMENT  CF  TRANSPORTATION,  FEDERAL  AVIATION 
REGULATIONS,  TITLE  14,  CHAPTER  1,  PART  36  ** 

NOISE  STANDARDS-  AIRCRAFT  TYPE  CERTIFICATION  ♦* 
FEDERAL  AVIAIICN  ADMINISTRATION,  NOV.  3,  19*9. 


FAAISO 

FAAISO 

FAAISO 

FAA1SG 

FAAISO 

FAAISO 

FAAISO 

FAAISO 

FAAISO 


1; 

c 

F ARRAY  OF  TONAL  IRREGLLARITIES 

FAAISO 

11 

% 

c 

FREQ ARRAY  OF  1/3  GCTAVE 

BAND 

FREQUENCIES 

FAA  ISO 

12 

c 

K NUMBER  OF  BANOS 

FAAISO 

13 

1 

c 

FC ARRAY  OF  TONE  CORRECT ICNS 

FAAISO 

14 

» 

c 

TEST  FOR  FREQUENCY  IN  THE 

RANGE 

500  TG  5000  bZ  AND  F IN 

FAA  ISC 

15 

% 

5$ 

c 

RANGE  OF  3 TO  2CDB 

FAAISO 

16 

$ 

DIMENSION  FI24J  »FREQ(24) ,FC(24) 

FAA  ISC 

17 

DO  11=1, K 

FAA, SO 

18 

if 

I F l F ( D.GE.3.IGO  TC  2 

FAAISO 

19 

% 

FCIIJ=0. 

FAAISO 

2U 

f 

GO  TO  1 

FAAISO 

21 

f 

2 

IF  ( 500. .LE. FREQ 1 1 ). ANO. FREQ ( I ) . 

LE.5000.)  GC  TO  3 

FAAISO 

22 

Is 

c 

FREQUENCY  NOT  IN  THE  RANGE 

, TEST 

FCR  VALUE  OF  F ANO  FIND  FC 

FAAISO 

23 

f 

IF  4 F ( D.LT.20.)  GC  TC  4 

FAAISO 

24 

1 

FCI I 1=3.3333333333 

FAAISO 

2 i 

GC  TO  1 

FAAISO 

26 

■s 

4 

FCI  I)=FII)/6. 

FAAISO 

c 7 

$ 

GC  TO  1 

FAAISO 

28 

V 

r> 

3 

IF  IF(I).LT.20.)  GO  TC  5 

FAAISO 

29 

t 

FCI l 1=6.6666666666 

FAA  ISC 

30 

r 

GO  TO  1 

FAA ISC 

31 

. 

5 

FCI l )*F(  I )/3. 

FAAISO 

32 

1 

CONTINUE 

FAAISO 

33 

> 

RETURN 

FAAISO 

39 

? 

END 

FAAISO 

35 

my- 


/,  '■. 


SUBROUTINE 

F ANNOSISFt ANGLE StARRAV* I DCPPtNUHSTGtN INLET #NAFT  *NG»FPR* 

F ANNUS 

2 

* Ot  AH 

»RSS» AREA»RNi 

,RTS.CRTFFP,UELTA,BPR,NI) 

F ANNUS 

3 

c 

AUTHOR 

D.  F.  MELDRUM 

FANNOS 

4 

c 

F ANNUS 

6 

c 

PURPOSE 

TO  PREDICT  INLET  FAN  NOISE,  AhC/GR 

FANNOS 

b 

c 

AFT  FAN  NOISE  FCR  THE  PHASE  B NASA— AHfcS 

FANNOS 

7 

c 

• 

FCOTPRINf 

CONTRACT  NAS2-6969.  NOISE  IS  PREOICTEO 

FANNOS 

8 

c 

AT  ISO  FEET  AS  A SINGLE  NOISE  SOURCE  WITHOUT 

FANNOS 

9 

c 

SHIELDING 

EFFECTS. 

FANNUS 

1C 

c 

FANNOS 

11 

c 

METHOD 

AS  DESCRIBED  IN  REFERENCE  I) 

FANNUS 

12 

c 

FANNuS 

13 

c 

INPUTS 

VIA  THE  CALL 

FANNOS 

14 

c 

FANNuS 

15 

c 

SF 

SCALE  FACTOR  FOR  THE  CQPPLAR  S FT 

FANNUS 

It 

c 

ANGLES 

DIRECTIVITY  ANGLES  FCR  NGISE  PREDICTION 

FANNUS 

17 

c 

FANNUS 

18 

c 

NOMSTG 

NUMBER  CF  FAN  STAGES 

FANNUS 

19 

c 

l & NUMSTG  C 3 

FANNUS 

20 

c 

NINLET 

SWITCH  FCR  INLET  FAN  NOISE 

FANNOS 

21 

c 

PREDICTION  IF  POSITIVE. 

FANNOS 

22 

c 

NAFT 

SWITCH  FCR  AFT  FAN  NOISE 

FANNUS 

23 

c 

PREDICTION  IF  POSITIVE. 

FANNOS 

24 

c 

IDOPP 

SWITCH  FCR  THE  DOPPLAR  ShlFT 

FANNUS 

25 

c 

FLIGHT  EFFECTS. 

FANNUS 

26 

c 

C NC  FLIGHT  EFFECTS  CR  DGPPLAR  SHIFT. 

FANNOS 

27 

c 

1 OCPPLAR  SHIFT  FCR  ThE  FREQUENCY 

FANNUS 

26 

c 

CORRECTION  GMY. 

FANNuS 

29 

c 

2 OCPFLAR  ShlFT  FCR  THE  FRFCUENCY 

FANNOS 

3G 

c 

AND  LEVEL  CORRECT ICN. 

FANNuS 

31 

c 

NBI I ) 

NUMBER  Cf  FAN  BLADES  Fi K tACH  STAGE 

FANNUS 

32 

c 

WHERE  l 6 I t NUMSTG 

FANNOS 

33 

c 

FPR ( 1 1 

FAN  PRESSURE  RATIC 

FANNuS 

34 

c 

D1AHU) 

FAN  INLET  DIAMETER  lINLET  CNLY ) FI 

FANNOS 

35 

c 

Rssm 

MIMMCN  RCTCR/5T ATOP  SPACING 

FANNuS 

3t 

c 

AREA! 1 1 

FAN  DISCHARGE  AREA  I AFT  CNLY)  FT ♦FT 

FANNUS 

37 

c 

RNI 

ROTOR  SPEEC  RPis 

FANNUS 

36 

c 

RTS 

RELATIVE  TIP  MACH  NUMBER  OF  THE 

FANNUS 

39 

c 

FIRST  STAGE  WITHOUT  INLET  GUICE 

FANNUS 

40 

c 

VANES  ( IGV).  IF  LC.S  THAN  1 

FANNOS 

41 

c 

IGV  WILL  BE  ASSUMED  FCR  THE  FIRST 

FANNOS 

42 

c 

STAGE  (INLET  FAN  CNLY). 

FANNUS 

43 

c 

CRTFPR 

FAN  PRESSURE  RATIO  FCR  THE 

FANNUS 

44 

c 

RELATIVE  TIP  MACH  NUMBER  OF 

FANNUS 

45 

c 

1.025  (INLET  FAN  ONLY) 

FANNOS 

46 

c 

ANGFAN 

ENGINE  INCLINATION  ANGLE 

FANNUS 

47 

c 

FANNuS 

48 

c 

FANNOS 

49 

c 

OUTPUTS 

ARRAY 

INLET  FAN  NGISE  PREDICT  1 CN  FCR  24 

FANNuS 

50 

c 

FRECLFNCIES  AT  17  ANGLES  AND  CP. 

FANNUS 

51 

c 

AFT  FAN  NGISE  PREDICTION  FOP  24 

FANNOS 

52 

c 

FREQUENCIES  AT  17  ANGLES 

FANNuS 

53 

c 

FANNuS 

54 

c 

FANNOS 

55 

c 

REFERENCES 

11  R.  J. 

SAXBY,  NASA-AMES  FCCTPR1NT  CONTRACT 

FANNOS 

St 

c 

NAS2- 

6969  FAN  NCISE  MCCULL,  UN-NUMBERED 

FANNOS 

57 

c 

COORDINATION  SHEET,  LATED  19  JANUARY  1973. 

FANNUS 

58 

106 


FANNOS 

55 

SUBFOUTINtS  BCZSAVi  FANPEB  PESCAl 

FANNOS 

uC 

FANNOS 

61 

FANNUS 

62 

DIMENSION  NBI3)»FPR(3)»DIAM(3) , R S S (3 1 , AREA (3 ) 

FANNOS 

63 

0 (MENS  ION  SF 11) .ANGLES! 1) , FBPFI3) 

FANNUS 

DIMENSION  ARRAY (24*17) 

FANNOS 

6 5 

DIMENSION  A0TCR1I7)  ,AL'ICR3<21)  ,0CTCRH5)  .BQTCR3I29)  , ASBCRII  5) , 

FANNUS 

6b 

* 

A8BCR3I  13)  ,BBUCRl<5),d£BCR3<29)  .ARSCRVIIO)  , 

FANNOS 

67 

* 

C8SCR1I39) ,C0SCR3(11) 

FANNuS 

68 

DATA 

ADTCR 1/3. 0,0.1,0.925,1.0 *73.0.83.3,83.5/ 

FANNUS 

65 

DATA 

ADTCR3/ 10. 0,0.0,20.0, 30.0,90. 0,50.0, 60. 0,70.0 

,80.0,90.0, 

FANNOS 

7C 

* 

ICO. 0,2. 0,2. C»l. 8,1. 5,1. 0,0.0, -2.0, 

-5. 

0 ,-10.0, 

FANNOS 

71 

* 

-16.2/ 

FANNUS 

72 

DATA 

80TCR 1/2. 0,0. 1,1. 0,75.5,96.5/ 

FANNOS 

73 

DATA 

BOTCR 3/14. 0,90.0,50.0, 60.0,70. 0,80.0, 90.0, 

100 

.0,110.0, 120.0, 

FANNOS 

79 

* 

130. 0,140. 0,150. 0,160.0,170.0, -21.0 

,-15.0, -9.0, -7.0, 

FANNOS 

75 

* 

— 5.0,—  3.C,—  l.C,C.C,C.C,— 1.0,— 4.0,—  7 

.0, 

-1.1.0, -15.0/ 

F ANNU  S 

7u 

DATA 

ABBCR 1/2. 0,0.i, 1.0,66.0,82.5/ 

FANNUS 

77 

DATA 

ABBCR3/6.0, 10. 0 ,60. C , 70. C , 8C. C ,90.  0,100.0, 

0.0 

,0.0,— 2. 0,  — 5.0  , 

FANNOS 

7 fa 

* 

-10.0,-16.0/ 

FANNUS 

75 

DATA 

BBBCR 1/2. 0,C. 1, 1.0,73.5 ,93.5/ 

FANNuS 

80 

DATA 

8BBCR3/ 14.0,40.  0,50.0, 60. 0,70. 0,80. 0,90.0, 

100 

.0,110.0,120.0, 

FANNOS 

31 

* 

130.0,140.0,150.0, 160.0,170.0,-22.0 

t"l6* Of- 1C  *0* — o • 0 1 

FANNOS 

82 

* 

— 4.0,—  2.C,—  1«0,C«C,C  «‘C  ,—2.0,— 4.0,— 7 

.0, 

-12.0,-17.0/ 

FANNOS 

83 

DATA 

ARSCRV/2. 0,30. 0,300.0, 1C. 0,0.0,2.0,30. 0,300.0 

,5. 0,0.0/ 

FANNOS 

89 

DATA 

CBSCK1/6. 0,0.0,. 5999, 1.0,1. 065,1. 19, 1.935, 

0.0 

,0.0, 55.0,62.0, 

f ANNl/S 

85 

* 

82. 0,77. 0,6. 0,0.0,. 5599, 1.0, 1.135,1 

.19 

,1.935,0.0,0.0, 

FANNOS 

86 

* 

55. 0,88.0,88. 0,83.0,6.0,0.0, .9999,1 

.0, 

1.29,1.295, 

FANNUS 

87 

* 

1.935,0.0,0.  .55.0,83.0,83.0,80.5/ 

FAnNuS 

88 

CATA 

C8SCR3/5. 0,10.0,50.0,70. 0,80.0,100.0,-16.0 

,0. 

0,0.0, -2. 0,-18./ 

FANNOS 

85 

DATA 

IShTF/l/ 

FANNuS 

90 

II EVEL=0 

FANNUS 

91 

IUCP 

-C 

FANNuS 

92 

I F ( IOOPP.GE . 1 ) I DCP= I 

FANNUS 

53 

IH  IDGPP.EQ.l)  I LEVEL=l 

FANNOS 

99 

IF( ISKTH.EQ.O)  GC  TC  122 

FANNOS 

95 

IS*TH=0 

FANNOS 

96 

N0M= 

ACTOR  1(1) 

FANNOS 

97 

CALL 

RESCALINOM.ADTCKI  (2)» 

FANNOS 

58 

NUM= 

ABBCR  Hi) 

FANNUS 

59 

CALL 

P£SCALINUM,ABBCR1(2)) 

FANNUS 

IOC 

IAT  = 

l 

FANNuS 

101 

NLM= 

ARSCRV(IAT) 

FANNUS 

102 

CALL 

RESCALlNUM,AR$CRVUAT+in 

FANNuS 

103 

I AT= 

IAT*2*NUM«-l 

FANNUS 

109 

NOM= 

ARSCRVI I AT) 

FANNOS 

1C  5 

CALL 

RESCAL CMJM,ARSCRV(IAT+i) ) 

FANNUS 

lGu 

NCM= 

BCTCR1U) 

FANNOS 

1C7 

CALL 

RESCALIN'IM,BDTCR1I2)) 

FANNOS 

ion 

N0M  = 

BBBCR 1 ( l) 

FANNUS 

109 

CALL 

RESCAHNUM.BBBCKl  (2)) 

FANNUS 

111) 

122  IFIORTFPR.LE.O.C)  CRTFPMO.O 

FANNUS 

U . 

FANNuS 

112 

FANNOS 

113 

IF! NliHSTG.GI  .3)  GC  TC  bCC 

FANNuS 

;i9 

IFINOMSTG.LT.il  GC  TC  6CC 

FANNOS 

115 

107 


non  n n n r.  r>  n n non  no 


1 F( ( N INLE  T,L£ • 0) • AND. 4 NAFT.LE.O ) ) GC  TG  600 

F ANNUS 

116 

FANNOS 

117 

FANNOS 

118 

130  FPRCRT*CRTFPR 

FANNOS 

US 

FANNOS 

120 

FANNOS 

121 

F ANNuS 

122 

N8U2Z*0 

FANNOS 

123 

IFIRTS.LT.  1.0)  NBUZZ=i 

FANNUS 

124 

IGV*NBUZZ 

FANNOS 

125 

IFIRTS.GT.0.)lGV-'C 

FANNOS 

126 

00  2C0  I = l,N0MSTG 

FANNUS 

127 

FANNOS 

126 

CALCULATE  THE  FUNDAMENTAL  BLADE  PASSING  FRECUENCY. 

FANNOS 

12S 

FANNOS 

130 

8LAD€S*NB< I ) 

FANNO 

121 

F8PFI 1 )*RNl*BLAO£S<  6C.C 

FANNu j 

132 

FANNOS 

123 

IF(NINLET.LE.O)  GO  TO  175 

FANNOS 

134 

FANNUS 

135 

CALCULATE  THE  INLET  FAN  NOISE  CCPPCNENTS. 

FANNOS 

136 

FANNOS 

137 

CRT=FPRCRT 

FANf  uS 

136 

CALL  FANPEOI l.CRT ,01  AM (1 ) »FP^ ( 1 1 .FBPF ( I) ,RSS (I) , SF, ANGLES , 

FANNOS 

139 

* IGVylLEVE1. ,10CP,M  DELTA# 

* AOTCR l»  A0TCR3 ,ABBCR 1 , AB3CR3  » ARSCMV  » ARRAY) 

FANNUS 

140 

FANNOS 

141 

IF ( I.NE.l)  GC  TO  175 

FANNOS 

142 

IF  ( NBUZZ  »EQ.  0)  CALL  BUZSAN  (RTS  .PEPFU ) ,0 1 AMI  I ) ,SF, 

FANNOS 

143 

* ANGLES, ILEVEL, I COP, 

FANNOS 

144 

♦ CBSCR1,C8SCR3. ARRAY) 

FANNOS 

.145 

175  IFINAFT.LE.OJ  GO  TO  1S5 

FANNOS 

146 

CRT»FPRCRT 

FANNOS 

147 

FANNOS 

148 

CALCULATE  THE  AFT  FAN  NOISE  CCMPCNENTS, 

FANNOS 

149 

FANNUS 

150 

CALL  FANPE0C0,CRl»APEA(l)»FPR(I)*F8FFIl)  ,RSSU ) ,SF, ANGLES, 

FANNO' 

151 

* IGV,  ILEVEL,  IOCP,M,BFR, DELTA, 

FANNCr- 

152 

*eCTCRl,BCTCR3,BBbClU.BBBCR3.ARSCFV, ARRAY) 

FANNOS 

153 

155  FPRCAT=0.0 

FANNOS 

154 

IGV=  1 

FANNOS 

155 

20C  CONTINUE 

FANNOS 

156 

60C  RETURN 

FANNOS 

157 

END 

FANNOS 

158 
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fsp^s y$4^,< 


**?/-  - 

I 

§ 

ip 

w 


i 

i 

t 

v 


SUBROUTINE  F ANPEU I ICCDE ,FPRCP T , C I Ai-  ,F  PR  t F 8PF  ,RSS , XSE , ANGLES, 


* 

* 

aitfor 


PURPOSE 


METHOD 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


INPUTS 


0. 


NIGV,ILEVEL,ICCP,M .APR.DtLfA, 
DTCRl,CTCH3,fcfiCRl,EBCR3iRSC.,:V,SPLCUr) 
F.  MELDKOM 


TO  PREDICT  THE  DISCRETE  TCNFS  ANC  LkGACB AND  NuISE 
CUMPCNENTS  FOR  EACH  STAGE  FOR  INLET  FAN  NUISE  OR  FOR 
THE  AFT  FAN  NCISE. 

THE  DI-.CRETE  TONES  AND  BROADBAND  NCISE  IS  PREDICTED 

FOR  T HI  INLET  FAN  CP  Th£  AFT  FAN 

BY  THE  USE  OF  CURVES  AS  PER  THfc  REFtREME  GIVEN. 

riESE  CURVES  ARE  INTERRELATED  CK  EXTRAPOLATED  AS 
NEEDED  INCFOER  TO  PREDICT  Thf  NCISE  AT  L50  *.  f RADIUS 


I CODE 


FPRCRT 


DIAH 

FPR 

FbPF 

RSS 

XSF 

ANGLES 

NIGV 

I LEVEL 

IUOP 

DTCRI 

DTCR3 

30CK1 

bBCR3 

RSCRV 


I NDICATCP  FUR  INLE,  FAN  NCISE  CR  At-T  FAN 
NOISE.  PCSITIVC  INC. CATEs  INLET  FAN  NOISE 
CTHE PRISE  THE  AFT  FAN  Is  ASSUMED. 

CR1IICAL  FAN  PRESSURE  RAiIG  UShU  TL  INUAC 
WHETHER  CR  NCI  INLET  GUIDE  VANES  ARE  USlU 
NOT.  IF  LESS  THAN  CR  EGUAL  TC  CNE  NiC 
INLET  GLIDE  VANES  ARE  ASSUMED. 

FAN  INLET  CIAMEIER  CR  AFT  NCZZLE  AREA 
FAN  PRESSURE  RATIO. 

FUNDAMENTAL  ELADF  PASSING  FRECUENCY 
ROTCR-STATCK  SPACING  IN  PERCtN’T 
SCALE  FACTCR  FCR  THE  DLPFLAR  SHIFT 
DIREC  IIVITY  ANGLES  FCR  NUSE  PREDICT  IUN 
IMF  T GUCE  VANE  SWITCH  CN  IF 
SET  NT N 2ERG 

SWITCH  FCR  THt  DCPPLAh  ShIFT  LEVEL 

CORRECT  I CN  IF  NLN  ZERC 

SWITCH  FCR  THE  OCPPLAR  ShIFT  FRECUENCY 

CORRECT  ICN  IF  IT  SET  NGN  ZtRG 

CURVE  - CISCRETE  TONES  - BASIC  DATA 

CCRVt  - CISCRETE  TCNfcS  - DIRECTIVITY  ANGLE 

CURVE  - ERCAC6ANC  - EASIC  DATA 

CURVE  - ERCACoANf  - DIRECTIVITY  ANCLE 

CURVE  - PCTCR-SIATCR  SPACING  CORRECTION 


OUTPUTS 

MODIFICATIONS 

REFERENCES 


INPUT  VIA  LABLED  CCMMCN  - GFflEC 
bANDLM  1/3  CCTAVE  oAND  LIMITS 

SPLCUT  TABLE  CF  PREDICTED  NCISE  FUR  FAN  NOISE 
PREDICTION.  THIS  ARRAY  MUST  bE  SET  TO 
ZEKG  BE FCR  PROCESSING  EACH  CASE.  TC  RUN 
SEVERAL  STAGES  CALL  CNCE  FCR  EACH  STAGE 
ANU  THE  NCISE  FOR  EACH  ST  AGE  WILL  BE  ACDED 
1C  THIS  ARRAY  WHILF  SHCULO  bE  ZERC  FCR  THE 
FIRST  STAGE  CR  will  HAVE  THt  SUM  OF  THE 
PREVEICIS  STAGcS. 

FROM  TEE2C5  I NTL  TEE215  - THIS  WAS  TAKEN  FKCM 
TEE215  AND  CHANCES  MADE  FCR  THE  NASA-AMES  CONTRACT 

COCRD  SHEET  AMF.  F-M-3C7  3/17/72  D.  MtLORUM  TEE205A 


FANPED 
FAN’PED 
FANPtC 
FANPED 
FANPtC 
FANPtC 
r ANPtD 
FANPtC 
FANPtC 
PA' PcD 
F mN P t L 
FANPtC 
FANPED 
FANPtC 
FANPED 
FANPtC 
F ANP  t C 
FANPtC 
FANPED 
HANPEC 
FANPED 
FANPtL 
FANPCD 
FANPED 
FANPtC 
FANPtU 
FANPtC 
FANPtC 
FANPtC 
f ANPtD 
FANPcD 
FANPtO 
FANPtC 
FANPtC 
FANPF.C 
FANPtL 
F ANF  t C 
F ANPtD 
FANPED 
FANPtC 
F ANPtD 
FANPtC 
FANPED 
F ANPtD 
FANPtC 
FANPED 
FANPtC 
FANPLC 
FANPED 
FANPtC 
F ANPtD 
FANPED 
F ANPtD 
FANPtL 
FANPtC 
1 ANPtC 
FANPtC 


2 

7 

4 

5 

7 

5 
1C 
11 
12 
i 2 
1* 
15 
It 

n 

18 

i<* 

20 

21 

22 

23 

24 

25 
2fc 
27 

2b 

29 

3C 

31 

32 
A3 

34 

35 
3t> 

37 

38 

39 
4C 

41 

42 

43 

44 

45 
4t 

47 

48 

49 

50 

51 

52 

53 

54 

55 
5t> 

57 

58 
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ANS-RES-F-327  5/30/72  0.  SCHRANK 

R.  J.  SAX8Y f NASA-AFES  FOOTPRINT  CONTRACT 

NAS2-6969  FAN  NCISE  MCUULE*  UN- NUMBERED 

COORDINATION  SHEET*  DATED  19  JANUARY  1973. 


C FUNCTION  SOBPRGM  ALOGlC 


TBLC1 


PMRSCM 


COMMON  /GFREU/  CFREQ 1 24)  .BANCLMI 25) 

DIMENSION  DTCftl 1 1 ) *0TCR3 (II *BBCP 1 ( l!  * 

► BBCR3I1)  .RSCRVU)  , SPLCLT (24, 1 ) 

DIMENSION  SPC( 24)  ,ANGLES(1) ,X5f ( II 
DIMENSION  CN1I3) 

DATA  CNI/1. 0*3. 0*4.0/ 

CATA  NANGLE/ 17/»NFREtt/24/ 


TEST  FOR  INLET  FAN  NOISE  CR  FCP  AFT  FAN  NOISE 

IGV=0 
DfcLTL  T=0« 

DEL ILB=0. 

ACON=C. 

IF(  ILEVEL.NE.O)  ACGN*-4C. 

I F(  ICODE.LE.OI  GO  TO  5C 
INLET  FAN  NOISE 
SF-2C.0 

IF(NIGV.NE.O)  IGV=1 
GO  TO  IOC 

AFT  FAN  NOISE 

5C  SF=10.0 

IF(NIGV.NE.O)  IGV=2 


IFINI.GT  .3)  GO  TO  ICC 
IF(NI.LE.O)  GO  TC  ICO 
IF  I BPR.GE . 10. Oi  GC  TO  ICC 
IFI8PR.LE.0.5J  DElTLT=-7.8 

IF(DbLTLT.EU.C.C)  DELTLT=b.C4ALCG10(ePR/i0,0l 
U£LILI=DELTLT/CM(M> 

CELTLB=0ELTLT*0.5 

CALCULATE  THE  ENGINE  SIZE  CLRRECTICN. 

ICC  $F=SF*ALGG10(DIAM| 

ALGFPR=ALOGlOIFPR-l.C) 

CALCULATE  THE  BASIC  NCISE 


I ' 

1 * £ ■ ■ 


FANPtC 

lit 

I X=2 

f ANPtC 

117 

NLM-DTCRK  L) 

FANPtL 

116 

IY=NLM+I  X 

FANPtC 

119 

OT  = TGLLi<ALGFPK,L’TCRitIX}  ,0TCP1  (I  Y } , 1 ,MjR» 

FANPtC 

UC 

IF(NIGV.NE.O)  GO  TO  105 

FANPeC 

) l 

IF< IClOE.LE.G)  GC  TO  1C5 

FANPtC 

It. 

IFIFPRCRT.GE.FPR)  GO  TO  IC5 

FANPtC 

123 

f ANPCD 

U4 

ALGCf<T=ALGG10<FPKCBT-l.G) 

fa;.  Per, 

Ui 

CI=T8L0l(ALGCKrf0TCRUIXI  ,niC'*l  ( IY)  , 1 ,NGP) 

FAN  “LI. 

l2t 

CT=Cl”30.5G*( ALGf PR— ALGCKT  ) 

FANP.-C 

12  7 

FANPtO 

UB 

1C5  DT=OT  + SF«-DELILT*UtLTA 

FANPtC 

US 

NUM=i)9CRl(  U 

FANPtC 

130 

l Y=NLM+ I X 

FANPtC 

bl 

BB*SF  + OELTLb  + rBU,l  (ALCFPR.bBCH  UXJ  , eecHi(IY)  ,1  »NG«, 

FANPtC 

132 

F ANPtC 

133 

CALCULATE  THE  RC  TOR-  SLAT  CR  SPACIFG  CCR  Uf.C  TICK  . 

r ANPeC 

139 

FANPtC 

13b 

ALGRSS=ALOGH<RSS» 

f ANS'eG 

13t- 

I Z = 2 

f ANt  eC 

137 

NCM=P  SCR  V ( 1 2-  l ) 

FANPtu 

13o 

IY=NGMMZ 

FANPFC 

139 

KSSDT=TBLC1{ALoR£S,RSlRV(1Z) ,FSCFVC1Y) ,l,NUP) 

FANPtC 

i4C 

lZ=NoM*2MZ*l 

F ANPeC 

14  i 

NCM=KSCKV( IZ-i) 

FANPeC 

142 

IY*NUM+ I Z 

FANPtC 

143 

RSSB9=TBLL1(AI.GKSS»RSCRV(IZI  jPSCFV  (I  Y)  »1,M»c  ) 

FANPtC 

l-*4 

U t=l>T  4RSS.OT 

FANPeC 

145 

t F ( IGV.EQ.l)  CT-DT-o.C 

FANPEl 

I4fc 

t)B=Cb*l<SSbb 

FANPeC 

i«*7 

IFIIGV.EG.t)  BB  = bfi*  3. 

FANPtC 

14c 

UO  2 1C  J = l , N ANGLE 

FANPtC 

149 

FANPtC 

15C 

ILtNlIFY  BANDS  WITH  DISCRETE  1CFES 

FANPtC 

151 

FANPtC 

152 

CC  IIC  t * 1 ,NFREG 

FANPtC 

153 

uc  spli  n=c.o 

FANPtU 

154 

FANPtC 

155 

FHfcO=FBPF 

FANPEC 

156 

I F l IOOP.NE.O)  FRE«=FftEG/X.SF(  J) 

FANPtC 

157 

l l=BANDLSU)/FKtG 

FANPtC 

I5e 

IFUl.LE.C)  11  = 1 

FANPtL 

159 

I2=BANCLM(25)/FREG 

FANPtC 

16C 

IF ( 12. IS .0)  GO  IC  145 

FANPEC 

161 

FANPeC 

162 

OG  140  1 = 11,12 

FANPEl 

163 

FREQ=  I 

FANPeC 

lo4 

FR£Q=FBPF*FREU 

FANPtC 

165 

IF( IOCP.NC.U)  FRfcO=FREC/xSFU) 

FANPeC 

166 

IFtFRFj.CT . 6 ANLiLM  111)  GC  TC  140 

FANPt-0 

167 

DO  12C  K = l , NFBEC 

FANPtC 

16  8 

l BANO=K 

FANPeC 

16$ 

IFIFREG.LE .6AN0LH 1 K + 1) ) GC  TC  13C 

f ANPLG 

170 

12C  CONTINUE 

FANPtC 

171 

GG  TG  145 

FANPlC 

172 

i 


ill 


f •f'''* 


130  VALUE= 
VALUE= 
If  HI . 
SPLI  IB 
14C  CONTIN 


3. 0*VALUE 

Q.  ll.AND.UGV.NE.cn  VALIE= VALOE+6. 
NO)-PhRSUM<SPLI IBAND) »0  UVALDE! 


1DENTI  Y THE  REFERENCE  BAND  fCR  BRC ACB ANC  NOISE 

145  FREQ=F  PF*2.0 

I F ( IDO  .NE.O)  FREQ=FREQ/XSF(J) 

155  AN= 10.  i*ALOG10(FR£Q/10COO.O) *24. C 

CALCUL  TE  THE  BASIC  SPECTRUK 

16C  DO  200  l=l,NFR£Q 
UTFREG  SPUD 

IF!  ILE  EL  .NE.O)  0TFRl:Q=DTFREC-4C.0*ALCG10  (XSF  ( J)1 
8 ANO  = I 

BAND=6  ND-AN 
0BFREC  BAND 

IFIBAN  '.GT.0.01  BBFREQ=— 2. G*BAND 
B8FREC  BBFREG+BB 

BBFREU  8BFREU+ACON*ALOGIUXSFI  J)  1 


GENERA  E TABLE  OF  NOISE  COHPCKEMS 


NliM=07  R3  ( 1 1 
l Y=NUP  IX 

DTDATA  0 IFREQUBLO  1 (ANGLES («i)«OTCR34IX)t CTCR34 IY)#l»NUM) 
NLM=8E  R3(l) 

I Y=NUN  IX 

BBDATA  BBFREQ+TBLUl (ANGLES  ( J)  » B8CR3I I XI  ,B8CR3(  IY1  .1  ,NUP) 
SPLTMP  PWRSUMIB80ATA, DTDATA) 

SPLOUT  l »J)=PWRSLH(SPLTFP»SPLCLT ( I « J) ) 

CONTIN  E 
CONTIN  E 


II 


SPLOUT 
20C  CONTIN 
2 1C  CONTIN 
RETURN 
ENO 


'♦"  ■ - 


? 


SL6R0LT1NE  FLTGEO! IfcC) 

C 

C ROUTINE  TO  SOLVE  FLIGHT  PATH  SEGMENT  GEOMETRY  POINTS  FOR  CALCULATING 
C NOISE  EXTRAPOLATION  CCRRCOT ICNS. 

C 

C 

C 

C CONSTANTS  LSED  IN  INTERNAL  CALCLLATICNS 
C 

COMMON  /GCONST/  IN , 10  * 1 1 1 , 1 T 2 , FC  ,f 1 ,F2 ,F 3 , F* ,FS , F6 , F7 , F8 , F9 , F 10 , 

* 10. 11 ,12,1 3, l A, I 5,16,17,18, 19,11 0, PI.P3i.PS, POO  it 

* EPS, LNOEF ,BL , I CC ,CFR , H PC , ET A < 1 7 I , M l , FM  l , I i 7, A, P I 
C 

L VARIABLE  SLT  CALCULATED  IN  IHL  PROGRAM  PROCESSING 

C 

COMMON  / GCOMCN/  NCF,KK,BCF(24) ,ISfL12A, 10,17), SPLTI2A, 17), 

♦BUF! 25) fRETAI 17)  , SPL2  < 1 7)  , TG AGR  !24 ) ,CL PSF  { 17  ) 

C 

C FRFGvtNCY  BANOS  LSEO  BY  PROGRAM 

C 

COMMON  /GFREC/  CFREO !24) ,UFRE C ( Zb ) ,PFREC (24 ) 

C 

C GtNEKAL  INPUl  PARAMETERS 

C 

COMMON  /GPRAM  / Z0,ZR,GRAC,AMA'-H,L,SLCIST  110)  , I TcNG,  IUM I 

* ,ISI  IRM,  lAfMCS,  IAIR  .LAIRAt  !2<«)  .NTEhP ,TLKP l SO ) , T ALT l SO) 

* ,NPnES,PRES!50> ,PALT(50) , NFL  NIC  , PALT  (*>0 ) ,RFUM 1 01 dO  i , LTtMP 

* .CPRES.CRHUMD,  IEGA,IGUP,DT£NF,CPPfcS,LHoMIC,XKN,NC,FLOI!>0), 

* ZNR l SC ) » ZH! ( 50 ) * L INECT  »MAXL I N* 1 PAGE ,6CG , TCG ,f LK , AALT , tPf 
L 

C aircpaft-cbserver  geometry  cltflts 

f 

COMMON  /GECMO/  AP Y ( IC , 1 7) , AP l ( 1C , 17 ) ,PG l 10 , 1 7) , UPNOI 10,17), 

* BU  lC,17>,d2!10,l7),TD$!l7,l0)  , T PC U7 , 1C)  , I RR  C 10 , 17 1 
* , A P ? , TP,RHP,AP0,T0,RHC,CA.CZ,1SF(17,I0) ,CCV 

C 


FLTGEC 
FLTGEO 
f LTCtG 
PlTGcG 
FLTGEC 
FLTGEO 

hltgec 

FLTC-fcO 
FLTGEG 
f '.TGtO 
I L i bL  1> 
FLTGEC 
ri r gec 

FLTGLC 
FLTGEG 
FLTGtU 
FLTGuC 
FLTGEG 
FLTGEC 
FLTGtu 
FLTGtu 
f L7GEQ 
FLTGcC 
FLTGEL 
FLTGtO 
FLTGEC 
FLTGEO 
FLTGEC 
FLTGEC 
FLTGEC 
Ft T GEC 
FLTGEG 
f LT  Gt.o 
F;  ’.Gec 
; i.  T oEC 
f L 7 G c 0 


c 

c 

c 

c 

C 

c 

c 


CONVERSION  CONSTANTS 


c 

c 

c 

c 

c 

c 

c 

c 

c 


input 

A)  !.  = N SLD 
SCCISTI  I-  1C ) 


NUMBER  OF  SIDELINE  FCIN',  cN 
TO  BE  BASED  -MAX  I KM  Cf  10 
SIDELINE  DISTANCE  EEJ.-N 
ON  THE  GRCCND. 


.C','L«*f  ICNS  ARE 


FLIGHT  TRACK  ANC  OBStRVEK 


CUTPCTS- 

EACH  CUT PUT 
POINTS  TIMES 

APY! 10,17).. 

APZI 10,17).. 
PD  I 10, 17)... 
OPNO ( 1C,  17) 


Fi.TCfG 
FL  T jLO 
FLTGtG 
FLTGtO 
FLTGEC 
FLTGEC 
FLTGEC 


C 

zo  =•  altp  .. 

AIRCRAFT  HFIGHT  ABOVE 

T!  . 

GPCUNC  WHEN  AT  !Y=0). 

FLTGEL 

C 

♦ RESTRICTION*  0.  • LE  .. 

.!« 

Lfc.  ZO 

FLTGEO 

C 

ZR  =AL  IK  ... 

cdSERVER  HLIGHI  ACC\t 

' -T 

GRCGNC 

FLTGtO 

C 

C 

GRAC= SLOPE.. 

♦RESTRICTION*  0.  .LE. 
CLIMB  GRADIENT  FUR  (Z 

< • 
Ct_ 

. ZR). 

FLTGEO 

FLTGtO 

ARRAY  CONSIST  CF  A MAXIMUM.  U 170  ELEMENTS!  10  SIDELINE 
1 1 ANGLES) 

AIRCRAFT  COORDINATE  IN  CI<*tCHCN  CF  FLIGHT  PATH 
PROJECTION  CN  TmE  OPCLNC. 

AIRCRAFT  VERTICAI  CCCPUiNAIE  ABC  V E THt  GROUND'. 
DISTANCE.  FOR  SC  END  PROPAGATION. 

RELATIVE  INCREASE  IN  PATH  LENGTH  FCR  GPCUNC  REFLECT  EC, 


FLTGEO 
FLTGEC 
Ft.  T Gtu 
FLTCtC 
FLTGtG 
FLTGEG 
FLTGEC 
FLTGEG 
FLIGtC 


or^or-»oor>ooc~oor“'Ooor>r'Oo 


T??-  r-  - 


SIGNAL,  l.E.  DPN  - CF  / P 

FLIGEC 

39 

3tl 10,  17  ...  ANGLE  OF  INCIDENCE  IN  KA01ANS  CF  GRGUND  REFLECT  ED 

FLTGtC 

bC 

SIGNAL  RELATIVE  TC  CRA2ING  INCICENCE. 

fltgec 

6 I 

B2C10,li  ...  ELEVATION  ANGLE  IN  RADIANS  LSED 

IN  EXTRA-GROUND- 

FLTGtC 

b£ 

ATTENLATION  FORMULA. 

FLTGtC 

63 

IKK ( 10,1')..  ERRCR  CODE 

FLTGtC 

Ls  4 

RR  = -1  FCR  P0  = C ANC  NOISE  LEVELS  ARE  TC  BE  SET  TO 

fltgec 

65 

PLLS  INFINITY. 

fltgec 

66 

= 0 FCR  NC  ERRCR  DETECTED 

fltgec 

o 7 

= 1 FCR  NC  SCLLTICN  ANC  NOISE  LEVELS  ARE  TO  BE 

FLTGEO 

68 

SET  TC  INDEFINITE. 

pltgeo 

t9 

FLTGtC 

TC 

REMARKS 

FLTGtC 

71 

1)  G6SER /SR  COORDINATES  ARE  <C,  C,  2RI 

FLTGEC 

72 

2)  AlRCR  *FT  COORDINATES  ARE  IX,  V,  2)  EXCEPT 

WHEN  AT  THE  VISUAL 

FlTGSG 

7 j 

OVERh  AD  REFERENCE  IX,  0,  20. 

FLTGEC 

7a 

3)  2 «GE  . 2R.  IF  AN  INI  IIAL  C4LCUATICN  SHCWS 

THAT  L ,LT.  2R, 

FLTGtC 

75 

2 HIl  BE  SET  TC  2R  AND  THE  CLIPS  GRADIENT 

WILL  BE  TREATED  AS 

FLTGEU 

7t 

IF  II  feERE  2ERG. 

FLTGtC 

77 

fltgec 

lb 

ZRZ=2k+  >ALT 

FtTGtQ 

79 

ZCZ-ZC*  \ALT 

FLTGtC 

8C 

CALL  A7  1USPIZRZ  ,APP,TP,RHP> 

FLTGEC 

bl 

CALL  A T ■'CSPI  202  ,APG,TC,RhC) 

FLTGtC 

62 

C2=A*SL  TITOJ 

FLTGEC 

63 

CCV=  A*  *■  RTITP) 

FLTGtC 

6 A 

CA=P5*(  Z*  COVI 

FLTGtO 

85 

V0=C2*/>  'ACH 

FLTGtC 

bt 

DC  20Ci  j=ll,I17 

fltgec 

87 

CO  2Ct  I = 11, L 

FLTGtO 

ee 

S 2T  = F!  ♦ GRAD*GRAO 

FLTGEC 

69 

CT  = Fi  / S0RHS2I) 

FLTGtU 

SC 

S2T  = (GRAO^GRAO)  / S2T 

FLTGtC 

91 

X = SL0I5  (I) 

FLTGEO 

92 

XS  a '*X 

FLTGtC 

93 

ZhO  = 20  - /R 

FLTGEO 

9 A 

IEC=IC 

FLTGtU 

95 

V * -P  . * ZNO  * S2T 

FLTGEG 

St 

A I = ETA(J) 

FLTGEU 

97 

SAX  = SlNlAl) 

FLTGtO 

SB 

T = / -S1SA1) 

FLTGEC 

S9 

IF  IT  EPS)  12C , 12C,  IC 

FLTGEC 

ICC 

IC  IF  I Af  IT  - FI)  - CPS)  25,  2 C,  20 

FLTGtC 

101 

2C  T A I = ( AN (Alt 

FLTGtC 

1C2 

Y = \ - CT  * SURTIXS  ♦ (2NC*CT)At2NC.'LlM 

/ T A I 

FLTGtC 

103 

25  7N  = NO  ♦ Y * GRAC 

FLTGtC 

10A 

IF  IZf  IOC,  3C , 3C 

FLTGtC 

1G5 

30  il\ S a ZN^ZN 

FLTGEC 

106 

PS  = S ♦ Y* Y ♦ 2NS 

FLTGtC 

1G7 

P = 1 RT IPS) 

FLTGEC 

108 

2 = l «•  2R 

FLTGEO 

LGS 

IF  IP?  AO,  16C » AC 

FL  T GtC 

lie 

AC  K = - . * 2 • 2R  / PS 

FLTGtC 

111 

IF  I Ar  <R)  - RPC)  SC,  SC,  5L 

FLTGtC 

112 

5C  UPN  = SORT!  Fl  - R)  - FI 

FLTGEC 

113 

GC  TO  ! 

FLTGtU 

1 1 A 

6C  FK  = u 

FLTGEo 

115 

114 


+,*'7* 


'■**»-»»■ 


BK  - ~P5  ♦ R 

FLTGEO 

116  f 

UPN  - 8K 

FLTGtG 

117  I 

7C 

fK  * FK  + H 

FLTGEO 

ii®  3 

FTK  * FK  ♦ FK 

FLTGEO 

119  | 

8K  * K * BK  * IF  IK  - fl)  / FTK 

FLTGEO 

120  i 

DPN  - QPN  4-  BK 

,-UGEC 

1/1 

IF  IABSIBK)  - EPS*ABS'.DPK1 1 £0,  80.  70 

hi  TGfcc 

u.  3 

ec 

ZNP  * 2 ♦ 2R 

fltclc 

12  3 j 

B 1 ( 1 1 J ) » ATAN2 ( A U S ( ZNF) « SCRT C FS-ZNS ) ) *CPR 

FLTGEO 

\ 

82(1, J)  * ASIMAOSIZN  / P))*OPR 

FLTGEO 

12b  ; 

90 

IKR(ItJ)  = IEC 

FLTGEO 

12b  ; 

APY(  It J)  * Y 

FLTGEC  • 

127 

APZU.J)  * l 

FLTGco 

128  i 

PCI  1* J)  = P 

FL  3 GE c 

12S 

UPNOU.J)  * OPN 

FLTGEG 

130 

GO  TO  10C0 

1LT0EU 

131 

10C 

ZN  * FO 

FL  T G r. u 

132 

Y * FO 

FLTCtCl 

133 

IF  (A8S(T-  Fl)  - EPS)  30,  11C,  110 

FLTCtO 

13s 

lie 

Y - -X  / TA1 

Et.TUcO 

135  i 

IF  ( AB S ( GRAD ) .LI.  EPS)  GC  U 3C 

KTGtO 

136  J 

T = -/NO  / CHAD 

ILTOLu 

137 

IF  ( A8SI  T ) . !>T.  Ah S l Y ) ) Y = I 

Fi.T bl  >J 

1 j8 

GC  TO  30 

FLTGLU 

13V 

120 

ZN  = FO 

FLTGc.G 

1<iC 

Y = FO 

f L 1 GtL 

141 

IF  IABSIXI  - CPS)  13C,  130,  ISC 

FLTGEO 

1a2 

13C 

IF  tABSIGRAO)  - EPS)  30,  14C,  14C 

FLTGEO 

1 4 2 

14C 

Y = -ZNO  / GRAD 

fltglo 

» A A 

GC  TO  20 

FLTGEi. 

143 

15C 

IEC  = 11 

ELTGLC 

14t. 

GO  TO  90 

f-LTCil-0 

14  { 

16C 

IEC  = Ml 

f-Llf-tO 

14f. 

GC  TO  SC 

FLTGEO 

14S  | 

1C0C 

CONTINUE 

FLTGtc 

150  | 

IFIVO) 1800,1700, 18CC 

1 LTGEi- 

1 5 1 1 

1 70C 

TPO( J, I )-UN0EF 

EL  T CtC 

la.;  | 

T SPI  J , U“UNOEF 

Ei.  TGt  C 

153  i 

TCS( J , I ) -ONOtF 

rt,  1 G!:c 

154  | 

GC  TO  2000 

FLTGLO 

155  I 

180C 

i:/*apzi  l,J)-zo 

FLTGhlT 

lac  I 

GS-SIGNI SQRTIAPYI I ,J)*A, Yl 1 ,Ui »D2*CZ ) ,APY(I,J)) 

FLTGcO 

i a 7 | 

T DS ( j,i)*os/vr 

FL ! GtU 

la8 

f PD(  J,  i )*PD(  1 ,J)/CA  + T.)a(  J,I  ) 

!•  l TGLU 

l j<>  \ 

TSP< J,I)=PO( I,J)/CA 

H TGOU 

H-o  i 

IF(J.EG.Il)  GU  TO  IfVC 

FLTGtO 

101  ] 

fSPU,  I)  - TSP«.»,1  )*AtiSO‘  L-OSI/YI. 

FLTGEO 

ifc2 

GC  TO  183C 

FLTGEO 

16  i 

182C 

GSL=OS 

FLTGEO 

lo4 

183C 

CONTINUE 

FLTGEO 

165 

200C 

continue 

FLTGEC 

161 

RETURN 

H TGEJ 

16/ 

END 

Fi IGEC 

10  6 

115 


SUBROUTINE  FOTCNT  I X,  Y , VNGI S£ ,F P ATF, AREA  ,NP .AL.NUl*, T ULE) 


AUTHOR 

PURPOSE 


METhOU 


INPUTS 


K.O.  JOHNSON 

TO  PICT  NOISE  FCCTFRINT  CONTOURS  WITHIN  A SPECIFIED 
PLOT  AREA  WITH  COORDINATE  I R ANSFCRMAT I CN  SUCH  THAT 
X GRAPH  = Y PUTTER 
Y GRAPH  = X PLOTTER 

SCALE  X-VERTICAL  AND  Y-HCPIZCNTAL  To  uMTS/CM 
DRAW  CONTINUOUS  CONTOURS  IF  POINT  TO  PolNT  PROJECT  10 
REMAINS  IN  PICT  AREA.  AXIS  ARE  CRAmN  TC  INTERSECT 
AT  POINT  (0,0). 


ARRAY  OF  VERTICAL  PLCT  COORDINATES 
XINP.LR  (Ml  WHERE  LK*l(KlGHT).LR=2ILEFT  I 
CF  FLIGHT  PATH 
Y ARRAY  CF  HORIZONTAL  PLCT  COORDINATES 

VNCISE  ARRAY  CF  NUSE  LEVEL  VALUES 

AREA  ARRAY  CF  AREAS  UNDER  CONTOURS 

FPATH  ARRAY  CF  FLIGHT  PATH  COORDINATES 

NP  NUMBER  CF  CATA  POINTS  EACH  SIDt  OF  CONTOUR 

NL  NUMBER  CF  NOISE  LEVEL  CcNTCURS 

NDIM  TOTAL  LENGTH  CF  X.Y.FPATH  FIRST  DIMENS IUN 

DIMENSIONS  FOR  INPUT  ARRAYS 

DIMENSION  TEMP  I 2CC ) 

DIMENSION  XINJIM.2,5)  ,Y(N01M,2,5)  ,AREA(!>)  .VNCISE  (SI  , FPATHINU IM , 2 I 
IfcC 

COMMON  /PLT/  SCALV,YLENM,XLENM,CMPIN  .LABE  LX  I 10) » LAB  ELY  I 10 )« 
l AXUNIT,NLABEL(2),SCALC,IHRIIE 
DIMENSION  XY14.2)  .TITLE! 18) 

COMMON  /PL  T/  SCALV.YLENM.XLENM.CMFIN  . LAEELX  I 4 ) . LABEL Y I 4), 

I AXUNIT  » NL ABEL ( l) , SCALE » i RR I TE 
DIMENSION  XY ( 4.2)  .Tl TLE ( 8) 

SC AL  V MAY  BE  b^T  3Y  USER.  IF  NGT  SCALV  WILL  fcE  COMPUTED 
YLENMi XCENM  MUST  BE  SET  TO  MAXMLM  OVERALL  RLCT  Cl  MENS ICNS ( I N DUMITS) 
EQUIVALENCE  (XI  ,XY(1, m .( X2.XY  I 2.1) ) .(XL.XYI3. 1) ) .(XP.XYI4. 1) ) . 

I (YI,XYtli2) )»( Y2.XYI2.2)) . I Yl , X Y 13 , 2) * , ( YP, XY (4,2) ) 

INTEGER  BLANK, AXUNIT 
INTEGER  UP, OGRN 
LOGICAL  IWRITE 
DATA  ZERO/O. C/ 

DATA  BLANK/4H  / .BLNK/4H  / 

OATA  RADI  AN /5 7. 2*3577/ 

INITIALIZE 

UP-3 

Q0WN=2 

DELTV*0. 

XMlN*lC.blG 

YMIN-10.E10 

SCALU*SCALV 

;et  borders  in  centimeters 


FOTCNI 
FCTCNT 
FUTCNT 
FCTCNT 
FUTCN I 
FCTCNT 
F07CNT 
FOTCNT 
FCTCNT 
FCTCNT 
FOTCNT 
FUTCNT 
FCTCNT 
FCTCNT 
FCTCNT 
FUTCNT 
FCTCNT 
FOTCNT 
FOTCNT 
FGTCNf 
FOTCNT 
FOTCNT 
FOTCNT 
EUICN T 
FuTCNT 
FOTCNT 
FGTCNT 
FUTCNT 
FCTCNT 
FOTCNT 
FOTCNT 
FUTCNT 
FuTCNT 
FOTCNI 
FOTCNT 
FCTCNT 
FOTCNT 
FGTCNT 
FUTCNT 
FUTCNT 
FUTCNT 
FUTCNT 
FOTCNT 
FOTCNT 
FOTCNT 
FOTCNT 
FOTCNT 
FUTCNT 
FUTCNT 
FOTCNT 
FUTCNT 
FUTCNT 
FOTCNT 
FOTCNT 
FCTCNT 
FCTCNT 
FUTCNT 


iC;>-  ; 


BCTTM=3. 

IGP=2. 

S IOE-2* 

C 

C INITIALIZE  IARRCW  TO  PLOT  SYMBOL  CCCE  FLP  ARROWHEAD 
IARROW=t 

c 

C SET  CHARACTER  HEIGHT  FCR  LEGEND 
CHRHI=. 10 
C 

C SET  MAXIMUM  LENGTHS  OF  X AND  Y AXIS  IN  CP  UMTS 
C 

C ALIGN  FUR  BORDERS 

XLtN=FLOAT< INTI XLENM-TQP-BCT IP) ) 

YL£N=FLGAT< l NT ( YL£NM~2.*SI0E) ) 

C 

C COMPUTE  SCALE  AND  FIND  MIM«UM  AND  MAXIMUM  f Lf T VALUES 
K=1 

XN  * XI 1,1,1} 

DO  20  1=1,2 
CC  20  J= 1»NP 
rtMP(K)=x(j,i,n 

IF  (XN  .GI.  TEMPIKJI  XN  = TEMF(K) 

K=K*i 

20  CUNTINUF 
K=NP *2 

CALL  SCALE! TtMP,XLEN,K, II 
UELTV*  TEMP(Kf2> 

XM  JN=  TEMP(Kd) 

C SCALE  Y AXIS 
C 

K = l 

YN  = YIl, 1,11 
CU  30  1*1,2 
DC  30  J*l,NP 
TEMP ( K ) * Y ( J , I , l ) 

IF  (YN  .GT.  TEMP  ( K 1 1 YN  * 1EPMK) 

K=K+  1 

30  CONTINUE 
K=NP*2 

CALL  SCALE(TfcMP,  YLEN,K,1) 

GELT  Y=  AMAXII JcL T V » T EMP < K+2 ) J 
YMIN=TEMP(K* 1) 

IF  ( SC ALU  I SO,  S5,  SC 
90  XM IN  = XN 
YMIN  = YN 
GC  TC  99 

95  SCALU  = DEL  TV 

99  WRITE  C 6 , l COC  > TITLE,  XLEN,  YLEN,  SCALE,  AXUMT,  DLLIV,  AXUNIT, 

* SCALV,  AXUMT 

1000  FORMAT ( 1HI,29X,8AIC///5CX,28FNCI SE  FCCTPFIM  CCNTCUR  PLCT  //39X, 

♦2CHPL0T  DIMENSIONS  <CM),UX,3HX  *,F3.0,3H  CM/70x,3HY  =,F3.0,3H  uM 
A//39X, 7FSCALE  = , 1PE  10. 3 , IX , A9  ,3F /C M , 6X , 1 5FCC MPUT ED  *,E10.3, 

* IX, AS, 3H/CM  /70X, 15H0S6R  SELECIHC  * , £ 10. 3 , lx , A4, 3H/CM) 
XP=SCALU/DELTV 

IFlXP.GT. A. .GR.XP.LT. .25)  WRITE  (6,1001) 

1001  FORMAT  ( IHO, 57X,  15H***  EARNING  ***//l>5  X , 19HUS  Eft  SfcLECTLL'  SCALE/ 


FOTCNT 

FOTCNT 

FUTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FLTCNT 

FuTUim  i 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FuTCNT 

FGTCNT 

FC’TCNT 

FOTCNT 

FUTCNT 

FOTCNT 

FuTCNT 

FUTCNT 

FuTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FLTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FUTCNT 

FGTCnI 

FOTCnT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCNT 

FOTCnT 

FOTCNT 

FOTCNT 

FOTCNT 


117 


59 

fcC 

61 

62 

63 

6<« 

bZ 

66 

67 
6fc 
cS 
7C 

71 

72 

73 
79 

75 

76 
7 7 
7fc 
79 
CC 

ai 
82 
63 
as 
a 5 
8t 

87 

68 
09 

90 

91 

92 

93 
99 

95 

96 

97 

98 

99 
ICC 
1C1 
102 
103 
109 
105 
IGo 

107 

108 

109 

110 
111 
112 
113 
119 
115 


Bj.uruj.! 


< : .v 


*55X,  25HT00  SMALL  CR  TCC  LARGE  t C/5 5 * »2  7H PRODUCE 

COMPREHENSIVE  PLOT 

FOTCNT 

116 

♦ S ) 

FUTCNT 

117 

CELTV=SCALL 

FOTCNT 

lie 

C 

FUTCNT 

1 1 A 

C XMON-YMIN  MUSI  BE  IN  WHOLE  CM  INCREMENTS 

FCTCNT 

120 

XMlN-FLOATIIFIXtl XMI N— DElTV ) /DEL  TV ) ) ADELT V 

FUTCNT 

121 

YMIN=FLOAT( I FIX! ( YMIN-DELTV ) /DELTV) ) AQELTV 

FOTCNT 

122 

C 

FOTCNT 

U3 

31  XMAX=0£LTV*XL£N+  XMIN 

FOTCNT 

12A 

YMAX=OELTV*YLEN*  YMIN 

FCTCNT 

125 

WRITE (6,10051  AXUNIT,XMIN,XHAX,YMIN,YMAX 

FUTCNT 

126 

1005  FORMAT ( 1H0, 39X, l 7HPL0T  BOUNDARIES  (, A*»LH) ,8X,llFX  MINIMUM  = 

FUTCNI 

127 

♦IPE10.3/70X,11HX  MAXIMUM  *,ELC.3//70X,LlhY  MINIMUM  =,E10.3/70X, 

FOTCnI 

12  8 

* 1 IHY  MAXIMUM  = ,E1C.3  J 

FUTCNT 

125 

C 

FCTCNT 

130 

C IF  WRITE  FLAG  ON  PRINT  CONTOURS 

FCTCNT 

131 

C 

FOTCNT 

132 

IF l IWRITE)  GC  TO  35 

FOTCNT 

123 

00  32  1=1, NL 

FCTCNT 

13A 

WK l T£ ( 6 « 1006 ) TITLE 

FUTCNT 

135 

C 36C 

FCTCNT 

136 

C 1006  FGRMAT(1HI,2SX,1EAA» 

FCTCNT 

137 

1006  FCRMAT(  1H  1 , 2SX , fi A 1 C ) 

FOTCNT 

138 

WRITE (6, 10021  VNCISEII) ,N LABEL, AXLNIT 

FOTCNT 

135 

C 36C 

FOTCNT 

1A0 

C1C02  FORMAT! 1HC»A8X, 1 IHCGNTCUR  AT  ,F5. U tl X ,2 A4, 1 X ,2HIN, IX , AA// 

FOTCNT 

l A 1 

1CC2  FCRMATI  1H0,50X,F5«C,1X,A8,11HCCMCUR  IN  ,AA// 

FUTCNT 

1A2 

l A IX , AHLEFT ,33X,5HRIGHT  1 

FOTCNT 

1 A3 

WRITE!  6,  1CC31  (X!J,l,n,Y(J,l,n,X(J(2,n,Y(J,2 

t 1 1 , J= 1 »NP ) 

FCTCNT 

1AA 

1003  FCRMATI26X,1PE13.3,3X,EL3.3,10X, 2616.31 

FOTCNT 

1A5 

WR  ITc  ( 6,  IOC', ) ARFAIIl.AXLMT 

FOTCNI 

1A6 

IOC*  F0RMAT(///A0X,28HT0fAL  AREA  WITFlo  CCNTCUR  = ,iPEil.*,5H  SO.  ,AA> 

FOTCNT 

1A7 

32  CONTINUE 

FOTCNT 

1 AG 

C 

FCTCNT 

IAS 

C POSITION  PLOTTER 

FOTCNT 

15C 

C 

FOTCNT 

151 

35  YP  = 1 . /CMP  IN 

FOTCNT 

152 

CALL  PL0T(0.,-10.,-3) 

FOTCNT 

1 j3 

CALL  PLOT ( 0. , YP ,—  3 1 

FOTCNT 

1 5w 

XP  = S I QE /CMP  I N 

FOTCNT 

155 

YP  = BQTTM/CMP  IN 

FOTCNT 

156 

CALL  PLOT ( XP , YP 3) 

FUTCNT 

157 

C PLOT  ANC  LABEL  AXIS  WITH  CM  TIC  MARKS 

FOTCNT 

15G 

C Y AXIS  TO  CROSS  X AXIS  AT  (0,01 

FOTCNI 

155 

UELCM  = DELTV*CMP  IN 

FGTCNT 

160 

XP  = Z ERG 

FOTCNT 

16J 

YP=ZefiO 

FOTCNT 

162 

IFIXMIN.GE.ZEROIGC  TO  AC 

FCTCNT 

163 

YP=-XMIN/DELTV 

FOTCNT 

16  A 

AC  Y MOV IN  = YP/CMP IN 

FOTCNT 

165 

C PLOT  V AXIS 

FOTCNT 

166 

C 

FOTCNT 

167 

C 36C 

FCTCNT 

lo8 

C 1=  to 

fOTCNT 

165 

I = A 

FOTC.mT 

17C 

A2  IFILABELY! I) .NE.BLANK1GC  TC  AA 

FOTCNT 

171 

I - f-l 

FGTCNT 

172 

118 


»'  ■ ''•■TT'r;y 


"f  -s^/rsw-at 


NC* ! +4 
NC=I*10 

CALL  CMAX l S(  0 • , 


,LA3ELY»-NC  , YLEN  ,0.0  , YKI N ,GELTV ) 


X AXIS  TO  CROSS  Y AXIS  AT  10, OJ 
YP=ZFRC 

IFIYMIN.GE.ZERUGC  TO  45 
XP=  - YM  IN/l)£L  TV 
i XMOVlN=XP/CMPIN 

PLCT  X AXIS 
1 = 10 
1=4 

i>  IFILABELXII) .M6.81AHOGC  TC  AS 

1 = 1-1 
GC  TO  46 


C 3 fc  C 

C48 

48 


NC=I*h 
NC= I * 1C 

CALL  CMAX  IStXP«C«,LABft  x,NC,XlfA  ,9C.  , XP  IN  ,CfcLTV  ) 


START  PLOTTING  CCNTGIRS 
INITIALIZE 

L =0 
L=L+l 
1GU  = J 

IFIL.GT.NUGO  TC  ICO 

ISHJt=l 

I 3 E G — l 

1 £ND=NP 

IPEN=UP 

INC=1 

J = IUEG 

IC0=IGC+1 

XP  =X ( J , I S IOfc  ,L  ) 

Y P=Y l J , ISIDu.L) 


DC  NCT  °I.CT  POINT 


CL  T CF  RANGE 


IK  ( Xf’.L  T.  XMin.CR«XP,b  T.XPAX  I. CR.IYP.LT.  YR  IN. CR.YP.GT.YMAXl) 
l GO  TO  75 

IK  tPEN.CC.ULhU  GL  TC  64 
IHJ.6Q.lbEG)  GC  TC  64 
PCINT  IN  RANGE  MOT  PRfcV  ILLS  POINT  R AS  CLT 

IF  NUT  FIRSI  PUNT  MOVE  PEN  TL  eCPOEF  AND  PLCT  TC  PUNT  WITH  PfcN 


x A=XL 
Y A = YL 
XLIM*ZERO 
yum=zcRi; 

IFIXA.LT. XMIN) 
IF(XA.GT.XMAX) 
IFIYA.LT.YMIN) 


XLIM=XPIN 
XL  I P=XPAX 
YLlMYMN 


FOTCNT 
FCTCNT 
FOTCNT 
PUTCNT 
FOTCNT 
FOTCNT 
FLTCNT 
FUICNT 
FoTCNT 
FCITCnT 
PC  1 O.-.  I 
FCTCNT 
FGICNT 
FOTCNT 
FCTCNT 
pOTCnT 
FOTCNT 
FoTCNT 
FOTCNT 
FLTCNT 
FC'TCNT 
KlCiO 
FuTuNT 
FOTCNT 
FOTCNT 
FOTCNT 
FOTCNT 
FCTCNT 
FOTCNT 
FOTCNT 
FCTCNT 
FOTCNT 
FLTCNT 
FUICNT 
FoTCN  T 
FUICNT 
FOTCNT 
FoTCNT 
FUTCNI 
FoTCNT 
FCTCNT 
FOTCNT 
FoTCNT 
FCTCNT 
FCTCNT 
rCTCNT 
FCTCNT 
FOTCNT 
DORN  FoTCNT 
FOTCNT 
FUTCNI 
I CTCNT 
FOTCNT 
FOTCNT 
FUCNT 
FOTCNT 
FOTCNT 


119 


m.YA.GT.YMAX)  yum=ypax 

f-OTCNT 

23C 

c 

FOTCNT 

231 

c 

FINO  POINT  AT  WHICH  CCNTCUR  INTERSECTS  PLOT 

8CR0ER 

FOTCNT 

232 

c 

FOTCNT 

233 

X 1 = XL  IM 

FOTCNT 

234 

X2=XLIM 

FOTCNT 

235 

Y1=YLIM 

FOTCNT 

236 

V 2=YL  IK 

FOTCNT 

23? 

IF(XLIM.NE.ZERU)  GC  TG  62 

FOTCNI 

230 

X 1 = XM  IN 

FOTCNT 

2 39 

X 2=XM AX 

FOTCNT 

240 

6Z 

1F( YL IM.NE.ZERC ) GC  TC  63 

FOTCNT 

241 

Y 1=YM  IN 

FOTCNT 

242 

Y 2=YMAX 

FOTCNT 

243 

63 

CALL  INTRCP(XY,XG»Y0»IEKH) 

FOTCNT 

244 

IF1  IERP.-GT.O)  GC  TC  62C 

FUTCNl 

245 

XO=( XO-XHINI /QELCM 

FOTCNT 

24t 

YG=( YQ-YM IN) /OtLCM 

FOTCNT 

24/ 

C 

FOTCNT 

246 

C 

HOVE  PEN  TO  BGROER  INTERSECT  WITH  PEN  IN  CURRENT  POSITION 

FUTCNl 

249 

c 

FuTCNT 

250 

CALL  PLOT ( YO  »XO , I PEN) 

FOTCNT 

251 

620 

I F ( IPtN.EG.UP)  GO  TO  63C 

FOTCNT 

252 

C 

PEN  WAS  DOWN  - RAISE  PEN  - SKIP  CLT  CF  RANGE 

PCINT 

FOTCNT 

253 

c 

FOTCNT 

254 

64C 

IPEN=LP 

FOTCNT 

255 

XL=XP 

FOTCNT 

2 56 

YL=  VP 

FOTCNT 

257 

GL  TO  65 

FUTCNT 

258 

C 

FOTCNT 

254 

0 

Pf.N  WAS  UP  - GO  PLLT  FRCP  BCROEP  TC  PC1NT 

FOTCNT 

260 

C 

FOTCNT 

261 

630 

I PEN=QQWN 

FOTCNT 

262 

C 

FUTCNT 

2t3 

C 

SCALE  TO  CM  AND  CONVERT  TC  PLCT  INCFES 

FOTCNT 

264 

C 

FOTCNT 

265 

64 

XL  = XP 

FOTCNT 

266 

YL=YP 

FOTCNT 

267 

XP=( KP-XMIN) /DELCM 

FOTCNT 

268 

YP=( YP-YMIN) /DELCM 

FOTCNT 

269 

CALL  PLOKYP.XP  ,IPEN) 

FOTCNT 

270 

IPEN=DOwN 

FOTCNT 

2/1 

65 

J-J  V INC 

FOTCNT 

272 

IFU.GT.O.ANO.  J.LE.NPJGC  TC  61 

FOTCNI 

27  3 

C 

FUTCNT 

274 

C 

PLOT  CONTOURS  RIGHT  Tf  LEFT,  LEFT  TC  RIGHT 

TC  PAXIPIZt  PLOTTER 

FOTCNT 

275 

C 

EFFICIENCY 

FOTCNT 

276 

GC  TO! 71*72,7},5C) .IGC 

FOTCNT 

277 

71 

I0EG*NP 

FOTCNT 

276 

I tND=  1 

FOTCNI 

279 

I S IDE-2 

FOTCNT 

280 

INO-l 

FOTCNT 

281 

GC  Tu  80 

FOTCNT 

282 

72 

I8EG=l 

FOTCNT 

203 

IEND=NP 

FOTCNT 

284 

ISI0£s2 

FOTCNT 

285 

I NC=  l 

FOTCNT 

286 

120 


59* 


iKEBSWS 


’ V,  ■*; ' ;r wa 


IPEN*UP 

FOTCNT 

267 

L*L*1 

FCTCNT 

288 

IFIl.GT.NUGO  TO  ICC 

FOTCNT 

289 

GC  TO  60 

FOTCNT 

29C 

73 

I8fcG*NP 

FOTCiNT 

291 

I END* 1 

FOTCNT 

2 92 

I SIDE- 1 

FOTCNT 

293 

INC=- 1 

FOTCNT 

296 

GO  TO  80 

FOTCNT 

295 

75 

IF1IPEN.EQ.  UP  1 GC  TC  660 

FCTCNT 

296 

C CURRENT  POINT  OCT  OF  RANGE  - LAST  FCIM  IN 

FOTCNT 

297 

C PLOT  TO  BORDER  WITH  PEN  OCkN 

FCTCNT 

298 

C 

FOTCNT 

299 

XA=XP 

FOTCNT 

3CC 

YA«YP 

FOTCNT 

301 

GO  TO  610 

FuTCNT 

302 

80 

IFIIPfcN.EO.UPI  GC  TO  60 

FOTCNT 

303 

IPEN=UP 

FOTCNT 

■>C6 

IF(XP.LQ.X(I3EGiISIDfctL)/DELCP.ANC.YP.EC.Y(I£fcG*ISIG£*L)/0ELCMJ 

FGTCNT 

305 

1 IPEN=DOWN 

FOTCNT 

306 

GC  TO  60 

FGTCNT 

307 

C 

FOTCNT 

308 

C ALL  NOISE  LEVELS  PLOTTED 

FOTCNT 

309 

C 

FCTCNT 

31C 

C PLOT  FLIGHT  PATH  AS  SERIES  CF  ARPCk  HE AOS  PCINTING  IN  DIRECTION 

FOTCNT 

31  l 

C CF 

FL  IGHT 

FOTCNT 

31? 

C 

FOTCNT 

313 

ICO 

XL  = ZE*U 

FCTCNT 

316 

YL=. GOO  1 

FOTCNT 

315 

00  12C  1-U.NP 

FGTCNT 

316 

XP*FPATH(  Id) 

FOTCNT 

317 

YP*FPATH( I • 2) 

FCTCNT 

318 

IH I XP.LT.XM1H.CR. XP.GT. XMAX) .OR. I YP .LT. YMIN.CR. YP.GT .YMAX )) 

FOTCNT 

319 

1GG  TO  110 

FOTCNT 

320 

A=XP-XL 

FCTCNT 

321 

B*YP— YL 

FOTCNT 

322 

THETA=ASIN(A/SQRT (A**2*B**2) J*RACI  AN 

FOTCNT 

323 

IFIU.GE.2ER0)  TH£TA*THETA— 9C. 

FOTCNT 

326 

XPP=(YP— YMINJ/DELCM 

FOTCNT 

325 

YPP  = IXP~XMIM/DELCR 

FOTCNT 

32  6 

CALL  SYMBOL ( XPP , YPP,. C6, lARRCk, THETA,- l> 

FOTCNT 

327 

110 

XL  = XP 

FCTCNT 

326 

YL*YP 

FOTCNT 

329 

120 

CONTINUE 

FOTCNT 

330 

C 

FOTCNT 

331 

C ORAh  TITLE  AT  TOP  GF  PAGE 

FOTCNT 

332 

C 

FGTCNT 

333 

XP=IXLEN*1.)/CMPIN 

FCTCNT 

336 

C 36C 

FOTCNT 

335 

C 

1-18 

FOTCNT 

336 

1 = 8 

FOTCNT 

337 

125 

IF(TITLEU).NE.BLNK)  GC  10  13C 

FOTCNT 

338 

1=1-1 

FOTCNT 

339 

IF{ T.LE.O)  GO  TO  130 

FOTCNT 

36C 

GC  TO  125 

FCTCNT 

361 

130 

IF(I.EQ.C)  GO  TO  135 

FOTCNT 

362 

C 360 

FOTCNT 

363 

o o o o *-  o o r, 


rrri-  --'■'  i(  *• 


C 1=1*4 
[=1*10 

YP  = .5  * iVLEN  / CMPIN  - ,16  * FLOAT  ID) 

CALL  SYMBOL! YP,XP,.16,T1TLE,C.0»I  I 
135  CONTINUE 

LABEL  CONTOURS  AT  1/3  TOTAL  RANGE  CN  LEFT  SICE 

IP*  NP/3 
DC  150  1=1, NL 
FPN*  VNO I SE< f 1 
XP*( Y! IP,2,i J—YMIN1/OELCM 
YP*( X<IP*2,I)~ XMIN1 /DELCM 
CALL  NUMBER (XP,YP, CHRHT, FPN, C.0,-1) 

XP  = y, V * CHRHT  * FLCAT!MCHAR!fFM  i 
CALL  SYMBOL! XP, VP, CHRHT, NLABEL, 0.0, 8) 

10  CONTINUE 

ORAM  LEGENO 

ALL  PEN  MOVEMENTS  COMPUTED  IN  INCHES 

XL=YLEN/CMP1W— 2. 

YP=— CHRHT 

CALL  SYMBOL! XL. YP, CHRHT, 7HCGKTCLR.O. 0,71 
XP=XL+l.l 

CALL  SYMBOL! XP,YP, CHRHT, 4HAREA, 0.0,41 
YP*YP-,15 

CALL  SYMBOL ( XL , Y?, CHRHT  ,NLABEL,0.C,8) 

XP=XL*1.0 

CALL  SYMBOL! XP, YP, CHRHT, 3HS0. ,O.C  ,31 
XP=XL+1.4 

CALL  SYMBOLIXP,YP,CHRHI,AXOMT, 0.0,41 
00  175  I*1,NL 
FPN=VNOISE! I ) 

XP  = XL  ♦ .4  - CHRHT  * FLCAT IMCHARiFPM 1 
YP*YP-.2C 

CALL  NUMBER! XP,YP, CHRHT, FPN, C. 0,-11 
FPN*AREA!  I ) 

IP*MCHAR!FPN1-1 
FPN=FPN/10.**IP 
XP=XL+  1.0 

CALL  NUMBER! XP,YP, CHRHT, FPN, C. 0,3) 

XP  = XP  ♦ 5.  * CHRHT 
CALL  SYMBOL !XP,YP,CHRHT,1HE,C. 0,11 
XP=XP*CHRHT 
FPN*  IP 

CALL  NUMBER! XP,YP, CHRHT, FPN, 0.0,- 1 ) 

175  CONTINUE 
C 

C DRAW  SCALE  ANNOTATION  IN  FAR  RIGHT  CCRNER 
XP*XL 
YP=YP— .2  5 

CALL  SYMBOL! XP,YP, CHRHT , 11HSCALE=1  CM/  ,0.0,11) 

NC=MCHAR!0ELIV)+1 

XP=XL+ 1 1.* CHRHT 

CALL  NUM8£R!XP,YP, CHRHT, 0ELTV,C.C,-1) 

XP  = XP  ♦ CHRHT  * FLOAT! NC 1 


FGTCNT 

344 

FOTCNT 

345 

FUTCN1 

3 56 

FOTCNT 

34? 

FOTCNT 

348 

FOTCNT 

349 

FOTCNT 

35C 

FOTCNT 

351 

FOTCNT 

352 

FCTCNT 

353 

FOTCNT 

354 

FOTCNT 

355 

FOTCNT 

356 

FOTCNT 

357 

FOTCNT 

356 

FOTCNT 

355 

FOTCNT 

360 

FOTCNT 

36  1 

FOTCNT 

362 

FOTCNT 

363 

FOTCNT 

364 

FOTCNT 

3o5 

FOTCNT 

366 

FOTCNT 

367 

FOTCNT 

366 

FOTCNT 

369 

FOTCNT 

370 

FOTCNT 

371 

FOTCNT 

372 

FOTCNT 

3 73 

FOTCNT 

374 

FOTCNT 

375 

FOTCNT 

376 

FOTCNT 

377 

FOTCNT 

378 

FOTCNT 

379 

FOTCNT 

380 

FOTCNT 

381 

FOTCNT 

332 

FCTCNT 

383 

FOTCNT 

384 

FOTCNT 

385 

FOTCNT 

3St 

FOTCNT 

387 

FOTCNT 

388 

FOTCNT 

389 

FOTCNT 

39C 

FOTCNT 

391 

FOTCNT 

392 

FOTCNT 

393 

FOTCNT 

394 

FCTCNT 

395 

FOTCNT 

396 

FCTCNT 

397 

FOTCNT 

398 

FCTCNT 

399 

FOTCNT 

40C 

122 
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SUBROUTINE  F TPRT (N.UATN,N4,D1  ,D2  ,D3,EA,  IMCDE.NLN) 

FTPRT 

2 

PURPOSE  TO  PREPARE  A NOISE  CCMOUR  SCHEME  WITH  PARAMETERS 

FTPRT 

3 

ENGINE  PRESSURE  RATIC,  OFF  AXIS  RANGE,  NCISE  LEVEL  AND  ELEVATION. 

FTPRT 

A 

FTPRT 

5 

NLS  STARTING  NCISE  CCNTCLR 

FTPRT 

L 

NLF  LAST  NOISE  CONTOUR  TC  BE  EXAMINED 

FTPRT 

7 

METHOD  THE  DATA  IS  READ  IN  ANC  CCNVEPTED  TC  A FUNCTION 

FTPRT 

b 

LCGIRC»=FUNIEPR,Z,NL)  ARRANGED  INTO  TABLES  OF  UCG(KC>  VALUES 

FTPRT 

c 

FOR  EACH  SPECIFIC  NCISE  LEVEL  TC  BE  EXAMINED.  THEN  FOR 

EACH 

FTPRT 

J.D 

SET  OF  FLIGHT  PARAMETERS,  TABLE  LCOK  LP  ROUTINES  ARE  USECTO  GET 

FTPRT 

H 

THE  VALUEOF  LCGIRO  FCR  EACH  NCISE  LEVEL.  THE  X,  Y AND 

FTPRT 

12 

DIFFERENTIAL  AREA  CAN  THEN  BE  CALCULATED  FRCM  GNE  PCINT 

TC 

FTPRT 

13 

THE  SUCCESSIVE  POINT  ANO  STORED  AS  A SUM  FOR  EACH  NOISE 

LEVEL. 

FTPRT 

LA 

COMMON/ VALNL/NL ST, NLF f 

FTPRT 

15 

CGMMUN/S I ZE/NLRG.NALFA 

ETPKT 

It 

CCMMON/CCUNT/NEPR,NL 

FTPRT 

17 

C0MM0N/CGNTNT/AEPRC6J , ALRO (9 ) , AA LF A ( 6 ) 

FTPRT 

lb 

DIMENSION  XI (51 ,X2(5) ,Yl 15) ,Y2 (5) ,SUN<5) 

FTPKI 

19 

DIMENSION  SLNL ( 3 ) 

FTPRT 

20 

DIMENSION  DA  TNI  11,01(11  ,D2  1 1 ) ,D3  (1)  , DA  (I) 

FTPRT 

21 

CALL  0ATAIN<N,DATN,N4,D1,D2,C3,CA,1MCD£) 

FTPRT 

22 

If ( IMCOE.NE.-l)  GC  TC  1COC 

FTPRT 

23 

NLS=NLST 

FTPRT 

2A 

nlf=nlft 

FTPRT 

25 

CALL  VCIM(C1,D2,NFPR,NL,NLRC,NALFA,NLS,NLF) 

FTPRT 

26 

RETURN 

FTPRT 

27 

CCNT  INCE 

FTPRT 

28 

OATAIN  READS  IN  THE  APPROPRIATE  CATA  VIA  DATA  STATEMENTS  THEN 

FTPRT 

2<i 

SORTS  AND  FINDS  THE  DISTINCT  VALLES  CF  THE  INPUTS  FRCM  TEE 

167 

FTPRT 

3G 

CALI  DR  I VC S ( D 1 ,D2 , xl ,X2 , Y1 , Y2 , SUM  , SLNL* I MCCE ) 

FTPRI 

31 

DRIVER  IS  A TEMPORARY  SLBRCC TINE  1C  SIMULATE  THE  OUTPUT  CF 

THE 

FTPRT 

32 

SIMULATOR  HY  SUPPLYING  SAMPLE  FLIGHT  CCCRCINATES 

FTPRT 

33 

return 

FTPRI 

3A 

END 

FTPRT 

3 5 

124 
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COMPLEX  FUNCTION  F K 1 1* ) 

FW 

2 

'M 

rw 

3 

'.-"7 

m 

COMPOTES  BOUNDARY  LOSS  FACIC# 

FW 

H 

g 

FK 

c 

m 

COMPLEX  Wt  X,  A*  S 

FW 

t 

j 

C IMtNS I ON  XP12),  AF  (21  > SP(2) 

FW 

7 

3£j 

real  k 

FW 

6 

ti* 

M 

DCU3LC  PRECISION  AA(2),  SS ( 2 ) « Tl.  T2,  T 

FW 

5 

% 

EQUIVALENCE  (XPU).X),  (AP(1),A>,  ISP(l)tS) 

FW 

1C 

•i 

(DATA  2ERf!»ONfc,P5»EPS»Pl»U  /C  . , 1 . »- . 5 • 1.2E-7  ,3. 14  l!>92o535B93,  1/ 

F n 

11 

M 

K = ZERO 

FW 

12 

&$ 

X - h 

F W 

12 

li 

XX  = XP(1)*XPU)  ♦ XPI2)*XF<2) 

FW 

14 

5 

'2 

If  IXX  - 100.  1 100,  20C,  2 CO 

FW 

15 

FW 

16 

■a 

SERIES  FORM  NG.l,  ARG  PAG  .Li.  IC. 

FW 

17 

B 

ICO  AA(  l)  = ONE 

FW 

le 

s 

A 

AA ( 2 ) = ZERO 

FW 

19 

■2S 

SS(1)  = ONE 

FW 

20 

ti 

SSI  2 } = ZFHU 

rW 

21 

ICl  K = K + ONE 

FW 

22 

T = K + K 

Fw 

23 

% 

T = IT  - CNF)  / (IT  ♦ CN6)  * K) 

F'rt 

24 

% 

Tl  = AAU) 

FW 

25 

I 

T 2 = AAU) 

FW 

26 

2 

AAU)  = T * HI  ♦ XPU)  - 12  ♦ XF (2)  ) 

FW 

27 

4 

•i 

AAI2)  = T * (Tl  * >P(2)  ♦ T2  * XFUIi 

FW 

2 fi 

¥. 

AP(1)  = AAU) 

FW 

29 

1 

AP ( 2 ) * AA ( 2 ) 

FW 

JC 

•1 

SSU)  * SSIl)  ♦ AAU) 

FW 

3! 

| 

SSI  2)  * SS ( 2 ) ♦ AA (2 ) 

FW 

22 

s 

SP(1)  = SSU) 

FW 

33 

% 

S P ( 2 ) = S S ( 2 ) 

FW 

34 

1 

AX  = AHSlAP(l)  ) ♦ AcJ  E ( AP ( 2 ) ) 

FW 

35 

SX  = ABS(SPUJ)  * ABS(SP(2U 

fw 

36 

s 

«j 

IF  (AX  - fPS  * 5 X J 1 C2  , 1 02  r ICl 

FW 

2 ? 

£ 

i* 

102  Pa  •--  ONE  - cEXP(-X)  * {(X*X)  * S - (0.,1.)  * CSQRTIPl  * X)) 

FW 

36 

& * 

GO  TO  200 

FW 

39 

s 

j? 

FW 

40 

-f 

CONTINUED  FRACTION  FCKP  NT. 2,  ARG  PAG  .GE.  10. 

Fw 

41 

*5 

200  A = Po/  (X  -2.5  -3./  (X  -4.5  -7.5/  (X  -6.5  -10.803/  (X  -4.269)1)) 

FW 

42 

,4 

Fw  = (P5  ♦ A ) / IX  » P5  + A) 

FW 

43 

'i 

20C  RETURN 

FW 

44 

A 

•4 

ENO 

FW 

45 

I 

3 

I 


SUBROUTINE  GRDRFX (F, NFS, ITCNE » P ,CRN, BO ,CQ ,KN,ND, LDF, ZNR,ZNI , BSPL ) 

ROUTINE  TU  CCMPU « E GROUND  REFLECT  l CN  CORRECTIONS  (DSPLi  TO  BE  ADDED 
TO  FREE-FIELD  ACOUSTIC  SPECTRA  IN  CRCER  TO  OBTAIN  THE  EFFECT  OF  A 
REFLECTING  GROUND  PLANE.  (II  MAY  1572  BY  C.G.  DUNN) 

REFERENCE 

1)  P.B.  GNCLEY, /PROPAGATION  OF  JET  ENGINE  NOISE  NEAR  A POROUS 

SURFACE/,  JOURNAL  CF  SOUND  ANC  V I8RATICN , VGL13,  C1970,  PP27-35. 

2i  C.G.  DUNN,  /COMPUTER  MODULE  FOR  GROUND  REFLECTION  EFFECTS/, 

BOEING  COORDINATION  SHEET  ANS-RES-F-32I , MAY  L972 

INPUTS 

II  F ...  ARRAY  CF  FREQUENCIES  (HZ  > TC  BE  USED  IN  THE  CALCULA- 

TION. *RESTR1CTICN*  F .GI.  ZERO  AND  IF  ( ITCNE  .L£.  0) 
THE  CORRECTIONS  ARE  ASSUMED  TC  APPLY  TO  BRC AC-BAND, 
CONSTANT-PERCENTAGE-BAND  SPECTRA.  THE  VALUES  FCR  (F) 
ARE  THE  GECMETRIC-MEAN  FRECUENO I ES  FUR  THE  PASS  BANDS, 
POSITIVE  (NON— ZERO , AND  CRGEREC  IN  MCNOTUNIC  INCREA- 
SING VALUE. 

21  NFS  ...  NUMBtR  OF  FREQUENC I £ S OR  LEVELS  TC  BE  CORRECT  EC. 

♦RESTRICTION*  IF  (ITCNE  .GT.  0)  NFB  .GE.  1,  OTHERWISE 

NF B .GE.  2 

3)  ITONE  ...  INDICATOR  TC  SPECIFY  THE  TYPE  CH  SPECTRA. 

ITONE  .LT.  C FCR  BRC AC-BAND « CONSTANT-PERCENT  AGE- BANC 
SPECTRA  INTEGRAL  EQUATION  88  CF  REF. 2 
ITONE  .EG.  0 FCR  SAME  EXCEPT  USE  APPROXIMATION  EC.6C 
ITONE  .GT.  0 FOR  TCNES  CP  POWER  SPECTRAL  DENSITY 
TYPE  LEVELS.  SEE  EG.eA  CF  REF. 2 

91  R ...  DISTANCE  FOR  PROPAGATION  (CIRECT  PATH)  IN  FfcET . 

5 1 ORN  ...  RELATIVE  PATH  LENGTH  DIFFERENCE  FOR  REFLECTED  SIGNAL, 

IF.  DRN  = UR/R 

6)  BC  ...  INCIDENT  ANGtt  FCR  REFLECTED  SIGNAL  IN  DEGREES. 

INPUTS  VIA  CCMMCN  BLCCK  /ELK98 / 

7)  CO  ...  SPEED  CF  SOUND  (FF/SEC)  CVER  PROPAGATION  PATHS. 

81  KN  ...  MAGNITUDE  CF  WAVE  NUMBER  RATIC,  It.  KN  = ABSIK1/K0), 

KO  = 2*P I * F / CD,  Kl  = KO  * (A  ♦ 1*31  FOP  GROUND. 
♦RESTRICTION*  KN  .GT.  C. 

9)  NO  ...  NUMBER  OF  DATA  POINTS  FGR  THE  GROUNDS  NORMAL  JZED- 
CUMPLEX  IMPEDANCE  CURVE. 

♦RESTRICTION*  3 .Lfc.  ND  .LE.  50 

10)  LDF  ...  ARRAY  CF  VALUES,  LOGIC (F  I,  FCR  THE  IMPEDANCE  DATA 

CURVE,  ZI//G  VERSUS  LCGIO(F). 

11)  ZNR  ...  ARRAY  UF  0 I MENS I C ME S S IMPEDANCE  VALUES  (REAL  PART! 

FUK  THE  DATA  CURVE,  !E.  ZNR=PE ( Z 1/ ZO ) 

♦RESTRICTION*  ZNR  .GE.  zERC 

12)  ZNl  ...  SAME  EXCEPT  THE  IMAGINARY  PARTS,  IE.  ZNI=IM( Zl/ZO) 
CLTPUT 

13  OSPL  ...  ARRAY  CF  SPL  CCPPLCUCNS.  (DE) 

REMARKS 

1)  REQUIRES  ROUTINES-  Di’SC,  FW,  CPCLAR,  TBLUi,  TERP1 , i t ARCH 


GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GP  ‘RFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRCRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GkDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
CRDRFX 
GRDRFX 
CRDRFX 
GKDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GRDRFX 
GKDRFX 
GRCRFX 
GRDRFX 
GRDRFX 
GR  DP  FX 
GRDRFX 
GRCRFX 
GRDRFX 
GRCRFX 
GRDRFX 
CRDRFX 
GRCRFX 
GRCRFX 
GRDRFX 
CRDRFX 
GRCRFX 
GRDRFX 
GRCRFX 


2 

3 

9 

5 

6 
7 
B 
5 

1C 
1 1 
12 
13 

19 
15 
it. 
17 
IP 
IS 
2C 
21 
22 
23 
29 

25 

26 
27 
2£ 
29 

20 

31 

32 

33 
39 
3b 

36 

37 
3 fc 
35 
9C 

91 

92 
92 
99 

95 

96 

97 
96 
95 

50 

51 

52 

53 
59 
55 
5t 

57 

58 
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DOUBLE  PRECISION  SI,  S2 
REAL  KN,  LOF 

DIMENSION  FID,  OSPKIN  API2J 
DIMENSION  LDFll)  ,ZNRtl»,2M«U 
COMPLEX  CPOLAR,  SBl»  A 
COMPLEX  ZN»RP  »R»FX 
COMMON /BLK97/ZN»RP»k»FX 
EQUIVALENCE  I AP I 1 ) , A ) 

OATA  ONE, ZERO, TEN, EPS, CMEGA, RPC  /l.,0., 10. ,1  .E-S^&O.  , 
* 1.7A53292519A3E-2  / 


sec 

= BC*RPO 

CBO 

= COSISBO) 

SBO 

= S INI SBO ) 

cm 

= CBC  / KN 

SB  is 

= ONE  - CB1*CBI 

IF 

(SB1S)  It,  12,  12 

SB1 

= CMPLX I ZERO SORT (-S8 1 S) ) 

GC  TC  13 

SBI 

* CMPLXI  SGRT  I SB1S)  , ZERO 

IF 

( ITONE)  20,  2C,  AC 

ETA 

= (F(NFB)  / Fill)**!. 5 / 

FLCAT (NFB 

IF 

I ITONE  .GE.  C)  GO  TO  6C 

SRF 

= 7.07  * (R  * DRN  / CO)  * 

(ETA  - GNE 

CO 

3G  K = 1 ,NFB 

• 

FL 

= FIK)  / ETA 

FL 

= FIK)  * ETA 

NSR 

= AMAX1I3.0,  SRF  * FIK)) 

♦ C.5 

Nl 

= NSR+NSR 

FM 

= Nl 

Cx 

= (FL  - FL)  / FM 

SI 

= ZERO 

NI 

= Nl  - l 

DC 

21  J = l,Nl,2 

FTEM=FL+FLOAT( J)*CX 

STEM=DP  SOI  FTEM , SBO  tCBC » SB1  ,A , SB!  S , R, ORN ,CO  ,KN  ,LUF ,ZNP ,ZM, ND) 
S I=S 1 +STEM 

21  CONTINUE 

S2  = ZERO 
Nl  = NI  - 1 
CO  22  J = 2,N1,2 
FTEM=FL+FLOAT( J)*DX 

STEM=DPSOlFTEM,SBO»CBG»SBl,A,SBl$,R»CRN»CO,KN,LDF»ZNR,ZNI»ND) 

S2=S2+STEM 

22  CONTINUE 

STEM=OPSD I FL  , SBO  ,CBO,S6I , A ,SB IS, R, CRN ,CO,KN,LDF,ZNR, ZNI.NO ) 
FTEM  = DPSO(FU  ,SBO,CBO,S0I .A  , 5B  1 S ,P  ,CRN ,CO  ,KN  ,LDF ,ZNR»ZNI , NO 
S = (STEM  *FTEM  ♦ A.DC*S1  ♦ S2+S2I  / (3.  * FN1) 

DSPLIK)  = TEN  ♦ ALCGi C ( S ) 

3C  CONTINUE 
GC  TC  IOC 

AC  DO  7C  K = 1 ,NFB 

S =DPSD (F(K)»S80 ,CBO, S81 »A,SBIS,R.CRN,CC ,KN*LOF  »ZNR»ZNI»  ND) 

IF  IS)  5C,  5C,  6C 
5C  OSPL(K)  = -UMEGA 
GC  TO  70 

6C  OSPLIK)  = TEN  * ALCGIOIS) 


GRCRFX 

GRORFX 

GRCRFX 

GRORFX 

GRCRFX 

GRCRFX 

GkDRPX 

GRCRFX 

GRCRFX 

GRCRFX 

GRCRFX 

GRCRFX 

GRDRFX 

GRCRFX 

GRORFX 

CRCRFX 

GRCRFX 

GRCRFX 

GRDRFX 

GRORFX 

GRCRFX 

GRDRFX 

GRCRFX 

GRCRFX 

GRDRFX 

GRORFX 

GRCRFX 

GRCRFX 

GRCRFX 

GRDRFX 

GRCPFX 

GRDRFX 

GRORFX 

GRCRFX 

GRCRFX 

GRCRFX 

GRCRFX 

GRCRFX 

GRDRFX 

GRORFX 

GRCRFX 

GRCRFX 

GRCRFX 

GRORFX 

GRCRFX 

GRCRFX 

GRCRFX 

GRORFX 

GRCRFX 

GRCRFX 

GRDRFX 

GRCRFX 

GRCRFX 

GRCRFX 

GRCRFX 

GRDRFX 

GRDRFX 


7C 

CONTINUE 

GRORFX 

1U 

GC  TO  100 

GRORFX 

117 

8C 

FU  = 3.1415926535896  * R * DUN  / CO 

GRORFX 

118 

FL  = FU  * (ETA  - ONE  / ETA1 

GRDRFX 

119 

FU  = FU  • (ETA  ♦ ONE  / ETA1. 

GRORFX 

120 

00  90  K = 1 »NFB 

GRORFX 

121 

PI  = FL  * f IK) 

GRORFX 

12? 

P2  = FU  * F(K) 

GRORFX 

123 

S =DPSO IF ( K ) t S80 »CBC »SB1 » A » SB  l S «R»CRN  »C0  »KN  f LDFjZNR*  ZM»  NO  ) 

GRORFX 

124 

A = CPOLAR (A) 

GRORFX 

125 

S * ONE*AP(  l)*AP(l)  ♦ <AF(1)+AP(1))  • CCS  IP2-AP  (2 ) ) * SINIPU/P1 

GRORFX 

126 

DSPL(K)  = TEN  ♦ ALOGIO IS) 

GRORFX 

127 

IF(R *NE • 150. )G0  TO  9C 

GRORFX 

126 

API  2 )*AP( 2 ) /RPD 

GRORFX 

129 

MRITE(6,1201F(K) tOSPL(K) ,2N. A ,RP  ,h fF X 

GRORFX 

13C 

120 

FORMAT (3X2F9.lt 1 PE  11. 3,9611. 3) 

GRDRFX 

131 

90 

CONTINUE 

GRORFX 

132 

10C 

RETURN 

GRORFX 

133 

END 

GRORFX 

134 

128 
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SUBROUTINE  INITL 


INPUT  CATA  BLOCKS  FOR  NOISE  CCMPCNEMS 
I TYPE  DEFINES  THE  TYPE  CF  NCISE  CCMPCNENT 
TTYPE* l PRIMARY  JET 
*2  PRIMARY  ANO  SECONDARY  JET 

COMMON  /J  E TOA  T /N  J£  T L » MCCDF.  1 » A P 1 , H F l , VF 1 » AS2  » W52  » VS2  * PR  1 , PA  1 , 
l TT1,VA1,DIAMJ1,ANGJTI,ICCPI 
=3  CORE  AND  TURBINE 

COMMON /CORE IN  / TT3,PP3»CMF3»EI<3,0ElT3»Jii3  , 

* 1COR3.L IN3.NTF 3,1 MA3,LGM3,M«L 3 ,ICP3, 1 LA Y3.TF31 10), 

* PCTA3I  1C),PLA3IIC)  ,E1.CH3  «ECl>3  ,Flh3  (10 ) »TL3  1 10 ) .CF3.FM3 

=*  COMPRESSOR  ANO  INLET  FAN 

*5  EXIT  FAN 

*6  AUGMEN TER- RING  JET 

CCMMON/SWI TCH/NTYPE,ITYPE,NENG,ICCF,  I PUT  17) • ICNI 13),NLCPT 
COMMON/ A UGhNG/GAMflt  .TT6,NPR6,0FLT6,AC6,CEo» 

* IC0R6.LIN6.NrFt, I MAfc ,LGM6 , N Y Lfc  , ICF6  , I L A Y6 , TF6 1 10), 

* PCTAbI  10)«PLAb(lC) ,t LCH6 ,ECH6,Rll»6(10l  , TL6 ( 10) .CF6.FM6 

*7  BLORM-FLAP  JET 

*8  EJECTOR  - SUPPRESSOR  JET 

= 9 LIFT-FAN 

*10  PROPELLER 

COMMON /PROP  I N/TIO,i»10,RPM1C,C1C,CSLbIO,ASUB1Q,BIO,CELTIO» 

* I COR  10 

=11  HELICOPTER  ANO  TILT  ROTOR 

COMMON/COP  TER/ Til, Oil, RPMll.Bll.CT  11,  ABll.CEll.RMl, 
l Sll,CEEll,DFLTli,XLMCli .XMNll  ,NRTR 1 1 , LLF1 1 , 

* I PR  1 1 , ICCR 1 1 


THIS  ROUT  INE£S  FUNCTION  IS  TO  INSLPE  CORRECT  IMTI 
BEFORE  EACH  DATA  CASE  IS  STAR 1EC 

INFORMATION  DESCRIBING  THE  DATA  CASE  (HEALING 


INITIALIZATION 


INFORMATION) 


CONSTANTS  USED  IN  INTERNAL  CAICLIATICNS 


COMMON  /GCONST/ 


IN,IG,ITl,IT2ffC,T*,F2»Fj,FA,H>,F6,F7,FB,F9,F10, 
IC,I1 , 1 2, 13, 1 A, I 5, 16, 1 7. 18, 1 9, 1 10, P l, P3 3, P5, P001, 
EPS , UNOEF ,BL , I CG ,C  PR  *RFG , ET  A ( 1 7 ) , M I , FM 1 , 1 17, A, P I 


VARIABLE  SET  CALCILATED 


THE  FRCC-RAP  PROCESSING 


COMMON  /GCOMCN/  NCF  ,NK  ,BCF  12  A ) , T SFL  ( 2-’» , 10  , l 7 ) .SPLT  IZ<, , 
*BUF(25),RETA< 17) ,SPL2( 17) , TGAGR (24 ) , CLPSF ( 1 7 ) 


FREQUENCY  BANDS  USED  GY  FKCoRAM 


COMMON  /GFREG/  CFREQ(2'.)  ,UFR£C  (25)  ,FFHtC(24) 


GENERAL  INPUT  PARAMETERS 


, . W4MA * to .,(M.  , , iiu »*■>  fcc . ..CM . A 


C AIRCRAFT-OBSERVER  GEOMETRY  CLTPUTS 

C 

CLMMQN  /GEO K0/  APY(10,17),APZ(10,17? ,PO f 10  vl71 • DPNQI 10*171, 
* 8l<  1C,  17),B2(10,17),TDS(17,10>  ,1PDU7,tO),lRRUO,l7) 
*,APPtTP,RHP,APO,T0,RH0,CA,CZ,TSPU7,10l  ,CCV 
C 

C CONVERSION  CONSTANTS 

C 

CC.MMCN/GCQNVC/C  12, 10)  , SLO I SX  1 10  ) 

CCMMON/CRSPLS/DOBI 17) ,PSCR( 17) ,DPB 44081 » NPSCR 
C 

COMMON / ICPATH /NC A S ,NCCF  * NT YP  » I C » 6RE  » (ARRAY (2) 

COMMON  /HEAD/  HINI20)  ,H007I20)  ,CHIM20) 

CCMMON/SOMSPL/SSPL (24,10,17) 

REWIND  8 
REWIND  <5 
REWIND  10 
REWIND  12 
DC  50  1=1,24 
DO  50  J=l,10 
00  50  K=  1 , 1 7 
50  SSPU  I, J,K)*FO 
DC  100  1*1,13 
100  ICN ( I ) * 1 0 
1 SFE  = 10 

IF(NCAS.NE.IO)GO  TC  2CC0 

CEE  1 1*24.4 

XMMll=2.0 

XLM.C  1 1 = 3C«C 

RNii=c.e 

L l.  F 1 1 * 2 

S 1 1 = 5 .0 

REWINC  20 

NC  = 3 

ZNR ( 11*3.7 
ZNR(2)=3.7 
ZNR ( 31=3.7 
ZNK  261  = 11.7 
ZN I ( 271=4.0 
ZNI(28>=-3.7 
FLD( 2t 1 * ICO. 

FLD( 27  )=  1CC0. 

FLO( 28  )=  1000C. 

DO  200  1=1, 20 
F INI  I )=8L 
FCUTI I )=8L 
200  CF  INI 1 )=BL 

DC  300  1=1,17 
300  RETA( I )=E7A( I )*RPO 
RETURN 

20CC  DC  4C0  J=l» 1 7 
40C  CQPSFI J )=F1 
RETURN 


INITL 
INI  TL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 
INITL 


59 

ol 

61 

62 

63 

64 

65 

66 

67 

68 
c5 

7 C 

71 

72 

73 

74 

75 

76 

77 
76 
75 
8C 

ei 

82 

33 

64 

85 

86 
87 

08 
89 
9C 

91 

92 

53 

54 
95 
9fc 
97 
58 

55 
IOC 
1C1 
102 

103 

104 

105 
1C6 
107 

106 
109 

no 

111 

112 
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SUBROUTINE 

INLET 

INLET 

2 

C AUTHOR 

0.  F.  MELORLM 

INLET 

2 

C 

INLET 

4 

C PURPOSE 

TO  PREOICT 

INLET  FAN  NCISE  FCR  THE  PHASE  6 

INLET 

5 

C 

NASA-AMES 

FOOTPRINT  CONTRACT  NASA-6969. 

INLET 

6 

c 

INLET 

7 

c.  methuo 

AS  0£ SCR  IB  ED  IN  REFERENCE  l). 

INC  El 

P 

c 

INLET 

9 

C INPUTS 

VIA  LABLED 

COMMON  FANCAT 

INLET 

1C 

C 

INLET 

11 

C 

NUMSTG 

NUMBER  CF  FAN  STAGES 

INLI.T 

12 

c 

1 6 MMSTG  t 3 

INLET 

13 

c 

NINIET 

SWITCH  FOP  INLET  FAN  NCISE 

INLET 

14 

c 

PREDICTION  IF  POSITIVE. 

INLET 

15 

c 

NAFT 

SWITCH  FCR  AFT  FAN  NCISE 

INLET 

16 

c 

PREDICTION  IF  POSITIVE. 

INLET 

17 

c 

IDCPP 

SWITCH  FCR  THE  DCPPLAR  SU.FT 

INLET 

16 

c 

FLIGHT  EFFECTS. 

INLET 

19 

c 

C NO  FLIGHT  EFFECTS  CR  CCPPLAR  SHIFT. 

INLET 

2C 

c 

I DCPPLAR  SHIFT  FCR  THfc  FRfcCUENCY 

INLET 

21 

c 

CCPRECTICN  CNLY. 

INLET 

2t 

c 

2 DCPPLAR  SHIFT  FCR  THE  FREQUENCY 

INLET 

2 3 

c 

AND  LEVEL  CORRECT ICN. 

INLET 

24 

c 

N8U) 

NUMBER  CF  FAN  EL  ACES  FCR  EACH  STAGE 

INLET 

25 

c 

WHERE  l £ I £ NUMSTG 

INLET 

26 

c 

FPPU) 

FAN  PRESSURE  RATIO 

INLET 

27 

c 

U I AM  (!) 

FAN  INLET  OIAMtTER  (INLET  ONLY)  FT 

INLET 

2E 

c 

Rssm 

MINIMLN  RCTOfl/STATCR  SPACING  PERCENT 

INLET 

25 

c 

AREA(J) 

FAN  DISCHARGE  AREA  (AFT  CNLY J FT *FT 

INLET 

30 

c 

RN1 

RCTCP  SPEED  RPM 

INLET 

31 

c 

RTS 

RELATIVE  TIP  MACH  NUMBER  CF  THE 

INLET 

32 

c 

FIRST  STAGE  WITHOUT  INLET  GUIDE 

INLET 

33 

c 

VANES  (IC-V).  IF  LESS  THAN  I 

INLET 

34 

c 

1GV  WILL  EE  ASSUMEO  FCR  THE  FIRST 

INLET 

35 

c 

STAGE  ( INLET  FAN  CNLYI. 

INLET 

36 

c 

CRTFPR 

FAN  PRESSURE  RATIC  FCR  THE 

INLET 

37 

c 

RELA',  IVE  TIP  MACH  NUMBER  CF 

INLET 

38 

c 

1.025  (INLET  FAN  CNLY) 

INLET 

39 

c 

ANGFAN 

ENGINE  INCLINATILN  ANGLE 

INLET 

4C 

c 

INLET 

41 

c 

VIA  LABlEO 

CCM.MCN  SWITCH 

INLET 

42 

c 

INLET 

43 

c 

NUMENG 

NUMBER  CF  NCISE  SOURCES  CF  THE  SAME 

INLET 

44 

c 

NUISE  TYPF. 

INLET 

45 

c 

INLET 

46 

c 

VIA  LABLEL 

COMMON  GCCMCN 

INLET 

47 

c 

INLET 

46 

c 

NCF 

1/3  OCTAVE  CF  FILL  CCTAVE  SWITCH 

INLtT 

45 

c 

CR  NUMBER  CF  FREQUENCY  BANDS  (8  OR  241 

INLET 

30 

c 

R£TA(24) 

DIRECTIVITY  ANGLES 

INLET 

51 

c 

INLET 

52 

c 

VIA  LABLED 

CCMMLN  GFPAM 

INLET 

53 

c 

INLET 

54 

c 

AMACH 

MACH  NUMBER  CF  THE  AIRCRAFT 

INLET 

55 

c 

NOBS 

NUMBER  CF  OBSERVER  POSITIONS 

INLET 

56 

c 

INLET 

57 

c 

VIA  LABLED 

i COMMON  SLMSFL 

INLFT 

56 

3 

a 


1 

a 
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INLET 

SSPL  CURRENT  1CTAL  PREDICTED  NOISE  FOR  NCF  INLET 

(8  CR  24)  FRECUENCIES,  AT  NCBS  OBSERVER  INLET 
POSITIONS  FOR  17  DIRECTIVITY  ANGLES.  INLET 

INLET 

VIA  LABLED  CCMKCN  ANGLE  (SET  UP  BY  SUBROUTINE  ANGLES  INLET 

INLET 

PSI  17  OIRECTIVITY  ANGLES  FOR  EACH  CF  INLEI 

NCBS  OBSERVER  POSITIONS.  INLET 

PSIO  17  OIRECTIVITY  ANGLE  PROJECTIONS  FCR  INLET 

EACH  CF  NCBS  OBSERVER  POSITIONS  INLET 

BETA  ELEVATION  ANGLE  FRCJEDT I CN  FOR  EACH  INLET 

CF  NCBS  OBSERVER  POSITIONS.  INLEI 

INLET 

EACH  COMPONENT  IS  hRITTEN  CN  TAPE  CR  FILE  10  INLCT 

FOR  EACH  CF  NCF  BANCS  FOR  EACH  CF  NOBS  OBSERVER  INLET 

POSITIONS.  INLET 

INLET 

OUTPUTS  VIA  LABLED  COPPCN  SLPSPL  INLET 

INLET 

SSPL  CURRENT  TOTAL  PRECICTEC  NOISE  FOR  INLET 

8 CR  24  FRECUENCIES*  AT  NCBS  CbSEKVER  INLET 

POSITIONS  FOR  17  DIRECTIVITY  ANGLES.  INLET 

INLET 

VIA  LABLED  CGPPCN  ANGLE  (SET  UP  BY  SUBROUTINE  ANGLES  INLET 

INLET 

PSI  17  DIRECTIVITY  ANCLES  FCR  EACH  OF  INLET 

NCBS  OBSERVER  POSITIONS.  INLET 

PSIC  17  DIRECTIVITY  ANGLE  PROJECTIONS  FOR  INLET 

EACH  CF  NCBS  OBSERVER  POSITIONS  INLET 

BETA  ELEVATION  ANGLE  PROJECTION  FGP  EACH  INLET 

CF  NCBS  OBSERVER  POSITIONS.  INLET 

INLEI 

INLET 

REFERENCES  1)  R.  J.  SAX8Y  * NASA-APES  FOOTPRINT  CLNTRACT  INLET 

NAS2-6S69  FAN  NCISfe  PCCULE,  UN-NUPBERED  INLET 

COORDINATION  SHEET,  CATEC  19  JANUARY  1973.  INLET 

INLET 

FUNCTION  SUBPftGM  CCS  ESHLCC  PHRSUP  INLET 

INLET 

SUBROUTINES  ANGLES  LNIT  FANNCS  AERO  INLET 


INLET 

INLET 

INLET 

INLET 

INLET 

INLET 


CGPMON  /FANOAT/  NUMSTG iN INLET , NAFT , I DCPP ,NB ( 3 ) » FPRl 3 1 , INLET 

♦ DIAM13) ,RSS(3) ,APEA(3) ,RN1,RTS,CRTFPR,ANGFAN,  INLET 

*Nt5»BPR5,IC0R4,LlN4tNTF4,IMA4,LGP4«Nl*L4,ICP4*ILAY4*TF4(  10),  INLET 

♦ PCTAM  10  I , PLA4 ( 1C)  ,6  LCH4  »EDH4  , R 1 V4  ( 1 0 ) ,TL4  ( 10)  ,CF4,FM4,  INLEI 

*IC0R5,LIN5,N1H5, IMA5,LGM5*NH5 , 1 CF5 , 1 L A Y5 , TF5  1 10 1 , INLET 

♦ PCTA5I  10 ) ,PLA5( iC),ELCH5,EDH5,RlV5llOI .TL5I10) ,CF5,FP5  INLET 

COMMON  / SV»  ITCH /N  TYPE, ITYPE,NENG,  l DCF  » IPRT  (7)  , I CN  (13  ) , NLLPT  INLET 

*,  INSEOM  3I.INSHLD  INLEI 

C CONSTANTS  USED  IN  INTERNAL  CALCULATIONS  INLET 

C INLET 


59 

60 

61 

62 
62 

64 

65 

66 

67 

68 
65 
7C 

71 

72 
72 

74 

75 

76 

77 

78 
75 
80 
81 
82 
83 
64 

85 

86 
87 
86 

89 

90 

91 

92 

93 

54 

55 
96 
57 
98 
55 

ICC 

1CI 

1C2 

1C3 

104 

105 
IC6 
107 
1C8 
109 
11C 
111 
112 

113 

114 

115 
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COMMON  /GCON ST/  lN,IO,ni.IT2,FC,Fl,F2,F3,F4,F5,F6,F7,r-8,F9,F10,  INLET 

* 10,11,12,13.14, 15, lo. 17, 18, 19, 110, P1.P33.P5, P001,  INLbT 

* EPS  .liNOEF  »8L  » l L 6 »CFS ,RP0  »ETA  ( 17)  »M1,FMI,  117,  A, PI  INI  ET 

inlet 

VARIABLE  SET  CALCU.ATEn  IN  TFF  FBCGPAR  PROCESSING  INLET 

INLET 

CCMMJN  /GCCMLN/  NCF  ,NK  ,BCF  { 24)  , TSFLI24 , 10 ,17  ) ,SPLT  ( 24 , 1 1 ) , INLET 

*GGF(  25  ) , RETA  t 17) , SPL2 ( 17) » TGAGP (24 ) ,DCPSF ( 17 ) INLET 

CCMMGN/SUMSPL/SSPL (24, 1C, 17)  INLET 

COMMON /PNLO/PSPL  I 17 ,2f ) , EPNU  5 , 1C ) ,T£  PNLI5 , 1 0 ) IN!  -T 

INLET 

FREQUENCY  BANOS  LSEO  BY  PRCGHAR  INLET 

INLET 

COMMON  /GFREQ/  CFREQI24) , UFREC(25),PFRECI24)  INLET 

INLET 

GENERAL  INPLT  PARAMETERS  INLET 

COMMON /ANGLE /PS  I (17,10) , PS  I 0 1 17 , 1C ) , BET  A 1 17 , 1C ) INI  ET 

INLET 

COMMON  /GPKAM/ALTP, ALTK  » SLOPE  AR/CH ,NC BS ,SLC 1ST ( 10 ) , 1 T ENG. 1UN l T INLET 

* , ISPTRM, [ATMOS, IAIR , LA  I R AB i2  «) tNTEMP, TEMPI  50 ),T  ALT ( 50 ) INLEI 

* , NPRES, PRES ( 5C),PALT  (50)  ,NFLMC,R ALT  (EO)  .RHUM1C 1501, CTENP  INLET 

* , C PRES, CR HUM D, I EGA , I GOR , CTE RP ,CP RtS , OHCM 1 C , XKN , ML*  FLO  I oO ) , INLET 

* ZNK I 5C ) ,ZNI ( 50 ) , L INfcCT ,RAXLI N, ! FAGL  ,BCG  ,TCC ,FLN , AAL  T , PPF  INLET 

INLET 

A IRcRAFT-CBSERVtR  GLCMFTRY  CLTPLTS  INLET 

TNLcT 

COMMON  /GEL1ML./  AP Y ( l C , 17) ,APZ < 1C , 1 71 »P0 1 10 , 1 7 ) , CPND 1 10 , l 7 > , INLfT 

* fill 1C,17>,B2(10,17!»TD$(17,10),TFCC17,1C),IRR(10,171  INLET 

*,APP,TP,RHP,APu,IC,RHC,CA,C2,TSF(17,lC) ,CCV  INLET 

INLET 

CONVERSION  CONSTANTS  INLET 

INLEI 

COMMON/GCON VC/C  (2,10  .SLDISXUC)  INLET 

C0M^0N/TMSPL/SP2(24,17) , IB (2,3, 13)  INLET 

CUMMON/LNSHLU/LSPLAI IS J ,F S I ( 19 ) , M SPL  , I NL SP  INLET 

CCRMCN/CRSPLS/UO«( 17) ,PSCR ( 17 ) ,CFe (408)  ,NFSCK  INLET 

CGMMCN/HEAO/HINI  20, HOLT  (20)  ,CHIM20)  INLET 

INLET 

INLET 

INLET 

ICNl 4>=ICN(4 Ui  INLET 

INLET 

INLET 

CELTA=ANGFAN*RPO  INLET 

CALL  ANGLE S( NOBS, DELTA)  INLET 

INLET 

INLET 

LOOP  FOR  THE  NUMBER  GE  GBSERVtR  POSITIONS  INLET 

INLET 

FBPF  = FLOAT(NBID)  * PM  / 6C.  INLET 

INLET 

TEST  FOR  SHIELDING  AND  EXIT  TL  PRINT  CCT  RING  INLET 

SHIELDING  DATA  ONCE  FOR  ALL  SIDELINE  POSITIONS  INLET 

IF  I INSHLO.NE.OJCALL  WSHCUT (IPRT (7) , l C , I T YPE , USPL A , NUSPL , FS I , INUSP)  INLET 
4C  00  10C0  M=1,N0BS  INLET 

CALL  L INCCRI  SPZ  ( 1 , l ) , I MA4*  LGR4  ,E  LCH4  ,ECH4,Ni»L4  ,Rlw4,  TL4,  INLET 

* ILAY4.FM4, IDP4.PSI ( l,M) ,NCF  ,BCF,PLA4,  INLET 


116 
117 
116 
US 
12  C 
121 
12c 

123 

124 

125 
12c 
127 

126 
12S 

no 

ui 

132 

133 

134 

135 
i It, 
137 

136 
13S 

140 

141 

142 
14  3 
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145 

146 

147 
14E 
14S 
15C 

151 
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15S 
160 
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164 

165 

166 
167 

16e 

16S 

17C 

171 

172 
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♦ CF4,PCTA4,NTF4»TF4»00PSF  , SFL2,  ICGR4, 1 BUt  1 . IT  YPE I , LIN4,  FBPF ) INLET 


INLET 

CALL  ZERO!  SPLT»  4C8)  INLET 

INLET 
INLET 
INLET 

CALCULATE  THE  INLET  FAN  NOISE  PREDICTION  INLET 

INLET 

CALL  FANNOStDOPSF,  PSIt 1 ,M) , SPLT< 1 , l I , I CCP , NUHSTG, 1 ,Of NB ,FPR , INLET 

* DIAM,R$S,AREA,RN1 ,RTStCRTFPR«0.0,ePft5,NI5J  INLET 

INLET 
INLET 

45  CONTINUE  INLET 

INLET 

CONVERT  TO  A UNIT  CR  INDEXED  SPECTRA  INLET 

INLET 

CALL  UNITII50.  tl7«SPLT41*m  INLET 

ENG^NENG  INLET 

IFIENG.LE.O.O)  ENG*1.C  INLET 

ELVANG=90.C  INLET 

DANGLE =—45.0  INLET 

ENS=ESHLDGIDANGL£,ELVANG»ENGJ  INLET 

DC  50  J*1 » 17  INLET 

DO  5C  K= 1, 24  INLET 

5C  SPLT (K«JJ=SPLT (K»J)— ENS  INLET 

IFINCF  .EQ.24)  GO  TC  3CC  INLET 

INLET 

CONVERT  1/3  OCTAVE  TC  FULL  CCTAVE  INLET 

INLET 

DC  20C  J-lfl?  INLET 

DC  20C  K=l,8  INLET 

TMP  = 0.  INLET 

CC  100  L = 1 # 3 INLET 

JC  = 3 * K ♦ L - 3 INLET 

IOC  TMP  = P WR  SUM ( TMP  i SPLTIJC.JH  INLET 

200  SPLT(K.J)  = TMP  INLET 

INLET 
INLET 

ADO  TC  CURRENT  TOTAL  AND  V>RI  TE  CN  TAPE  10  INLET 

INLET 
INLET 

3CC  DC  4CC  J=I#NCF  INLET 

00  4CC  K.  = l » 1 7 INLET 

40C  SPLT(J,K)=SPLT( J.KJ-SPZ ( J,KI  INLET 

C INLET 

IF( INSHLD.NE . OICALL  SHIDSPIAPAUH ,ALTR, ISPTRM.CZ. SLCIST, M,  INLET 

*APY,APZ,OOPSF,SPLT,NCF,BCF,SPZ,PSI,I TYPE , ANGFAN.XX)  INLET 

C INLET 

DC  4C5  J=i,NCF  INLET 

DC  4C5  K=1 » 1 7 INLET 

405  SSPLU.M,KJ  = PHKSUMISSPLtJ,M,K),SFlT(J,K)i  INLET 

IFIIPRTI 7I.NE.7JGC  TC  41C  INLET 

CALL  NO  I SOU  PR T i 7) ,M ,NK , 10, CH I N , I LNI T , SLC I SX IM) ,PFREC,SPLT( i, 1) , INLET 

* NCF.ITYPE)  inlet 

4 1 C CONTINUE  INLET 

00  3fcC  JC=1»NCF  INLET 

OC  36C  KC=1, 17  INLET 


172 
174 
17  5 
17c- 
177 
17  6 
174 
180 
181 
182 

183 

184 

185 

186 
187 
108 
185 
19C 

191 

192 

193 

194 

195 
156 

197 

198 
19S 
2CC 
2C1 
2C2 
2C3 

204 

205 

206 
20  7 
208 
2C5 
2 1C 
211 
212 

213 

214 

215 

216 

217 

218 
215 
220 
221 
222 

223 

224 

225 
22c 

227 

228 
229 
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36G 

SPLU JC»KC)=SPLT(JC,KC)-1SPLIJC.P,KCI 

INLET 

23C 

CALL  PNLSLBI  SPLHltll  ,PSPLIl,H  .IFDU.KI  .EPNLU.M)  ,$PL2. 

INLET 

231 

* T EPNL ( 1 * Ml *NK »8CG  *TCG|ELR»PfNLBSjlPRlH»l)) 

INLET 

232 

IF  ( l °ft  T I 3).NE*3)G0  TC  1CCG 

INLET 

233 

CALL  NO  ISC(  IPHT  t 3)  »M»NKf12*CHN»ILM7»SLCISX(P)tPFKEC, 

INLET 

234 

* SPLTUtl)  .NCP,1TYP€) 

INLET 

23b 

C 

INLET 

23c 

C 

INLET 

237 

C 

INLET 

23C 

10CC 

CCNT INUE 

INLET 

234' 

RETURN 

INLET 

240 

ENO 

INLET 

241 

[ ,3uk2^«U^  tjMMMOti 
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/■;  1 


C 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 


c 

c 

c 


c 

c 

c 


c 


c 


SCBRCL'T  INE  INPUTG 

CONSTANTS  LSED  IN  INTERNAL  CALCLLAT I CNS 

COMMON  /GCONST/  IN , 1 0 , 1 T 1 , 1 T2 ,FC ,F 1 ,F2 ,F3 , F4 ,f 5 ,F6,F7, F8 , F9, F 10, 

* 1 0,1 1,12, 1 3, 14, 1 5,16, 1 7, 18, 19, 1 10,  PI, P33,P5,P001, 

* EPS, ONDhF ,BL,ICC,CPR,RF0,ETA(17),M1,FM1,I17,A,PI 

VARIABLE  SET  CALCLLATEO  IN  THE  PROGRAM  PRCCESSING 

COMMON  /GCOMON/  NCF ,NK ,8CF (24) , T SFL (24 , 10 , 17 ) ,SPLT ( 24 , 17  ) , 

♦BUF( 25),RETA( 17) , SPL2 ( 17) , TGAGR ( 24 ) ,CCPSF(17) 

FREQUENCY  BANOS  USED  BY  PROGRAM 

COMMON  /GFREQ7  CFREQ ( 24) ,UFRE C ( 2 5 ) , PFREC (24) 

COMMON/ SUM SPL/SSPL 124, 1C, 17) 

COMMON/PNLD/PSPL( 17,20 ,EPNL( 5 , 1C ) ,TEPNL (5 , 10 ) 

COMMON /ANGLE /PSI(17,10) ,PS 10 ( 17 , 1C ) , BET  A ( 17 , 1G ) 

GENERAL  INPUT  PARAMETERS 

COMMON  /GPRAM/AL  T P , ALT  R , SLOPE , A M ACH , NCBS ,SLC I ST ( U< ) , NT  ENG, IUNIT 
» , ISPTRM,  IATM0S,IAIR,UAIRAB(24) , MEMP ,TEMP (50 ) , T ALT ( 50  ) 

* , NPRES,PRES( 50) » PA LT ( 50), NHL  Ml C,RALT (50) ,RHUMIC(50),CTEMP 

* ,CPRES,CRHUMC,I£GA,IGOR,OTEMP,OPRES,DHUM.IC,XKN,NO,FLL(50), 

* ZNR( 50 ,2NL (50) ,L INEC T,MAXLIN, I PAGE ,8CG ,TCG ,FLR , AALT, EPP,  ISFE 

WING  SHIELDING,  JET  REFRACTION  EMPIRICISMS  AND  fCNOITICNS 

CCMMON/REFRAC/EMJ, TSTSC,IWE0(3) ,FASS(24) ,TETA(24),CPSIC( 24),NASRG, 

* ASF,  IwSFE 

CIMENSION  FLD(25),ZNI (25) 

EQUIVALENCE  ( FLO  ( 1 ) ,FIL(26))  , <ZM  (1)  ,ZNL(26)  ) 

A IRCRAF  T— OBSERVER  GEOMETRY  CLTPUTS 

CCMMON  /GEOMC/  AP V ( 1C , 17 ) ,APZ ( 1C ,17) ,PC ( 10 ,17) , DPND( 10 • 17 ) , 

* Bl(  1C,  17), 82  0.0,1 7)  , IDS (17,10  ,TPO(  17,10), I RRIIO,  17) 
*,APP,TP,RHP,APu,TC ,RHC ,CA,CZ,TSF(17,10),CCV 

CCNVEHSICN  CONSTANTS 

CCMMON/GCUNVC/C (2, 1C) .SLDISX (1C) 

CCMMON/CR  SFL  S/DCB ( 17) , PSCR ( 17) jCFe (4C8)  ,NPSCR 
COMMON /I CPATH/NCAS,NCCF,NTYP,IC,ARN, I ARRAY (2) 

CCMMCN/SWi  TCH/NTYPE,  IT YPE ,NENG , I CCF , I FRT  (7)  , ICN03)  ,f  LCPT 
*, INSEOWJ  2), INSrtLD 

CCMMON/HEAD/  HIN(2C)  ,HCLT  (20  ,CFIM20) 

CIMENSION  IOUT ( 7 ) 

CATA  ALTPG,ALT0G/2*C./ 

NAMELIST /GOA 1A/ALTPG, ALT CG»SLCPE ,AMACH ,NCBS , SLCI ST , NT  ENG, IUNIT, 

* ISPTRM, I ATMOS, I AIR, LA IRAH,N TEMP, TEMP, T ALT, NLGPT, ISFE, 

* NPRES,PKES,PALT,NHLMIO,RAlT ,PHUMIC,CTEMF,INS£CW, 

* CPRFS.CRHUMC, IEGA,IGOR,OTtPF,CPRES,CHUMIL,XKN,NC,FLD, 

* Z NR, ZN I, LINECT,MA XL  IN, IF AGE , BCG ,TCG , F LR , AALT , EPP , IOCP,lCuT 
REA!)  IN  CASE  hcACINU  CARO  UP  TC  EC  CCL6S  -CNE  CARD  AS  FUST  INPUT 


INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG. 

INPUIC- 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPLTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUT  U 

INPLTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPUTG 

INPCI G 

INPUTG 

INPUTG 

INPUTG 


2 

3 

4 

5 
t 
7 

e 

5 

1C 

u 

12 

13 

14 

15 

16 

17 

18 
1 ~7 

2G 

21 

22 

23 

24 

25 

26 
27 
26 
25 
3C 

31 

32 

33 

34 

35 
3fc 

37 

38 
35 
4C 

41 

42 

43 

44 

45 

46 

47 

48 
45 
5C 

51 

52 
a3 

54 

55 

56 

57 
5fl 


$ 

\ 

1 


\ 


t 


, ♦N.v'i 
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c 

EACH  CASE  - SUCEEUING  CASE  CARCS  MAYBE  BLANK  IF  INITIAL  HEA01NG  IS 

INPUT  £ 

55 

c 

THROUGHOUT  RUN 

INPUT  G 

60 

C360 

READ! IN,ICCO,£NO*2COJHIN 

INPUT  G 

61 

READUN,  1000 ) H I N 

INPUT  G 

62 

IF  1 EOF  I IN) ) 2QC»  ICC 

INPUT  G 

63 

100 

CONT INUE 

INPUT  G 

1FINCAS  .EQ.  I0IGQ  TO  25 

INPUT  G 

c5 

lF{HINim.EQ.BL.AN0.HINU2).EC.BL.ANC.HINl9>. 

INPUT  G 

06 

1 EQ.8l.ANO.HIN(10).EC.8L.ANC.HiNil2).EU.eDG0  TO  60 

INPUT  G 

67 

25 

CONTINUE 

INPUTG 

68 

00  50  1*11,20 

INPui G 

69 

50 

HCUT 1 1 )*HINI I ) 

INPUT  G 

7C 

60 

CONTINUE 

INPUTG 

71 

C 

READ  IN  DATA  FOR  GENERAL  OESCRIFTICN  OF  CASE 

INPUT  G 

72 

REAOI IN, GOATA ) 

INPUTG 

73 

IWSFE  * I SFE 

INPUTG 

74 

altp*altpg 

INPUTG 

75 

ALTR=AL  TGG 

INPUTG 

76 

C 

AOO  PRINT  REPORTS  INDICATOR  VALLES  TC  NAMELIST  GOATA  AND  COMMON 

INPUTG 

77 

c 

BLOCK  SWITCH 

INPUTG 

76 

c 

THERE  ARE  7 DIFFERENT  REPORTS  AVAILABLE  AS  CPT1LNS  PLUS  A DEFAULT 

INPUTG 

75 

c 

OPTION.  THESE  REPORTS  MAY  BE  RECLESTED  BY  INPUTING  VALUES  l THRU 

INPUTG 

80 

c 

7 INTO  A 7 ELEMENT  ARRAY  ICIT  IN  ANY  CRDER  CR  ANY  SUBSET  DURING 

INPUTG 

81 

c 

THE  INITIALISATION  PHASE  OF  INPUT.  I.E.  I CUT (11*5,7,4,2 

INPUTG 

82 

c 

IN  THE  ABOVE  EXAMPLE  A TYPES  CF  REPORTS  WOULD  BE  GENERATEC 

INPUTG 

83 

c 

THE  FOLLOWING  ARE  THE  7 TYPES  CF  REPCRTS  INDICATED  BY  A PARTICULAR 

1NPUI t 

84 

c 

VALUE 

INPUTG 

85 

c 

= 1 TOTAL  NOISE  AT  SIDELINE  DISTANCES  PLUS  NCISE  TIME  HISTORY 

INPUTG 

£6 

c 

*2  ASSUMPTIONS  ON  WHICH  THE  PREDICTION  IS  BASfcO 

INPUTG 

87 

c 

=3  NOISE  AT  SIDELINE  DISTANCES  PER  C£ MPCNENT 

INPUTG 

88 

c 

=4  FLIGHT  PATH/08SER VER  GEOMETRY 

INPUTG 

85 

c 

=5  EXTRAPOLATION  CORRECTIONS 

INPUTG 

9C 

c 

=6  TOTAL  FREE  FIELO  NCISE  AT  <P=1  M) 

INPUTG 

91 

c 

=7  FREE  FIELO  NCISE  AT(R*l  MJ  PEP  COMPONENT 

INPUTG 

52 

c 

THE  OEFAULT  OPTION  PRINTS  A REPORT  GlUING  THE  TITLE  FOLLOW  ED 

INPUTG 

53 

c 

BY  THE  NOISE-TIME  HISTORY  FCP  ThE  TOTAL  NCISE  AT  EACH  S 1DEL  IN 

INPUTG 

54 

c 

PLUS  (=2)  THE  ASSUMPTICNS 

INPUTG 

55 

c 

SET  UP  REPORT  OPTIONS  FCR  PRINTOUT 

INPUTG 

96 

OG  125  1= I 1, NOBS 

INPUTG 

97 

125 

SLDISXI  I)  = SLDlSTin 

INPUTG 

98 

00  130  1=1,7 

INPUT  G 

95 

13C 

IPRT ( I ) *0 

INPUTG 

ICC 

IPK=0 

INPUTG 

101 

OC  16C  1=1,7 

INPUTG 

1C2 

00  15C  J=l, 7 

INPUTG 

102 

IF ( I0UT ( U.NE  .JIGO  TO  15C 

INPUTG 

104 

IPRT ( J )=J 

INPUTG 

105 

I PK  = J 

INPUTG 

106 

GO  TO  160 

INPUTG 

1C7 

15C 

CONTINUE 

INPUTG 

108 

160 

CONT INUE 

INPUTG 

1C5 

IF  ( IPK.EQ.OJ IPRT(l)=8 

INPUTG 

110 

170 

CONTINUE 

INPUTG 

111 

C 

WRITE! IT1, GOATA) 

INPUTG 

112 

RETURN 

INPUTG 

113 

200 

I CD=  1 2 

INPUTG 

114 

RETURN 

INPUTG 

115 
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SLBRULT INfc  INTRCPIXY»X,Y  » IERF ) 


AUTHOR 


PURPOSE 


METHOD 


INPUT 


OUTPUT 


ERROR  CUDE 


K.D.  JCHNSCN 

TO  CALCULATE  TFC  POINT  CF  INTERSECTION  CF  2 LINES 
UEFINEO  BY  THE  SET  CF  COORDINATES  XY 

POINT  SLOPE 

XY  COORDINATE  ARRAY  WHERE 

XYtl)-XY(2»  DEFINE  END  PCINTS  OF  LINE  1 
XYI3J-XY  (4)  DEFINE  END  PCINTS  LF  LINE  2 

X X INTERCEPT 

Y Y INTFRUERT 

I ERR  C=  INTERCEFI  RETURNtD 

1=  NC  INTERCEPT  FCSSIBLE 


DIMENSION  XYU,2) 

INITIALIZE 
I ERR  = C 
X1=XY( 1, I) 

X2=XY( 2, l) 

X3=X Y < 2 » 1 ) 

X4=XY<4,  U 
Yl=XY< 1*2) 

Y2*XY(2 .2) 

Y3  = X Y ( 3 « 2 ) 

Y4=XY(4,2) 

SAM£=.OCCCl 
I GC  = 1 
T-X2-X1 

IF(A8S(T  ) • L T . SAM  b ) GO  TC  1C 
S12=(  Y2-YH/T 
GC  TO  12 
I GO=  2 
T=X3-X4 

IFU3Sm.LT. SAME)  GC  TC  60 

S3A=( Y3-Y4) /T 

IF  ( I GO-  l ) 25,  25,  50. 

COMPUTE  INTERCEPT  IF  SLCPUS  ARF  NC  T ECUAL  CR  INFINITE 

IFIABSI S 12  - SJ4).LT.SAME)  GC  TC  9C 

X*  ( Y4  - Yi  ♦ S12*Xl  - S3^*X2, ) / I S 1 2 - S34) 

Y * S 1 2 * (X  - XI)  ♦ YI 

GC  TO  <59 

CCMPUTE  INTERCEPT  WHERE  X=Xl=X2 
X*XI 

IF(ABS<X3-XA>.LT.SAMEI  GC  TC  SC 
Y*  S34  * (X  - X4)  ♦ Y4 
GC  TO  99 


INTKUP 

INTRCP 

INTRUP 

INTRCP 

INTRCP 

INTRCP 

INTRCP 

INTRCP 

INTRCP 

INTRuP 

INTRCP 

INTRCP 

INTRCP 

INTRuP 

INTRCP 

INTRuP 

INTRCP 

INTRCP 

INTRCP 

INTRCP 

INTRuP 

INTRCP 

INTRCP 

INTRCP 

INTRCP 

INTRCP 

INTRCP 

INTRCP 

INTRUP 

INTRuP 

INTRCP 

INTRuP 

INTkCP 

INTkCP 

INTRCP 

INTRCP 

INTRuP 

INTRuP 

INTKCP 

INTRuP 

INTRCP 

INTRUP 

INTRCP 

INTRCP 

INTPuP 

INTRuP 

iNT«uP 

INTKCP 

INTKUP 

INTRuP 

INTh^P 

INTPuP 

INTRuP 

INTPuP 

INTRuP 

INTRCP 
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, .£* 

i 


c 

COMPUTE  .INTERCEPT  hHERE  X=X3*X4 

INTRCP 

59 

c 

INTRCP 

60 

60 

X=X3 

INTRCP 

61 

I FT  A8 S( X 1-X2) «L T« SAME J GC  IC  9C 

INTRCP 

62 

GC  TO  30 

INTRCP 

63 

C 

INTRCP 

66 

C 1 

NO  INTERCEPT  POSSIBLE  NITHIN  REASONABLE  RANGE  IF  EV2R 

INTRCP 

65 

c 

INTRCP 

66 

90 

I ERR  = 1 

INTRCP 

67 

C 

INTRCP 

6£ 

99 

RETURN 

•INTRCP 

t>5 

END 

INTRCP 

7C 
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SLBRCITINE  JBCS ( ARG  , N,  EPS,  BE  SI 
C 

C ROUTINE  TO  CALC l.-.  ATE  BESSEL  FLNCHCNS  LF  CREEPS  (0  THRU  N-I). 
C 

c *Noie* 

C ASSURES  POSITIVE  AKGLREM  AND  CPOER  N. 

0 IMENS10N  BESil) 

DATA  II,  I ^ , 1.,,  Ei»  EC,  Cl  /l,  /,  0..  1.,  .C2,  •>.£-*/ 

X = A8S1ARG) 

IF  (X  - CCI  1C,  AC,  AC 

ic  Best u = n 

OC  2C  K = 1 , N 
BESIK*  n = FC 
2C  CCNTINUf 
3C  GC  TC  sc 
AC  M = X 

CC  50  K = , I 2 

MPl  --  M * I 1 

CALL  arSJIX,  M,  dESIRPI ) » EPS,  IFF) 

5C  M = MPl 
M = X 

IF  ( y ) EC,  EC,  6C 
6C  OC  70  ! = 1 , M 

K * t*  + li  ••  I 

BESIK)  * FLOAT  ( K I * 1UESIK*!)  ,-Eesnuin  /X  - BESI  K + 21 
7C  CONTINUE 
8C  M = M t 12 

IF  IK  - N)  la,  AC,  sc 
SC  RETURN 
100  I = -II 

NMl  - N ♦ I 

S * El  <■  (AaslUFStR- 1) ) *•  AISIEESmu 
00  l AC  K = H,NM 1 
KP1  = K ♦ II 

jESIKPU  - TLOATIK-l)  * (HE  (KJ  + etS  (K)  ) It-  BESIK- 1 ) 

IF  (A  ISIBESIKPI)  ) - S>  11C,  1 3 C , 130 

uc  if  m 120,  i:c,  lsc 
12C  I = I * II 
GO  TO  1 AC! 

13C  I = -11 

1 AC  CONTINUE 
GC  TQ  SO 

ISC  00  16C  1 - KPl,M*l 

BESI  1*1)  = *0 

ItG  LONTINUF 
GO  TO  00 
END 
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SL8RCLT INE  JEINT 

JEINT 

2 

c 

JEINT 

3 

c 

PURPOSE 

JET/EDGE  INTERACTION  NCISE  PREDICTION 

JEINT 

4 1 

c 

FOR  AN 

CN  j iNE  OVER  WING  CCNF IGURATICN 

JEINT 

5 ; 

c 

THE  PROCEDURE  IS  BASED  CN  THEORETICAL 

JFINT 

t 

c 

ANO  EMPIRICAL  ANAYSIS  SHCWN  IN  THE  BCEING  REFERENCES 

JEINT 

7 I : 

c 

REF. 

FILLER, 

PREDICTION  SCHEME  FOR  ENGINE  JET  EXHAUST 

JEINT 

e | • 

c 

FLOW-WING/FLAP  INTERACT ICN  NCISE  ANS-RES-67U  CEC 

74 

JEINT 

c 

DUNN,  A/C  CONFIGURATICN  NCiSC  RECUCTICN  CONTRACT 

JEINT 

10  I 

c 

DOT-f A74WA-3497, PROGRESS  REPORT  7 FEB  75 

JEINT 

u 

c 

JEINT 

12  0 

c 

INPUT 

JEInT 

13  ; 

c 

AJS13 

JET  SPREAJING  ANGLE  ICEG ) .DEFAULT3?*  7 

JE  INT 

14  | 

c 

DDAI3 

OIMENSICNL.rSS  D1SCHARE  AREA. DEFAULT*. 7854 

JEINT 

15  | 

c 

DDNE13 

DIMENSION'  cS:'  Cl  STANCE  BETWEEN  NC22LE  E!'!T 

JEINT 

It  | 

c 

TC  THE  MSG/f-LAP  SYSTEMS  TRAILING  EDGE 

JE  INT 

i7  ; 

c 

OHNL13 

DIMENSIONLESS  NC22LE  LIP  HEIGHT  ABOVE  WING 

SURFACE 

JEINT 

ID  1 

c 

DJCL13 

DIMENSIONLESS  JET  CORE  LENGTH.  D£FAUL?=5.0 

JEINT 

19  * 

c 

6MJ13 

JET  MACH  NUMBER 

JEINT 

20 

c 

FLAP  1 3 

NOMINAL  FLAP  ANGLE  ANGLE  CF  ATTACK 

JEINT 

21 

c 

HO  1 3 

HYDRAULIC  DIAMETER  OF  JET  NC22LE  IM  CR  FT) 

JEINT 

22 

c 

TSR13 

JET  STATIC  TEMPERATURE  RATIL 

JEINT 

23  1 

c 

I COR  13 

= C INDICATES  NC  CCNF  IGUP  AT  I CN  f.CRRECTILNS 

JEINT 

24  % 

c 

=1  CORRECTIONS  ARE  A FUNCTION  CF  CIRECTIVITY 

JEINT 

25  H 

c 

=2  CCP.RECTICNS  ARE  4 FuNCTICN  CF  DIRECTIVITY 

JEINT 

it  j 

c 

AND  FREQUENCY 

JEINT 

27 

c 

JEINT 

28  ; 

c 

INPUT 

GENERAL 

JEINT 

29 

r 

altr 

OBSERVER  HEIGH!  ABOVE  GRCUNC 

JEINT 

3C  i 

c 

AMACH 

A/C  MACH  NC 

JEIwT 

31 

c 

APC 

AMBIENT  PRESSURE  AT  A/C  ALTITUDE 

JEINT 

32  : 

c 

APY 

A/c  CCCRCINATL  IN  DIRECT ICN  CF  FLIGHT  PATH 

Jt  INT 

32 

c 

PROJECTED  CN  THE  GRLLNC 

JEINT 

34  J 

c 

AP  i 

A/L  HEIGHT  ABOVE  GRCLNC 

JEINT 

a t.  4 

c 

BCF 

GECMETKIC  MEAN  FRECUENCIES  FCR  SPECTRA 

JE  INT 

sl  n 

U 

Cl 

AMBIENT  SPEED  LF  SCLND  AT  A/C  ALTITUDE 

JE  IM 

27  d 

c 

COP  SF 

DCPPLEK  SHIFT  FACTOR 

JT  INT 

3e  r 

c 

ISP  TPM 

FILTER  BANDKILTH  INDEX  i=FULL,IF  0=1/3  0/ B 

SPL 

JEINT 

35  i 

c 

NCF 

NUMBER  LF  CEMFh  FPCC. 

JOINT 

hO 

c 

NENG 

NC  Cf  tNGINES 

JE  INT 

41  J 

c 

NOBS 

NUMBER  CF  CBSERVER  PCSIUCNS 

JEINT 

42  [ 

c 

SLUIST 

SIDE  LINE  DISTANCE 

JEINT 

*•3  f] 

c 

SLOPE 

A/C  CURB  GRADIENT 

JEINT 

j 

c 

JE  INT 

c 

OUTPUT 

SPLT 

FINAL  SCLND  PRESSLRt  LcVtL  ,1/1  OR  1/2  0/B 

SPtLT RA 

JEINT 

4t  H 

c 

AT  EACH  DIRECTIVITY  ANGLE  PCSI T J CN#  FRt t F1ELC  K=  1M 

JEINT 

47  \i 

c 

SSPL 

THE  SL?«  fF  SPIT  AT  LALh  CESfcRVER  PCSITION 

JEINT 

48  fl 

c 

JEINT 

49  iV 

COMMON/ JLT6OG/AJSi3,OD<ili,0CM  IT  ,CHM  1.3  »LJCL  13, 

JEINT 

5C  S 

• FLAP  1 7, 

HD13,EMJ13,T{.R13,IUCRI' 

JEINT 

El  H 

c 

JEINT 

52  1 

c 

VARIABLE  SET  u ALUOLA TfcU’  IN  IHt  PPCGRAM  PROCESSING 

JEINT 

52  9 

c 

JEINT 

54  1 

CGMMON 

/GCGMGN/ 

NCF.NK ,6CF (241 ,TSPL 124, IC,I 7) ,SPLT 1 24 , I 7 ) , 

JE  INT 

55  i 

•8UFI25) 

,REIA( I7i 

,SPL2(175  ,TGAGP(24),CCPSFU7) 

JEINT 

56  N 

c 

JE  INT 

57  | 

CCMHUN/GCGNVC/C(2,1C1 , 31CISXI  l C » 

JEINT 

56  1 

142 


c 

JEINT 

39 

c 

GENERAL  INPUT  PARAMETERS 

JEINT 

60 

c 

JEINT 

61 

CCMMON/ANGOE/PSI (17,1C) 

JEINT 

62 

COMMON  /GPRAM/ ALTP»ALTR, SLOPE  »AMACH,NCBS,$L0IST(1Q)» NT ENG, IUN1T 

JtINT 

63 

* »ISPTRM,  IATM0S,IAIR,CA1RA8(24)  ,MEMP  ,T  EKF  ( 50 ) , T ALT  1 501 

JEINT 

64 

* *NPRES»PRFS(  50)  ,PA0T(5C)  ,NHLMC,PALT  (50)  ,RHUMICI 3C > ,CTEMP 

JtINT 

63 

* « CPK£S#CRHUMD» IFGA  » 1 GOR ,0 TE  MF  »CPPES »ChbM IC »XKN»NC» FLO ( 50 ) * 

JtINT 

66 

* ZNR150)  ,ZNl  (50),LINECT,MAXUiS,IFAC-t,BCG,TCG,FLR,AALT,EPF 

JtINT 

67 

c 

JEINT 

66 

c 

AIRCRAFT-OBSERVER  GEOMETRY  CLT  PITS 

JtINT 

69 

c 

JEINT 

7C 

COMMON  /GEQMC/  AP  Y ( 10,17) , AP 7 ( 1C  ,17) , PO ( 10 ,17) , OPNC( 10,17), 

JtINT 

71 

* ei(  lO,17»,B2(iC,m,TOS(17,lC),lFDIl7.10)#IRR<10,l7l 

JEINT 

72 

*,APP,TpfRHP,APO,TC,RHC,CA,CZ,TSP (17,10) ,CCV 

JEINT 

73 

c 

JtINT 

74 

COMMON /GFREQ/CFKEQ(24) ,UfREC(25) .FFRECI24) 

JEINT 

75 

c 

JtINT 

76 

COMMON/HEAO/H IN  ( 20)  ,HGLT  (20)  ,CHIM20) 

JOINT 

77 

c 

JEINT 

7e 

COMMON /PNLD/PSPL  ( 17,20  ,EPNL ( 5 , 1C)  ,T£PM  (5,10 

JEINT 

79 

c 

JtINT 

8C 

COMMON / SUM SPL/SSPOI 24,10, 17) 

JEINT 

81 

c 

JtINT 

82 

COMMON /SW ITCH/NTYPE,ITYPE,NENG»ICCP, IPRT (7) , ICN( 13) , NLCPT 

JtINT 

63 

c 

JEINT 

84 

COMMON/ TMSPL/SPZ( 24,1 7), 18 (2,3,13) 

JOINT 

85 

c 

JEINT 

86 

DATA  CO,  P$0.Rr)2,DTCR/ 11 16.4, 14. 696,10.76, .01  745329/ 

JEINT 

67 

!CN( 13)  = ICN( 13)  ♦ 1 

JOINT 

88 

c 

JEINT 

89 

c 

JETSPEEO  OF  SOUND 

JEINT 

90 

CJ=  CC*SQRT( TSR13I 

JEINT 

91 

c 

JEINT 

9<£ 

c 

JET  VELOCITY 

JEINT 

93 

VJ=EMJ13*CJ 

JEINT 

94 

c 

JEINT 

95 

c 

AMBIENT  VELOCITY 

JEINT 

96 

VC=AMACH*CZ 

JEINT 

97 

c 

JEHmT 

98 

c 

REL  JET  VELOCITY 

JEINT 

99 

FLAPR=FLAP13*DT0R 

JEINT 

ICC 

ALPHA  = F'_APR-ATAM  SLOPE) 

JEINT 

101 

VJR*  SQR T ( VJ*VJ-2.*V J* VC*CCS (AOPHA)*VC*VC) 

JEINT 

IC2 

c 

JEINT 

102 

c 

CHARACTER  I S T I C FRECUENCY 

JEINT 

104 

D=HD  1 3 

JEINT 

105 

IF(  1UNIT.EQ.C)  0=3.2eC833*HD12 

JEINT 

106 

FC=  VJ  /D  *1.8/1 3.+DDNE13 ) 

JtINT 

1C  7 

c 

JEINT 

ioe 

c 

CHARACTER  1ST lo  REFERENCE  SCCNO  LEVEL 

JEINT 

1C9 

c 

JEINT 

110 

AENG*NENG 

JtINT 

111 

CGCZ*CO/CZ 

JtINT 

112 

PZPSO=APQ*APO /( P SO*P  SC ) 

JtINT 

113 

T SOT  S=  1 • / 1 T SR  1 3*  T SR  1 3 ) 

JEINT 

114 

ARO=  ODA 13*D*U/RC2 

JEINT 

115 

C 

c 

c 

c 


c 

c 

c 


c 

c 

c 


100 

2C0 


-fc»- 


BM=1. 

lFUSPrRM.eQ.0)8h»l./3. 

1F( A J$ 13. £Q.c. OTA JS13=5. 7 
SMTQ* VJR /VJ*TAN I AJS13*OTCR) 

IF( SMT.GT • SMTO)  SLC*SLG-24.*ALCG1CI  SNT/SAtrn 
DETERMINE  DIRECTIVITY  ANGLES  C 

CALL  ANGLES(NOBS,FLAPR) 

ITERATE  FOR  EACH  OBSERVER  COCRDIAATE 
TO  OETERM INE  SPL  DIRECTIVITY  CCRPECTICMCCT 

CFLAP*r JSIFLAPRl 
SFtAF-SINIFLAPR ) 

00  3CC  1=1, NOBS 
X2=X*X 

CALL  ZEROISPLT.ACE) 

LCOP  ON  THE  17  DIRECTIVITY  ANGLES  ' 

OC  2GC  J= 1 , l 7 
Y=APYII,J) 

ZN=APZ(I, JJ-aLTR 

ZA2=ZN*ZN 

yz=y*v 

SF=U0PSFU) 

YPZ=SQRT( Y2*ZN2) 

THET0=  ACOSI ( Y*CFLAP*ZN*SF  LAPT/YF2) 

CCSETA=YPZZSQRTIX2+Y2+2N2) 

rc/rtt}.SiC0SeiA,*SINf,5*THErc,**2/{SF*SF*SFl 
IFIQ.LT. l.OE—  10)Q*1«CE-1C 

CIRCOR  =10.*AL0G1C(Q) 


BAND  FREQUENCY  FCR  EACH 


C 

C 

c 

c 


LOOP  CN  FILTER  r^ui.^rv  cro  CIRECTIVITY  ANGLE 

DO  ICC  NF= 1 ,NCF 
0SFN=BCF INF )*SF/FC 

|pfr^F+n°cc^<0SFN**4*8/a*  + U5,,DSEf'^*5.71*#1.47 

llo r ^^,  = ssc+0^co«  + slc-spz(nf,j;  1 

ccntinCe  PhR£lMSSPUNF’I,J,fSPLT,AF»^» 

CONTINUE 


QLTPUT  OF 
PERCE  I VtC 


SPECTRAI  INDEX,  fcXTRAPCL ATECJ  ,ANL  CAL  COL  AT  l r,fc  rr 
NOISE  LEVELS, AND  EFFECTIVE  PERCEmC  NHSE  LEVELS 

IFI  IPRTI  7J.NE.7TGC  TC  <;2C 

4ptTn^I^F^^JeJ,NK’lc,CHIK,IUUfSL£lsx‘I»»"R£C, 

22C  CONT  INLE 


JEINT 

llfc 

JEINT 

117 

JEINT 

118 

JEINT 

ns 

JEINT 

120 

JEINT 

121 

JEINT 

122 

JEINT 

123 

JEINT 

124 

JEINT 

125 

JEINT 

1 26 

JEINT 

127 

JEINT 

128 

JEINT 

125 

JEINT 

130 

JEINT 

131 

JEINT 

132 

JEINT 

133 

JEINT 

134 

JEINT 

135 

JEINT 

136 

JEINT 

137 

JEINT 

ba 

JEINT 

135 

JEINT 

140 

JEINT 

141 

JfcINT 

142 

JEINT 

143 

JEINT 

144 

JEINT 

145 

JEINT 

146 

JEINT 

147 

JEINT 

146 

JEINT 

149 

JEINT 

150 

JEINT 

151 

JEINT 

152 

JEINT 

153 

JEINT 

154 

JEINT 

155 

JEINT 

156 

JEINT 

157 

JEINT 

156 

JEINT 

159 

JEINT 

160 

JEINT 

161 

JEINT 

162 

JEINT 

163 

JEINT 

164 

JFINT 

165 

JEINT 

166 

JEINT 

167 

JEINT 

168 

JEINT 

165 

JEINT 

170 

JEINT 

171 

JEINT 

172 

144 


00  24C  NF=l,NCF 

JEINT 

173 

00  24C  J«l,i7 

JEINT 

174 

240  SPLTINF* J)*  SPLT (NF * JJ-lSPUhF  , I , J1 

JEINT 

175 

CALL  PNL3LBI SPLT ( 1 .11 ,PSPL (l » 1) , IPC I 1 , 1) .EPNL (1 ♦ 11 t SPL2, 

JEINT 

176 

• TEPNL  ( l»I)»NK»BCG»TCG»FLP«ItNCB$tIPR(I»l)) 

JEINT 

177 

IFl IPRTI  3).NE.3)G0  TO  3C0 

JEINT 

178 

CALL  NQISQUPKTI3)  .1  tNK,12«CFIKtILM  I , S LC I SX ( I ) , PFREC , 

JEINT 

175 

*SPLT<  W1I.NCF.ITYPE) 

JEINT 

180 

300  CONTINUE 

JEINT 

161 

RETURN 

JEUmI 

182 

E.MD 

JEINT 

183 

SUBROUTINE 

JET 

JET 

2 

C AUTHOR 

0.  F.  MELDRUM 

JET 

3 

C 

JET 

9 

C PURPOSE 

TO  PREDICT 

JET  NCI SE  FCR  THE  PHASE  B 

JET 

5 

C 

NASA-AMES 

FOOTPRINT  CONTRACT  NAS2-6969. 

JET 

6 

C 

JET 

7 

C METHOD 

AS  DESCRIBED  IN  REFERENCES  1)  AND  2). 

JET 

8 

C 

JET 

9 

C INPUTS 

VIA  LASLEO 

CCMMCN  JETDAT 

JET 

10 

C 

JET 

u 

C 

N JET 

CODE  FCR  METHGC  CF  JET  NCISt  PREDICT IUN 

JET 

12 

C 

0 NC  JET  NOISE  PREDICTION 

JET 

13 

C 

1 RECUIRES  AP,  PR,  PA,  TT,  ANC  VA 

JET 

19 

C 

2 REQUIRES  kP,  PR,  PA,  TT,  AND  VA 

JET 

15 

C 

3 RECUIRES  AP,  kP,  VP,  AND  VA 

JET 

lb 

C 

CPTICNALY  AS,  VS,  AND  W$  MAY  BE  INPUT 

JET 

17 

C 

FCR  A BYPASS  ENGINE.  (REQUIRED  FOR 

JET 

18 

C 

PROCESSING  SECONDARY  JET  NOISE.) 

JET 

19 

C 

NCT  0,  1,  2,  CR  3 THE  CATA  URL  BE 

JET 

20 

c 

INSPECTED  TO  DETERMINE  THE  PROPER 

JET 

21 

c 

METHOD,  kill  ee  ASSUMED  TO  BE 

JET 

22 

c 

3 IF  PR,  PA,  AND  TT  ARE  ALL  2ER0,  OR 

JET 

23 

c 

2 IF  AP  IS  2ERC,  GR 

JET 

29 

c 

1 IF  kP  IS  ZERO. 

JET 

25 

c 

MCCOE 

CODE  FCR  LSE  CF  THE  STROUHAL  CURVES 

JET 

26 

c 

l FC«  FLIGHT 

JET 

27 

c 

2 FCR  GRCUNC 

JET 

28 

c 

3 FCR  MIXED 

JET 

29 

c 

AP 

PRIMARY  JET  NCZZIE  AREA  FT*FT 

JET 

30 

c 

WP 

PRIMARY  JET  kEIGHT  FLCW  L8S/SEC 

JET 

31 

c 

VP 

PRIMARY  JET  VELOCITY  1REL)  FT/SEC 

JET 

32 

c 

AS 

SECCNDARY  JET  NCZ2LE  AREA  FT*FT 

JET 

33 

c 

ws 

SECCNCAR Y JET  kEIGHT  FLCW  LBS/SEC 

JET 

39 

c 

vs 

SECONDARY  JET  VELOCITY  (RED  FT/SEC 

JET 

35 

c 

PR 

NOZZLE  PRESSURE  RATIO  IPT/PA) 

JET 

36 

c 

PA 

AMBIENT  FRESSURE  LB/FT/FT 

JET 

37 

c 

TT 

JET  TCTAl  TEMPERATURE  DEG  R 

JET 

38 

c 

VA 

VELOCITY  CF  THE  AIRCRAFT  FT/SEC 

JET 

39 

c 

DIAMET 

EFFECTIVE  DIAMETER  (CPTICNAL 

JET 

9C 

c 

INPLT  FOR  ALL  METHODS)  FT 

JET 

91 

c 

ANGJET 

ENGINE  INCLINATION  ANGLE 

JET 

92 

c 

JET 

93 

c 

JET 

99 

c 

VIA  LABLEU  CCMMCN  SkITCH 

JET 

95 

c 

JET 

9t 

c 

NUMENG 

NUMBER  CF  NOISE  SOURCES  CF  THE  SAME 

JET 

97 

c 

NOISE  TYPE. 

JET 

98 

c 

JET 

99 

c 

VIA  LA8LED  COMMON  GCCMCN 

JET 

50 

c 

JET 

51 

c 

NCF 

1/3  OCTAVE  OF  FULL  CCTAVE  SWITCH 

JET 

52 

c 

CR  NUMBER  OF  FREQUENCY  BANOS  (8  OR  29) 

JET 

53 

c 

RETA (29 ) 

DIRECTIVITY  ANGLES 

JET 

59 

c 

JET 

55 

c 

VIA  LABLEO  COMMCN  GPRAM 

JET 

56 

c 

JET 

57 

c 

AMACH 

MACH  NUMBER  CF  THE  AIRCRAFT 

JET 

58 

146 


c 

NOBS  NLMBER  GF  C8SERVER  POSITIONS 

JET 

55 

c 

JET 

tc 

c 

VIA  LABLED  COMMON  SLMSPL 

JET 

61 

c 

JET 

6? 

c 

SSPL  CURRENT  TOTAL  PREDICTED  NCISE  FCR  NCF 

JET 

63 

c 

(8  OR  24)  FREQUENCIES,  AT  NOBS  OBSERVER 

JET 

64 

c 

POSITIONS  FCR  17  DIRECTIVITY  ANGLES. 

JET 

u5 

c 

JET 

66 

c 

VIA  LABLEO  COMMON  ANGLE  ISET  UP  BY  SUBROUTINE  ANGLES 

JET 

67 

c 

JFT 

68 

c 

PSI  17  OIRECTIVHY  ANGLES  FUR  EACH  OF 

JET 

c? 

c 

NOBS  OBSERVER  POSITIONS. 

JET 

It 

c 

PSIC  17  DIRECTIVITY  ANGLE  PROJECT ICNS  FCR 

JET 

71 

c 

EACH  CF  NCeS  OBSERVER  POSITIONS 

JET 

1Z 

c 

BETA  ELEVATION  ANGLE  PRCJECTICN  FOR  EACH 

JET 

72 

c 

CF  NCBS  CBSERVER  POSITIONS. 

JET 

74 

c 

JET 

lb 

c 

EACH  COMPONENT  IS  VRTT  TEN  CN  TAPE  CR  FILE  10 

JET 

7t> 

c 

FOR  EACH  OF  NCF  BANCS  FOR  EACH  CF  NCBS  OBSERVER 

JET 

77 

c 

. 

POSITIONS. 

JET 

76 

c 

JET 

79 

c 

OUTPUTS 

VIA  LABLEO  COMMON  SLMSPL 

JET 

3C 

c 

JET 

81 

c 

SSPL  CURRENT  TOTAL  PRECICTEC  NCISE  FOR 

JfcT 

32 

c 

8 OR  24  FREQUENCIES,  AT  NCBS  OBSERVER 

JET 

<5  2 

c 

POSITIONS  FOR  17  DIRECTIVITY  ANGLES. 

JET 

84 

c 

JET 

65 

c 

VIA  LABLED  COMMON  ANGLE  ISET  UP  BY  SUBROUTINE  ANGLES 

JET 

86 

c 

JET 

87 

c 

PSI  17  DIRECTIVITY  ANGLES  FUR  EACH  GF 

JET 

66 

c 

NGBS  OBSERVER  POSITIONS. 

JET 

85 

c 

PSIC  17  DIRECTIVITY  ANGLE  FRGJECT  IONS  FOR 

JET 

50 

c 

EACH  CF  NCBS  OBSERVER  POSITIONS 

JET 

91 

c 

BETA  ELEVATION  ANGLE  PRCJECTICN  FCR  EACH 

JET 

92 

c 

CF  NCES  OBSERVER  PCSITICNS. 

JET 

53 

c 

JET 

94 

c 

JET 

95 

c 

REFER ENCES 

I)  R.  J.  SAXBY,  JET  NCISE  PREDICTION  PROCEDURE 

JET 

5c 

c 

FOR  THE  NASA-AMES  FOOTPRINT  CONTRACT  NAS2-6969, 

JET 

97 

c 

UN-NUMBEREC  CCCRCINAIILN  SHEET,  DATED 

JET 

96 

c 

17  JANUARY  1973. 

JET 

99 

c 

JET 

100 

c 

FUNCTION  SLBPRGM  COS  ESHLCG  FRPSOM 

JET 

1CI 

c 

JET 

102 

c 

SUBROUTINES 

ANGLES  UNIT  JETNCS  ZERO 

JET 

IC3 

c 

JET 

104 

c 

JET 

105 

c 

JET 

106 

COMMON  /JETDAT/  N JET ,MCLUE ,AF , R F . VF , AS ,QS , VS , 

JET 

IC7 

* 

PR, PA, IT ,VA,DIAMET ,ANGJET ,ICCRl 

JET 

ice 

c 

JET 

1C5 

COMMON /SW  ITCH/NTVPE»nVPE»NENG»ICCF*IFRT  17 ) , ICIS  (13) , NLCPT 

JET 

110 

*,  INSEOW I 3 ) 

, INSHLU 

JfcT 

111 

COMMON/ SHLUJT/SPLP 124, 17) ,SFLS(24,17) 

JET 

112 

c 

JET 

113 

c 

CONSTANTS 

LSEU  IN  INTERNAL  CAICLLATICNS 

JET 

114 

c 

JET 

115 

147 


£ 


3 


COMMON  /GCGNSJ/  IN»I0»ITi,IT2,FQ,Fl»F2,F3,F4»F5»F6»F7,F8iF9,F10, 

JET 

llo 

* 10, II, 12, 13, 14, 15, 16, 17, 18, 19, 110 , P l , P33 ,P5 , POOl , 

JET 

1 17 

* EPStUNDtF,BL,IC0,GPR,RPD,ETA(17i,Ml,FMl,ll7»A,PI 

JET 

118 

c 

JET 

119 

c 

VARIABLE  SET  CALCULATED  IN  THE  PROGRAM  PROCESSING 

J El 

12C 

c 

4 

JET 

121 

COMMON  /GCQMGN/  NCF  ,NK  , BC.F  ( 24)  , T SPU24 , 10  » 17  ) ,SPLT  124,  17) , 

JET 

122 

*BUF(25),RETA117) ,SPL2 (17 ) , TG AGR (24 ) , DCPSF ( 17  ) 

JET 

123 

COMMON/ SUM SPL/SSPL (24»LC»17) 

JET 

124 

CCMMCN/PNLD/PSPL  £ 17.20) ,£PNL( 5 , 1C ) .TEPNL 45 , 10) 

JET 

125 

c 

JET 

I2t 

c 

FREQUENCY  BANDS  USED  8Y  PRCGPAN 

JET 

127 

c 

JET 

126 

CGMMUN  /GFREQ/  CFREQ (24) ,UFREC (25) .PFREC (24) 

JET 

129 

c 

JET 

130 

c 

GENERAL  INPUT  PARAMETERS 

JET 

131 

COMMON /ANGLE /PS  I (17.10 ,PS I C ( 17 , 10 ) .BET A ( 17 , 10) 

JET 

132 

c 

JET 

133 

COMMON  /GPRAM/ALTP  «ALTR, SLOPE  .AMACH.NCBS.SLDIST (10) , ITENG, IUNIT 

JtT 

134 

* * ISPTRM,  IATM0S«IAIR.UAIRAB(24)  tMEMP  .IEMP4  50)  .TALT  (50) 

JET 

135 

* , NPRES.PRES( 50) tPALT (50 .NHIMIC.RALT (50) .RHUMICl 50),CTEMP 

JET 

136 

* , CPRES, CRHUMD, IEGA, IGDR, DTE MP, CPPES, CFUMIC.XKN.NO, FLO( 50), 

JET 

137 

* ZNR15C) .ZNI150) , L INECT , HAXL IN , I P AGE ,BC G »I :G , FLR , A AL T , EPF 

JET 

136 

c 

JET 

135 

c 

AIRCRAFT-OBSERVER  GEOMETRY  CLTPLTS 

JET 

14C 

c 

JET 

141 

COMMON  /GEOMC/  AP V ( 10 , 1 7 ) , APZ ( 1C  , 17) , PO ( 10 , 17 ) .DPNO( 10 , 17 ) , 

JET 

142 

* ei(  10,17 ).B2(  10, 17), TOS (17.10  ,TPO(  17.10,1  RM 10,  17) 

JET 

143 

*, APP, TP, RHP, APO.TG, RHC.CA.CZ, TSP (17,10)  ,CCV 

JET 

144 

c 

JET 

145 

c 

CONVERSION  CONSTANTS 

JET 

146 

c 

JET 

147 

COMMON /GCON VC /C (2,10 .SLOISX(IO) 

JET 

148 

CGMMGN/HEAD/HIN(2C) ,HCUT(2C) ,CHIN(20) 

JET 

149 

COMMON/ TMSPL/SPZ (24 , 17 ) ,16(2,3,13) 

JET 

150 

COMMCN/CRSPL  S/UG6 ( 17 ) ,PSCR ( 1 7 ) ,C PB (4C8 ) , NPSCR 

JET 

151 

c 

JET 

152 

C (MENS ICN  D SPL ( 24 , 17) 

JET 

153 

c 

JET 

154 

P A=APG* 144 . 

JET 

155 

c 

JET 

156 

c 

JET 

157 

I F(  I TYPE .EQ.  1 ) ICN  ( 1 ) = ICM  1 ) ♦ 1 

JET 

158 

I F( I TYPE  «EQ. 2 ) I CN < 2 ) = ICN ( 2 ) ♦ 1 

JET 

159 

VA=AMACH*CZ 

JET 

160 

c 

JET 

161 

c 

JET 

162 

CELTA=ANGJET*RPD 

JET 

163 

CALL  ANGLESfNOBS, DELTA) 

JET 

164 

c 

JET 

165 

c 

JET 

166 

c 

LOOP  FOR  THE  NUMBER  OF  OBSERVER  POSITIONS 

JET 

167 

c 

JET 

168 

4C  CO  10C0  M=  l.NOBS 

JET 

169 

CALL  L INCUR (SPZti.U ,0,X,X,X,X,X,X,X,X,X,PSI (1,M),NCF, 

JET 

17G 

*BCF, X.X, X,X,X,X,X, I COR l,iB(L,l.ITYPb) »0,X) 

JET 

171 

c 

JET 

172 

J 


V- 
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-■  Jj'*  ,'£•■  , *V 

' *,  % »«■ 


CALL  ZEROtSPL7,4C8) 
CALL  ZEROISPLP,4C8) 
CALL  ZER0ISPLS,4C8) 
CALL  Z£R0(DSPL»4C8) 


CALCULATE  THE  JET  NCISE  PREDICT ICN 
CALL  JETNOSIPSI  (UP)  ,SPLTll,  1)1 


45  CONTINUE 

CONVERT  TO  A UNIT  CR  INDEXED  SPECTRA 

CALL  UNIT!  150*  1 1 7 1 SPLI 1 1 » ID 
CALL  UN[T(15C.f I7»SPLP<lti)} 

CALL  UNtni5C.il7»SPLS(I»in 
ENG=NENG 

IF(ENG.LE.O.C)  ENG=I.C 
OC  50  J*l,l7 
ELVANG-B£TA<J»M) 

OANGLE=P  SIO ( J ,M ) 

ENS=ESHLOG< DANGLE, EL VANG, ENG) 

OC  50  K* 1 ,24 
SPLP<K,J)=SPI.P(K,J)-ENS 
SPLS(K,J)=SPLS(K,J)-ENS 
5C  SPLT(K*J)=$PLT(K,J)— ENS 
IF(  NCF.EQ.24  ) GC  TO  25C 

CONVERT  1/3  OCTAVE  TC  FULL  OCTAVE 

CO  2CC  J* 1 * 1 7 
OC  2CC  K= 1 , 8 
TMP  = 0. 

DC  ICC  L * 1 , 3 

JC  = 2 * K ♦ L - 3 

ICC  TMP  - PRRSUM1 TMP , SPLTIJC.J)) 

20C  SPLT ( K«  J ) * TMP 

DC  22  J=l* 17 
DC  22  K*  1 » E 
TMP  = C. 

DO  11  L= 1,3 
JC  = 3 * K + L - 3 

11  TMP  = PRRSLMITMP,  SPLPUC.J)) 

22  SPLP(K.J)  = TMP 

I F { ITVPE.NE.2JG0  TO  55 
DO  44  J=  L » 1 7 
DC  44  K=l,8 
TMP  = C. 

DC  33  L=  l ,2 
JC  * 3 * K ♦ L — 3 

33  TMP  = PRR  SUM  1 TMP  , SPLS(JC,J)I 

44  SPLS { K » J ) * TMP 

55  CONTINUE 
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r-  JET 

250  I FI  INSHLO  «EQ«0  i GO  TO  300  JET 

CALL  JNSA(APY«APZ»ALTa»8CF,CZ,0ELTA,CIANET,VP,VS,  JET 

* SLOISTfM,NCF,SPLP,SPLS,SPLT,lTYPE,CSPUIUMTl  JET 

JET 

JET 

ACC  TO  CURRENT  TOTAL  AND  RRI1E  CN  TAPE  LO  JET 

JET 

JET 

3CC  CU  4C0  J= 1»NCF  JET 

DC  "* 50  K3 1 1 1 7 JET 

SPLPIJ»KI=SPLPIJ»K)— SPZIJiKl  JET 

SPLS(J»K)=SPLS(J»K)— SPZCJtKJ  JET 

SPZI J^KMSPZ  I JtKJ+DSPLI  J»K>  JET 

SPLTI  J,K»  = SPLH  J,KJ-$PZIJfK)  JET 

350  SSPL(J»M»K}=PWRSLM(SSPL(JtP»K)tSFlT(J«K))  JtT 

40C  CONTINUE  JET 

IFI IPRT(7).NE.7)GC  TO  41C  JtT 

CALL  NO  I SCI  IPKT  (7)  »M»NK»lC»ChIN»ILMT»SLCISX(RJ  »PFHEC»SPLT(  1*1)*  JET 

* NCF » I TYPE ) JET 

41C  CONTINUE  JET 

DC  36C  JC=lf NCF  JET 

CO  36C  KC= 1 » 17  JET 

360  SPLT(JC,KC)=5PLT{ JC,KC)-TSPLlJC,P*fcC)  JET 

CALL  PNLSUft(SPLT(l,l),PSPHl,P),TPCll.P)  ,EPNH  1 , P)  , S PL2.  JET 

*TEPNLl  1,M)  ,NK,BCG,TCG,FLR*P,NCeS,IPR(H,m  JET 

IFI  IPRT(3).NE.3)G0  TC  LCCC  JtT 

CALL  NCISOl  IPRTI3)  , NK  , 12  ,Chl  N , l LM  T t SLC  I $X  IN)  ,PFREG,  JET 

* SPLTI  1,1)  , NCF, ITYPE)  JtT 

JET 

JET 

JET 

IOOC  CONTINUE  JET 

RETURN  JET 

END  JET 


230 

231 

232 

233 

234 

235 

236 

237 

238 
23V 
ZAC 
2A1 
2A2 
2A2 
244 
2A5 
2A6 
2 A 7 
246 

249 

250 

251 

252 
2 53 
2 54 

255 

256 

257 

258 
255 
26C 
261 
262 

263 

264 
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SUBROUTINE  JETNGS ( ANGLES, SPL) 

JETNOS 

2 

c 

AUTHOR 

D.  F.  MELDRUM 

JETNOS 

3 

c 

JETNOS 

A 

c 

PURPOSE 

TO  PREDICT  JET  NCISE  FCR  THE  PHASE  B NASA-AMES 

JETNOS 

5 

c 

FOOTPRINT  CCNTRACT  NAS2-6969.  NOISE  IS  PREDICTED 

JETNOS 

6 

c 

AT  150 

FEET  AS  A SINGLE  SOURCE  WITHOUT 

JETNGS 

7 

c 

SHIELDING  EFFECTS. 

JETNOS 

n 

C 

c 

JETNUS 

5 

c 

METHOD 

AS  DESCRIBED  IN  REFERENCE  I). 

JETNOS 

1C 

c 

, 

jftnoS 

11 

c 

INPUTS 

VIA  THE 

CALL 

JETNOS 

u 

c 

JETNUS 

li 

c 

ANGLES 

DIRECTIVITY  ANGLES 

JETNOS 

1A 

c 

JETNOS 

15 

c 

VIA  LA8LED  CCMMCN  JETOAT 

JETNOS 

16 

c 

JFTNOS 

17 

c 

N JET 

CODE  FCR  METHCD  CF  JET  NCISE  PREDICTION 

JETNUS 

18 

c 

C NC  JET  NOISE  PREDICTION 

JETNOS 

19 

c 

1 REQUIRES  AP,  PR,  PA,  TT,  AND  VA 

JETNOS 

2 C 

c 

2 REQUIRES  HP,  PR,  PA,  TT,  ANC  VA 

JETNUS 

21 

c 

3 REGLIPES  AP,  WP,  VP,  AND  VA 

JETNOS 

22 

c 

CPTICNALY  AS,  VS,  AND  WS  RAY  BE  INPUT 

JETNOS 

23 

c 

FCR  A BYPASS  ENGINE.  (REQUIRED  FOR 

JETNuS 

2A 

c 

PRCCESSING  SECONDARY  JET  NOISE. 1 

JETNOS 

25 

c 

INSPECTED  TC  DETERMINE  THE  PROPER 

JETNOS 

26 

c 

METHCD.-  WILL  BE  ASSUMED  TO  BE 

JETNOS 

27 

c 

3 IF  FR,  PA,  ANC  TT  ARE  ALL  ZERO,  OR 

JETNOS 

26 

c 

2 IF  AP  IS  ZERC,  CR 

JETNUS 

29 

c 

l IF  WP  IS  ZERC. 

JETNOS 

3U 

c 

HCODE 

CODE  FCR  LSE  CF  THE  STROUHAL  CURVES 

JETNUS 

31 

c 

I FCR  FLIGHT 

JETNOS 

32 

c 

2 FCR  GPCUND 

JETNOS 

33 

c 

3 FCR  MIXED 

JETNOS 

3A 

c 

AP 

PRIMARY  JET  NOZZLE  AREA  FT*FT 

JETNOS 

35 

c 

HP 

PRIMARY  JET  WEIGHT  FLOW  l.BS/SEC 

JETNOS 

36 

c 

VP 

PRIMARY  JET  VELOCITY  (REL)  FT/SEC 

JETNOS 

37 

c 

AS 

SECCNOARY  JfcT  NCZZLE  AREA  FT*FT 

JETNOS 

3t 

c 

WS 

SECONDARY  JET  WEIGHT  FLOW  LBS/SEC 

JETNOS 

39 

c 

VS 

SECCNCAHY  JET  VELOCITY  (RED  FT/SEC 

JETNOS 

AC 

c 

PR 

NOZZLE  PRESSURE  RATIC  (PT/PA) 

JETNUS 

A 1 

c 

PA 

AMBIENT  PRESSURE  LB/FT/FT 

JETNOS 

A2 

c 

TT 

JET  TCTAL  TEMPERATURE  DEG  R 

JETNOS 

A3 

c 

VA 

VELOCITY  CF  THE  AIRCRAFT  FT/SEC 

JETNUS 

AA 

c 

DIAMET 

EFFECTIVE  ClAMETER  (CPTICNAL 

JETNOS 

A5 

c 

INPUT  FCR  ALL  METHODS)  FT 

JETNOS 

AC 

c 

ANGJET 

ENGINE  INCLINATION  ANGLE 

JETNOS 

A7 

c 

JETNOS 

A8 

c 

OUTPUTS 

SPL 

SPECTRA  PRECICTED  FOR  JET  NOISE 

JETNOS 

A9 

c 

JETNOS 

50 

c 

REFERENCES 

1)  R. 

J.  SAXBY,  JET  NCISE  PRECICTICN  PROCEDURE 

JETNOS 

51 

c 

FOR 

THE  NASA-AMES  FOOTPRINT  CONTRACT  NAS2-6969, 

JETNOS 

52 

c 

UN- 

NUMBERED  CCCRCINATICN  SHEET,  CATEC 

JETNOS 

53 

r. 

17 

JANUARY  1973. 

JETNUS 

5A 

c 

JETNOS 

55 

c 

CUNCT  ION  SUBPRGM 

ATAN 

SORT  CCS 

JETNOS 

56 

c 

JETNUS 

57 

CCHMCN  /JETOAT / NJET, 

MCCOE  ,AP,WP,VF,AS,WS,VS, 

JETNUS 

56 
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* PR»PA#IT  ,VA»CIAFEI,ANGJET  JETNUS 

JETNOS 

ARRAYS  FOR  PRIMARY  AND  SECONDARY  SPL  LSEC  IN  JET  NOISE  SHIELDING  JETNOS 

COMMON/SHLDJT/SPLP (24,17), SPLS124, 17)  JETNOS 

C JETNOS 

COMMON  /GPRAM/  0LM6(2),GRA0  JETNOS 

DIMENSION  TID ( 8 # IS ,24 1 » ANGLE  S (17 ) »SPL(24,17)  JETNOS 

DIMENSION  DO  1 ( 8 , IS) ,DC2( 8, IS ) ,003 (8 , 19 ) , C04 ( e ,19 ) * 005 ( 8,  191.  JETNOS 

* 006(8.19). DO 7(£.19)«D06(8»19) . C09 (8 . 19 ) * 0101 8 . 19).  JETNOS 

* Dll(8. 19). 012(8.19). 012(8. 19I.C 14 (8. 19). 015(8. 19).  JETNOS 

* D16<8.19), 017(8, 19), 018(8, 19i.C19(8. 19), 020(8.  19).  JETNOS 

* 021(  8,19), 022(8, 19), 023(8, 19). 024(8, 19)  JETNCS 

EQU I VALENCE ( TIO ( 1 , 1,  1 ) ,001 ( 1 , 1 ) ) , IT  1 0 ( 1 , 1 , 2 ) ,002 ( 1 , 1 ) ) , JETNOS 

* (TI0(].,1,  3), 003(1, D), (TID(1  ,1,  4), 004(1,1)),  JETNOS 

* (TIDIJ.l,  5),D05(1,1)),(TID(1,1,  6 ’ ,D06 ( 1 , 1 ) ) , JETNOS 

* (TlOtl.l.  7).007(1,1))«(TID(1*1,  8) .008(1,1)),  JETNOS 

* (710(1,1,  9), D09(1,1)),(TID(1, 1,10), 010(1,1)),  JETNCS 

* (TI0(1, 1,11), 011(1,1)), (TIC(1, 1,12), 012(1,1)),  JETNUS 

* (TID(1, 1,13).  013(1, 1)1,  (TIOd,  1,14),  014(1,1)),  JETNOS 

* ( TIO  ( 1 • l,  15),  015(1,1)),  (TIOd,  1,16),  016(1,1)),  JETNLS 

* (TIOd,  1,17),  017(1,1)),  (Tied,  1, 18),  018(1,1)),  JETNOS 

* (TIOd, 1,19), 019(1,1)), (TIOd, 1,20). 020(1,1)),  JETNLS 

* (TIOd,  1,21),  021(1,1)),  (TIOd,  1, 22).  022(1,1)),  JETNOS 

* (TIOd, 1,23), 023(1, 1)),(TID(1, 1,24), 024(1,1))  JETNOS 


DATA 

D01/-13.90, 

-5.10,- 

14. 10,— 16i5C  ,-16.33, 

-16.20,- 

18.67, 

-19.33, 

JETNUS 

* 

-13.40, 

-6.33,- 

13.93,-16.20,-16.33, 

-16.83,- 

18.67, 

-19.33, 

JETNOS 

* 

-13.00, 

-7.47,- 

13. 6C,-15. 93,-16. 20, 

-17.37,- 

18.67, 

-19.37, 

JETNOS 

* 

-12.40, 

-7.83,- 

13.33,-15.60,-16.07, 

-17.50,- 

18.67, 

-19.50, 

JETNUS 

* 

-11.50, 

-8.CC,- 

13.13,-15.20,-15.87, 

-17.37,- 

18.67, 

-19.67, 

JETNOS 

* 

-10.60, 

-7.83,- 

12.60,-14.77,-15.47, 

-16.77,- 

18.43, 

-19.63, 

JETNUS 

* 

-9.40, 

-7.40,- 

12.13,-14.27,-14.73, 

-16.10,- 

17.67, 

-18.93, 

JETNUS 

* 

-8.20, 

-6.47,- 

11.50,-13.50,-14.03, 

-16.10,- 

16.77, 

-17.93, 

JETNUS 

* 

-6.80, 

-5.13,- 

10.50,-12.57,-13.00, 

-14.03,- 

15.37, 

—16.33, 

JETNUS 

* 

-5.10, 

-3.77, 

-8.97,-11.33,-11.63, 

-12.70,- 

13.77, 

-14.47, 

J EtNUS 

* 

-3.30, 

-2.33, 

-7.4C , -9.70,  -9.97, 

-11.00,- 

12.13, 

-12.47, 

JETNOS 

* 

-2.00, 

-.83, 

-5.77,  -7.87,  -7.77, 

-7.90, 

-9.47, 

-9.80, 

JETNUS 

* 

-1.20, 

.83, 

-3.27,  -4.33,  -3.00, 

-3.80, 

-4.33, 

-2.67, 

JETNOS 

* 

.50, 

2.43, 

.20,  —.23,  2.00, 

1.13, 

1.13, 

3.23, 

JETNUS 

* 

2.30, 

4. 1C, 

4.83,  5.07  , 6.00, 

5.67, 

5.67, 

6.00, 

JETNOS 

* 

5.50, 

5.87, 

7.13,  7.33,  7.63, 

8.00, 

8.17, 

6.67  , 

JETNOS 

* 

7.CC, 

5.67, 

6.73,  7.20,  8.00, 

6.50, 

7.00, 

5.00, 

JETNUS 

♦ 

7.50, 

5.5C, 

6.30,  7.10,  8.40, 

5.20, 

5.80, 

3.20, 

JETNUS 

* 

-12.50,- 

-14.50,- 

13.70,-13.00  ,-11.60, 

-14.90,- 

14.30, 

-16.70/ 

JETNOS 

DATA 

C02/-11.40, 

-6.2C,- 

14.00,-16.50,-17.20, 

-17.20,- 

19.00, 

-19.00, 

JETNOS 

* 

-11.00, 

-6.9C,- 

13.80,-16.30,-17.00, 

-17.50,- 

19.00, 

-19.00, 

JETNOS 

* 

-10. 6C, 

— 7.60*— 

13.60,-16.10,-16.90, 

-17.90,- 

19.00, 

-19.00, 

JETNOS 

* 

-10.00, 

-8.  1C,- 

13.40,-15.80,-16.70, 

-18.00,- 

19.00, 

-19.00, 

J E TNL  S 

* 

-9.10, 

-6.3C,- 

13.20,-15-40,-16.40, 

-17.80,- 

19.00, 

-19.00, 

JETNOS 

* 

-8.20, 

-8.2C,- 

12.70,-14.90  ,-15.90, 

-17.20,- 

18.80, 

-18.80, 

JETNOS 

* 

-7.00, 

-7.80,- 

12.20,-14.30,-15.10, 

-16.50,- 

18.10, 

-18.10, 

JETNOS 

* 

-5.8C, 

-6.9C,— 

11. 5C,-13. 50,-14. 30, 

-15.50,- 

17.20, 

-17.20, 

JETNUS 

* 

-4.40, 

-5.6C,- 

10. 5C, -12. 50,-13. 20, 

-14.40,- 

15.80, 

-15.80, 

JETNOS 

* 

-2.70, 

-4.2C, 

-9. OC,— 11.20,-11.80, 

-12.90,- 

14.10, 

-14.10, 

JETNUS 

* 

-2.40, 

-2.70, 

-7.40,  -9. 50,-10. CO, 

-11.00,- 

12.10, 

-12.10, 

JETNOS 

* 

-1.90, 

-U1C, 

-5.6C,  -7.50,  -7.60, 

-7.80, 

-9.10, 

-9.10, 

JETNOS 

* 

-1.30, 

. 6 C , 

-3.0C,  -4. CO,  -3.00, 

-3.60, 

-4.00, 

-2.00, 

JETNUS 

* 

1.00, 

2.3C, 

* 5C , .20,  2.00, 

1.50, 

1.50, 

3.80, 

JETNOS 

59 

60 
61 
62 
6 2 

64 

65 

66 
67 
66 

69 

70 

71 

72 

73 

74 

75 

76 

77 
7fc 

79 

80 
81 
82 

83 

84 

85 

86 
L7 
8fc 
89 
9C 

91 

92 

93 

94 

95 
9c 

97 

98 

99 
100 
101 
102 

103 

104 

105 
1C6 
1C7 
108 
109 
ilG 

111 

112 

113 

114 
1 L 5 
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3.30. 

A. 1C,  5. CC  , 

5. AC*  6.00 

6.00 

u.OO, 

6.00, 

JETNOS 

lie 

5.70, 

5.9C,  7.30, 

7.60,  7.80 

8.00 

8.00, 

6.00, 

JfcTNUS 

117 

6. CO. 

6.  CC , 7.0C  , 

7.20,  7.50 

6.00 

o .00 , 

A. 00, 

JfcTNUS 

lie 

6.20, 

6. CC,  6. 7C  , 

6.80,  7.00 

A. 00 

A. 00, 

2.00, 

JFTNUS 

US 

-13.80, 

“1A.CC,—13.4C«- 

13.20 ,-13.00 

-16.00 

-lb. 00, 

-16.00/ 

JfcTNUS 

120 

DATA 

003/— 13. AO, 

-7. AC,— 13.80, - 

16.60,-17.90 

-18.00 

-19.33, 

-18.80, 

jetnus 

121 

-13. CO, 

-7.47,-13.67,- 

16.40,-17.67 

-18.17 

-19.33, 

-18.67, 

JETNUS 

» • i 

-12.60. 

-7.73,-  13.6C  ,- 

16.27,-17.60 

-18.43 

-19.33, 

-18.63, 

jetnus 

u: 

-12.00, 

-8.37,-13.47,— 

16.00,-17.33 

-18.50 

-19.33, 

-18.50, 

JETNOS 

124 

-11. 1C, 

-8.60,-13.27,- 

15.60  ,-16.93 

-18.23 

-19.33, 

-18.33, 

i^NUS 

125 

-10.^0, 

— 6.2C»-12.8C,- 

15.03,-16.33 

-17.63 

-19.17, 

-17.97, 

JETNOS 

126 

-9.00, 

— 8.2C*-12.27  ,- 

14. 33,-15. 47 

-16.90 

-18.53, 

-17.27, 

JETNOS 

1/.  7 

-7.80, 

-7. 33,-11. 5C, - 

13.50,-14.57 

-15.90 

-17.63, 

-16.47, 

JETNUS 

12c 

-6. AO, 

-6. 07,-10. 5C,~ 

12.43,-13.40 

-14.77 

-16.23, 

-15.07, 

JETNOS 

129 

-A. 70, 

— A. 63 , -9.03,- 

11.07,-11.97 

-13. 10 

- 1a .43, 

-13.73, 

JETNUS 

1 3 C 

-2.90, 

-3.C7,  -7. AC, 

-9.30,-10.03 

-11.00 

-12.07, 

-11.73, 

JETNOS 

131 

— 1 . 60 , 

-1.37,  -5. A3, 

-7.13,  -7. A3 

-7.70 

-8.73, 

-8.40, 

JETNUS 

13  2 

— . 60  » 

.37,  -2.73, 

-3.67,  -3.00 

-3.40 

-3.67, 

-1.33, 

J fcTNUS 

1 u; 

1.10, 

2.17,  . 3C , 

.63,  2. CO 

1.87 

1.87, 

4.37, 

JfcTNUS 

134 

2.  AO , 

A. 1C,  5.17, 

5.73,  6. CO 

6.33 

6.33, 

6 . OC , 

JETNUS 

135 

5.50, 

5.93,  7.47, 

7.8C,  7.97 

8.00 

7.83, 

5.33, 

JETNUS 

136 

6. CO, 

6.33,  7.27, 

7.20,  7.00 

5.50 

5.00, 

3.00, 

jetnhs 

137 

6 . AO, 

6.6G,  7.2C , 

6.50,  6.00 

3.20 

2.40, 

.70, 

JETNOS 

138 

-13.60,- 

-13.4C,— 12.6C,- 

13.50 ,—14 .00 

-16.80 

-17.60, 

-19.30/ 

JETNUS 

139 

CATA 

COA/— 11.20, 

-6. IC.-13.5C,- 

16.80, -IS. AO 

-18.60 

-19.67, 

-18.40, 

J ETNOS 

14  0 

— 10.60 , 

-8.03,-13.32  ,- 

16.5C ,-13.33 

-18.83 

-19.67, 

-18.33, 

J fc  T nG  S 

iHl 

-10.20, 

-7. 87,-13. 6C,  - 

16.43,-18.30 

-18.96 

-19.67, 

-18.27, 

J fc  T Nc.  S 

142 

— 9 .fcC » 

-e.  63, -13.53, - 

16.20 ,-17.97 

-19.00 

-19.67, 

-18.00, 

J l T NO S 

143 

-8.70, 

-8.90,-13.33,- 

15.80,-17.47 

-18.67 

-19.67, 

—17 .67 , 

JET  No  S 

144 

-7.90, 

-8. 93,-12. 9C, - 

15.70  ,-16.77 

-18.07 

-19.53, 

-17.13, 

JETNuS 

14  S 

—6.60, 

- 8.6C,— 12. J3»- 

14.37 ,-15.83 

-17.30 

-18.97, 

-16.43, 

JETNOS 

146 

—5 .AO , 

-7. 77.-11. 5C,- 

13.50,-14.83 

-16.30 

-18.07, 

-15.73, 

J fc  T ;>u  b 

147 

-A. 00, 

-6. 53,-10. 5C,- 

12.37,-13.60 

-15.13 

-16.67, 

-14.73, 

JETNOS 

IA6 

-2.30, 

-5.C7,  — 9.C7 ,- 

1C. 93,-12. 13 

-13.30 

-14.77, 

-13.37, 

JETNOS 

1 A9 

-2.GC, 

-3. A3,  -7. AC, 

-9.10,-10.07 

-11.00 

-12.03, 

-11.37, 

JtTNOS 

150 

-1.30, 

-1.63,  -5.27, 

-6.77,  -7.27 

-7.60 

-8.37, 

-7.70, 

JfcTNUi 

151 

-.10, 

.13,  -2. 47, 

-3.33,  -3.00 

-3.20 

-3.33, 

-.67, 

JETNOS 

152 

l.io. 

2.CJ,  1.1C, 

1.C7,  2.00 

2.23 

2.23, 

4.93, 

JETNOS 

153 

3 . C 0 , 

A.IC,  5.33, 

6.C7,  6. CO 

6.67 

6.67, 

6.00, 

JETNUS 

154 

A. 70, 

5.97,  7.63, 

8.13,  8.13 

8.00 

7.67, 

4.67, 

JETNOS 

155 

5.50, 

6.67,  7.53, 

7.20,  6.50 

5.00 

4.00, 

2.00, 

JfcTNUS 

156 

6.20, 

7.3C,  7. AC, 

6.20,  5.00 

1.50 

.30, 

-.70, 

JETNUS 

157 

-13.80,- 

-12. 7C.-12.6C,- 

13.80 ,-15.10 

-18.20 

-19.70, 

-20.70/ 

JETNUS 

158 

UATa 

C05/-11.10, 

-9.3C.-13.2C,- 

16. 7U ,-19.00 

-19.50 

-20.00, 

-18.00, 

JETNOS 

159 

-10.70, 

-E.6C,-13.4C,- 

16.60,-19.00 

-19.50 

-20.00, 

-18.00, 

JETNOS 

16C. 

-10.30, 

— fi.CC,-13.6C,- 

16. 60,-19. CO 

-19.50 

-20.00, 

-17.90, 

JFTNUS 

161 

-9.70, 

-8.9C.-13.6C,- 

16.40  ,-18.60 

-19.50 

-20.00, 

-17.50, 

JETNOS 

lbc 

-8.80, 

-9. 20,-13.AC,- 

16. Cu ,-18.00 

-19. 10 

-20.00, 

-17.00, 

JETNUS 

163 

-7.90, 

-9.3C,—  13.C(.»- 

15.30 ,-17.20 

-IS. 50 

-19.90, 

-lb. 30, 

JETNOS 

164 

-6.70, 

-9.CC.-12.4C,- 

14.40,-16.20 

-17.70 

-19.40, 

-15.60, 

JETNUS 

165 

-S.50, 

-8. 20,-11. 5C,- 

13.50,-15.10 

-16.70 

-13.50, 

-15.00, 

JETNUS 

166 

-A. 10, 

— 7.CC,  10. 3 C *— 

12.30,-13.80 

-15.50 

-17.10, 

-14.20, 

JETNuS 

lo7 

— 2 • AO , 

-5.5C,  —9.  1 C »- 

1C. 80,-12. 30 

-13.50 

-15.10, 

-13.00, 

JETNOS 

166 

— 1. AO, 

— 3.8C,  —7. AC, 

-8.90 ,-10. 10 

-11.00 

-12.00, 

-11.00, 

JETNUS 

169 

-.20, 

-1.9C,  -5. 1C, 

-6. AO,  -7.10 

-7.50 

-8.00, 

-7.00, 

JETNOS 

17C 

.30* 

.1C,  — 2.2C, 

-3. CO,  -3.00 

-3.00 

-3.00, 

O.UU, 

JETNOS 

171 

. 80  , 

1.90,  i.AC, 

1.50,  2.00 

2.60 

2.60, 

5.5C, 

JETNUS 

172 

153 


^ / 


* 

2.  5C» 

A. 1C,  5.5C,  6. AO,  6.00, 

7.00, 

7.00, 

o.OO, 

JETNOS 

173 

* 

5.10, 

6.CC,  7.8C,  8. AO,  8.30, 

8.00, 

7.50, 

A. 00, 

JETNuS 

1 74 

* 

A. 60, 

7.CC,  7.8C,  7.20,  6.00, 

A. 50, 

3.00, 

1.00, 

J8TNCS 

175 

* 

A.  00, 

8.2C,  7.8C,  6.00,  3.60, 

.90, 

-1.60, 

-1.70, 

JETNUS 

1 It 

* 

- 16.C0,- 

-11. 80 ,-12. 20,-1 A. GO ,-16. 20,- 

19. 10,- 

21.60, 

-21.70/ 

JETNOS 

177 

DATA 

C06/-12. JO, 

-6.5C,— 11.90,-15.20,— 18.00, - 

18. AO ,- 

19.17, 

-17.70, 

JETNOS 

17C 

* 

—11.60, 

-8.33.-12.C7,— 15.20,— 18.00,— 

18.50,- 

19.17, 

-17.50, 

JfcTNGS 

175 

* 

-11. LO, 

— 8.  13,-12.2  7,-15.17,-18.00,- 

18.47,- 

19.17, 

-17. AO, 

JETNuS 

18C 

* 

-10.50, 

-8. 87, -12. 23, -1A. 93 ,—17.63,- 

18.43,- 

19.17, 

-17.03, 

JETNOS 

161 

* 

-9.60, 

-9.C7,-12.03,-1A.53,-17.C7,- 

18.13,- 

19.17, 

-16.63, 

JETNOS 

182 

t 

-8.70, 

-8. 97, -11. 60, -13. 87 ,-16.30,- 

17.67,- 

19.10, 

-16.07, 

JETNUS 

132 

* 

-7.50, 

-8.53,-11.00,-13.03,-15.30,- 

16.97,- 

18.73, 

-15. A7, 

JETNOS 

15A 

* 

-6.30, 

— 7. 63 ,-10. 07,-12. 10,- 1A. 17,- 

16.00,- 

18.00, 

-1A.83, 

JETNOS 

135 

* 

. 90, 

-6. AO,  -8. 97, -1C. 93 ,-12.8/,- 

14.83,- 

16.73, 

-13.80, 

JETNOS 

13c 

* 

-3.20, 

-A.  87,  -7.53,  -9. A3, -11.33, - 

12.90,- 

1A .57, 

-12.33, 

JfcTNUS 

167 

* 

- 1 « AO , 

-3.2C,  -5.8C,  -7.50,  -9.20,- 

10. 40,- 

11.67, 

-10.00, 

JETNOS 

166 

* 

-.50, 

-1.30,  -3.57,  -A. 97,  -6.17, 

-6.93, 

-9.67, 

-5.33, 

JETNOS 

185 

* 

.30, 

.53,  -.83,  -1.50,  -1.73, 

-2.10, 

-2.50, 

1.67, 

JETNOS 

ISC 

* 

1.50, 

2.33,  2.3C,  2.50,  2.67, 

3.23, 

3 .AO  , 

5.67, 

JETNUS 

151 

* 

3.20, 

A. 07,  5.27,  6.C7,  6.00, 

7.00, 

7.33, 

5.33, 

JETNOS 

152 

* 

3.70, 

5.C3,  6.57,  7.20,  7.50, 

7.50, 

7.33, 

2.33, 

JETNOS 

152 

* 

3.50, 

5.CC,  6.23,  6.07,  5.30, 

A . 50 , 

3.67, 

— • 67 , 

JETNOS 

19A 

* 

3.20, 

5.CC,  5.70,  5.10,  3.20, 

1.50, 

.30, 

-3.80, 

JETNUS 

155 

* 

-16.80,- 

-15.0C,-1A.3C,-1A.80,-16.80,- 

18.50,- 

19.70, 

-23.80/ 

JETNOS 

19c 

OATA 

007/  -7.53, 

-7.5C,-10.3C,—13;90,~18.00,- 

17.60,- 

18.33, 

-17.20, 

JETNOS 

197 

* 

-7.53, 

—e.C/,—l0.73,-13.tU,-l7.00,- 

17.50,- 

18.33, 

-17.00, 

JETNUS 

158 

♦ 

-7.53, 

—8.27,-10.93,-13.73,-17.00,- 

17.43,- 

18.33, 

-16.90, 

JETNOS 

199 

* 

-7.53, 

-8.83,-10.87,-13.47,-16.66,- 

17.37,- 

18.33, 

-16.57, 

JETNUS 

2CC 

* 

- 7 . A 7 , 

-£.93,-lC.67,-13.C7*-l6.13»- 

17.17,- 

18.33, 

-16.27, 

JETNOS 

201 

* 

-7.00, 

-8. 63, - 10. 20, - 12. 43, -15. AO, - 

16.83,- 

18.30, 

-15.83, 

JETNUS 

202 

* 

-6.33, 

-8.07,  -9.60,-11.67  »— l A. AO  *- 

16.23  ,— 

18.07, 

-15.33, 

J t T Nu  S 

203 

* 

-5.50, 

—7. 07,  -8. 63 ,- 1C. 70, -13.23, - 

15.30,- 

17.50, 

-IA.67, 

JETNOS 

2CA 

* 

-A. 36, 

—5.80,  -7. A3,  -9.57,-11.93,- 

1A. 17,- 

10.37, 

-13. AO, 

JETNuS 

2C5 

tf 

-2.70, 

-A.23 , -5.97,  -8. 07, -10.37, - 

12.30,- 

1A.03, 

-11.07, 

JETNOS 

2GC 

* 

-1.00, 

— 2.6C,  —A. 20,  —6.10,  —8.30, 

-9.80,- 

11.33, 

-9.00, 

JETNOS 

207 

* 

.63, 

-.1C,  -2.C3,  -3.53,  -5.23, 

-6.37, 

-7.33, 

• 3.o7, 

JETNJS 

206 

* 

1 .93, 

1.17,  .53,  C.CO , — .47, 

-1.20, 

-2.00, 

3.33, 

JETNOS 

205 

* 

2.83, 

2.76,  3.2C,  3.50,  3.33, 

3. 87, 

A. 20, 

5.83, 

JETNUS 

2 1C 

* 

3.17, 

A. 03,  5.G3,  5.73,  6.00, 

7.00, 

7.67, 

*? . 6 7 , 

JETNOS 

211 

* 

3 . 00, 

A.C7,  5.33,  6.00,  6.70, 

7.00, 

7.17, 

.67  , 

JETNOS 

212 

* 

1.  A7, 

3.  CC  , A, 67,  A. 93,  A. 60, 

A. 50, 

A. 33, 

-2.33, 

Jf TNUS 

213 

* 

-.20, 

1.80,  A.CC,  3.80,  2.60, 

2.  10, 

1 . AO  » 

-5.20, 

JtTNOS 

21A 

* 

-20.20,- 

-18.  10, -16. CO,- 16. 20 ,-l 7. AO, - 

17.90,- 

18.60, 

-25.30/ 

JETNOS 

215 

DATA 

008 / -8. AO, 

-7.20,  -9. 20,-12. 70,-16. CO,- 

16.60,- 

17.50, 

— 16.60 , 

JETNUS 

216 

* 

-8. AO, 

-7.6C,  -9. AC, -12. 40,-16. 00,- 

16.50,- 

17.50, 

-16.50, 

Jtl*OS 

217 

* 

-3. AO, 

-8. AC,  -9.6C  ,-12. 30,-16. 00,- 

16.40,- 

17.50, 

-16. AO, 

JETNOS 

218 

* 

-8. AO, 

-6.8C,  -9.50,-12.00,-15.70,- 

16.30,- 

17.50, 

-16.10, 

JETNuS 

219 

* 

-8.30, 

8. 6C,  — 9 • 3 C ,— 1 1 • 6u , — 1 5 .2 0 , - 

16.20,- 

17.50, 

-15.90, 

JETNOS 

22C 

♦ 

-7.60, 

-8.30,  -8.8C.-11.CO,— IA. 50,- 

16.00,- 

17.50, 

-15.60, 

JETNOS 

221 

* 

-o.oO , 

-7.60,  -8. 2C, -1C. 30, -13.50, - 

15.50,- 

17. AO, 

-15.20, 

JETNUS 

222 

* 

-5.50, 

-6.5C,  -7.2C , -9.30,-12.30,- 

14.60*- 

17.00, 

-IA.50, 

JETNOS 

223 

* 

-A. 30, 

-5.2C,  -5. SC,  -e. 20  ,-11. 00,- 

13.50,- 

lo.OO, 

-13.00, 

JETNUS 

22A 

* 

-2.7C, 

— j.  fcC  , —A. AC,  — 6.70,  — 9.A0,— 

11.70,- 

13.50, 

-11.00, 

JETNOS 

225 

* 

- 1 . 10, 

— 2.CC,  — 2. 6 C , —A. 70,  —7. AO, 

-9.20,- 

11.00, 

-8.00, 

JETNUS 

226 

* 

.50, 

-.10,  -. 5C » -2.10,  -A. 30, 

-5.80, 

-7.00, 

-2.00, 

JtTNOS 

227 

* 

1.90, 

1.80,  1.9C,  1.50,  .80, 

-.  30 , 

-1.50, 

5.00, 

JETNuS 

228 

* 

2.0C, 

3 . 2 C , A.IC,  A. 50,  A. 00, 

A. 50, 

5.00, 

6.00, 

JETNOS 

225 

154 
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DATA- 

» 

DATA 


DATA 


3.00, 

A.CC, 

A.8C,  5. AO,  6.00,  7.00, 

8.00, 

A. 00, 

JEINQS 

230 

2.50, 

3.10, 

A. 1C,  A. 80,  5.90,  6.50, 

7.00, 

-1.00, 

JETNOS 

231 

0.00, 

1.00, 

3. 1C,  3.80,  3.90,  A. 50, 

5.00, 

-A. 00, 

JETNOS 

232 

-2.30, 

-1.10, 

1.90,  2.80,  1.80,  2. AO, 

2.90, 

—6.80 , 

JETNUS 

233 

-22.30,-21.10,- 

-18.10,-17.20,-18.20,-17.60,- 

17.10, 

-26.70/ 

JETNOS 

?3A 

CC9/  -6.90, 

-6. 1C, 

-8.80,-11.90,-15.80,-15.50,- 

15.00, 

-15.20, 

JETNOS 

225 

-6.90, 

-6.7C, 

— 9.C3,-1 1.77,-15.67,-15.27,- 

15.00, 

-1A.87 , 

JETNOS 

*»  0 . 
. ■ V 

-6.90, 

-7.3C, 

-9.2C»-11.70,—15.60#-15.07»- 

15.00, 

-1A.70, 

JETNOS 

23  < 

-6.83, 

-7.67, 

-9.C7,-11.A7,—15.30,—1A.87,- 

15.00, 

-1A.A0, 

JETNOS 

23b 

-6.80, 

-7.67, 

— 8.8C,— 11.07,— 1A.76,— 1A.67 , — 

15.00, 

-IA.17, 

JETNOS 

239 

-6.27, 

-7.23, 

-8.27  ,— 1C.A3,— 1A.Q0*— 1A.AO,- 

15.00, 

-13.87, 

J i. « .iJ  S 

2 AC 

-5.A7, 

— fc.57, 

-7.60,  -9.67,-12.97,-13.93,- 

1A.93, 

-13. A7, 

JETNOS 

2 4 1 

-A. 57, 

-5.6C, 

-6.60,  -e. 67,-11. 70,-13. 13,- 

IA.67 , 

-12.83, 

JETNOS 

2A2 

-3.53, 

-A.A7, 

-5.3C,  -7.50,-10.26,-12.13,- 

13.93, 

-11.63, 

JETNOS 

243 

-2.20, 

-3.C6, 

-3.83,  -5.97,  -8.53,-10.53,- 

12.00, 

-9.93, 

JETNuS 

244 

-.77, 

-1.56, 

—2.03,  —3.97,  —6. AO,  —8.30,— 

10.00, 

-7.00, 

JETNOS 

245 

.77, 

.33, 

.07,  -1.30,  -3.A7,  -5.03, 

-6.50, 

-1.17, 

JETNUS 

24c 

2.23, 

2.33, 

2.53,  1.93,  .93.  -.20, 

-1.33, 

5.17, 

JETNOS 

247 

2.80, 

3.A7, 

A. 33 , A. 50,  A. 00,  A. 50, 

5.00, 

6.00, 

JETNOS 

2AS 

2.67, 

3.67, 

A.A7,  5.20,  5.96,  6.83, 

7.67, 

3.t>?» 

JETNOS 

249 

2.00, 

2.57, 

3.30,  A. 37,  5.83,  6.33, 

6.67, 

-1.33, 

JETNOS 

250 

-.33, 

.50, 

1.77,  2.60,  3.27,  3.50, 

3-67, 

-A. 33, 

JETNOS 

251 

-2.70, 

-1.5C, 

.30,  .90,  .80,  .60, 

.AO, 

-7.30, 

JETNGS 

252 

-22.70,-21.50,- 

•1 9. 70, -19. 20,-19.20, -19. AO, - 

19.60, 

-27.30/ 

JETNOS 

253 

010/  -5.50, 

-5.0C, 

-8.6C,- 11*20 ,-15.50,-lA.30»~ 

12.50, 

-13.60, 

JETNOS 

254 

—5. AO , 

-5.60, 

-8.67,-11.13#-15.33,—iA.Q3»- 

12.50, 

-13.23, 

JETNOS 

2a5 

-5. AO, 

— 6.2C, 

-8.80,-11.11,-15.20,-13.73,- 

12.50, 

-13.00, 

JETNOS 

2 3t 

-5.37, 

-6.53, 

— 8.63,— 1C.93,-1A.90,-13.A3,- 

12.50, 

-12.70, 

JETNUS 

2'J  7 

-5.30, 

-6.53, 

-8. 30, -1C. 53 ,- 1A. 33 ,-13. 13,- 

12.50, 

-12. A3, 

JETNoS 

25fc 

-A. 93, 

-6.17, 

-7.73,  -9.87,-13.50,-12.80,- 

12.50, 

-12.13, 

JETNOS 

259 

-A. 33, 

-5.53, 

-7.CC,  -9. C3»- 12. A3, -12.37,— 

12-A7, 

-11.73, 

JETNOS 

260 

-3.63, 

-A.7C, 

-6. CO,  -8.03,-11.10,-11.67,- 

12.33, 

-11.17, 

JfcTNOS 

?fc  l 

-2.77, 

-3.73, 

-A.7C,  -6.80,  -9.53,-10.77,- 

11.87, 

-10.27, 

JETNUS 

2c2 

-1.70, 

-2.53, 

-3.27,  -5.23,  -7.67,  -9.37,- 

10.50, 

-8.87, 

JETNOS 

263 

-.A3, 

-1.13, 

-1.A7,  -3.23,  -5. AO,  -7. AO, 

-9. 00, 

-6.00, 

JETNUS 

264 

1.03, 

.77, 

.63,  -.50,  -2.63,  -A. 27, 

-6.00, 

.33, 

JETNOS 

265 

2.57, 

2.87, 

3.17,  2.37,  1.07,  -.10, 

-1.17, 

5.33, 

JETNuS 

2ct 

2.80, 

3.73, 

A. 57,  A. 50,  A. 00,  A. 50. 

5.00, 

6.00 , 

JETNOS 

267 

2.33, 

3.33, 

A. 13,  5. CO,  5.93,  6.67, 

7.33, 

3.33, 

JETNOS 

268 

1.50, 

2.03, 

?.5C,  3.93,  5.76,  6.17, 

6.33, 

-1.67, 

JfcTNOS 

269 

— .67, 

C.OO, 

.A3,  1.A0,  2.63,  2.50, 

2.33, 

-A. 67, 

JETNOS 

270 

-2.90, 

-1.8C, 

—1.70,  —1.10,  —.70,  —1.30, 

-1.60, 

-7.90, 

JETNGS 

271 

-22.90,-21.80,- 

-2 1.7C, -2 1.10  ,-20. 70, -21. 30,- 

21.60, 

-27.90/ 

JETNOS 

272 

011/  -A. 00, 

-3.90, 

-8.C0,— IC.50  ,-15.20,-13.20,- 

10.00, 

-12.00, 

JfcTNOS 

273 

-3.90, 

-A.5C, 

-8.3C,—IC.50*-15.00,-12.80»- 

10.00, 

-11.60, 

JETNGS 

27A 

-3.90, 

-5.10, 

-8.AO,—IC.50,-1A.80,-12»AO,- 

10.00, 

-11.30, 

JETNOS 

275 

-3.80, 

-5. AO, 

-8.20,-IO.AO,-1A.50,-12.00,- 

10.00, 

-11.00, 

JETNUS 

276 

—3.80, 

-5. AO, 

-7. 8C,- 1C. 00  ,-13. 90, -11.60, - 

lo.oo. 

-10.70, 

JETNOS 

277 

— 3 . oO  , 

-5.10, 

-7.2C , -S. 30,-13. 00, -11.20, - 

13.00, 

-10. AO, 

JETNOS 

278 

-3.20, 

-A.5C, 

-6. AC,  -e. AO,-U. 90, -10.80, - 

10.00, 

-10.00, 

JETNUS 

279 

-2.70, 

-3.8C, 

-5. AC,  -7.A0,— 1.0.50,— 10.20, - 

10.00, 

-9.50, 

JETNUS 

280 

-2.00, 

-3.CC, 

-A. 10,  -6.10,  -8.80,  -9. AO, 

-9.80, 

-8.90, 

J t T NO  S 

201 

-1.20, 

-2.0C, 

-2.7C,  -A. 50,  -6.80,  -8.20, 

-9.00, 

-7.80, 

JETNUS 

282 

-.10, 

-.70, 

-.90,  -2.50,  -A. AO,  -6.50, 

-8.00, 

-5.00, 

JETNuS 

283 

1.30, 

1.20, 

1.2C,  .30,  —1.80,  —3.50, 

-5.50, 

.50, 

JETNUS 

28A 

2.90, 

3. AO, 

3.8G,  2.80,  1.20,  0.00, 

-1.00, 

5.50, 

JETNOS 

285 

2.80, 

A*  CC  v 

A.8C,  A. 50,  A. 00,  A. 50, 

7.00, 

3.00, 

JETNOS 

286 

* 

2.00.  3. CO.  3.8C.  4.80.  5.90. 

6.50, 

7.00,  3.00, 

JETNOS 

287 

* 

1.00,  1.30,  1.70,  3.50,  5.70, 

6.00, 

6.00,  — 2.00v 

JETNOS 

288 

* 

“1.00,  -.50,  —.90,  .20,  2.00, 

1.50, 

1.00,  -5.00, 

JETNOS 

289 

* 

-3.10,  -2.30,  -3.30,  -3.10,  -1.70, 

-3.30, 

—3.80,  —8.00, 

JETNOS 

290 

* 

-23.10,-22.30,-23.40,-23.10,-21.80, 

-23.30, 

-23.80,-28.00/ 

JETNOS 

291 

DATA 

012/  -3.00,  -4. 1C,  -8.10,-10.80,— 14.80, 

-12.90, 

-10.60,-12.40, 

JETNOS 

292 

*' 

-2.93,  -4.40,  -8.13,-10.53,-14.33,-12.20, 

-10.33,-11.80, 

JETNUS 

293 

* 

-2.93,  -4.73,  -8.13,-10.33,-13.80, 

-11.63, 

-10. 03, -11. 30, 

JETNGS 

254 

♦ 

-2.87,  -4.87,  -7.87,-10.00,-13.20, 

-11.07, 

-9.73,-10.80, 

JETNOS 

296 

-2.87,  -4.77,  -7.43,  -9.40,-12.37, 

-10.47, 

-9.40,-10.30, 

JETNOS 

256 

* 

-2.73,  -4.47,  -6.8C,  -8.60,-11.27, 

-9.90, 

-9.10,  -9.80, 

JETNOS 

297 

* 

-2.43,  -3.94,  -6. CO,  -7.60,-10.10, 

-9.30, 

-8.77,  -9.23, 

JETNUS 

298 

* 

—2.10,  — 3.3C,  —5.00,  —6.47,  —8.63, 

-8.53, 

-6.47 , —8.63, 

JETNUS 

299 

♦ 

-1.60,  -2.60,  -3.67,  -4.73,  -6.97, 

-7.57, 

-8.00,  -7.90, 

JETNOS 

3GC 

* 

-1.07,  -1.7C,  -2. 20,  -3.43,  -5.03, 

-6.30, 

-7.07,  -6.73, 

JETNOS 

301 

* 

—.20,  —.47,  —.40,  —1.47,  —2.80, 

-4.63* 

-5.93,  -3.93, 

JETNOS 

3C2 

* 

1.20,  1.43,  1-67,  .57,  -.50, 

-2.00, 

—3.63,  1.67, 

JETNOS 

303 

* 

2.60,  3.27,  3*80,  3.07,  1.97, 

1.03, 

.33,  5.67, 

JETNOS 

304 

* 

1.20,  2.70,  4.17,  3.07,  4.00, 

4.50, 

5.00,  5.43, 

JETNOS 

3C5 

* 

0.00,  1.5C,  2.20,  4.07,  5.23, 

5.83, 

6.33,  2.23, 

JETNOS 

3Cfc 

* 

—.47,  .33,  — »4C*  2.50,  4.83, 

5.00, 

5.00.  -2.33, 

JETNOS 

3C7 

* 

-1.33,  -1.00,  -.57,  C.OO,  2.00, 

1.67, 

-.67,  -5.33, 

JETNUS 

308 

* 

-2.20,  -2.4C,  -1.70,  -2.60 j -.90, 

-1-50, 

—6.60,  — 8.10, 

JETNOS 

3C9 

* 

-22.20,-22.30,-21.70,-22.60,-20.90, 

-21.50, 

-26.60,-28.10/ 

JETNUS 

310 

DATA 

013/  -2.00,  -4.40,  -8. 20, -11100,-14. 60, 

-12.40, 

-11.50,-12.70, 

JETNOS 

31  L 

* 

-1.97,  -4.30,  -7.97,-10.57,-13.67, 

-11.60, 

-10.67,-12.00, 

JETNOS 

312 

* 

-1.97,  -4.37,  -7.87,-10.16,-12.80, 

-10.86, 

-10.07.-11.30, 

JETNUS 

31a 

* 

-1.93,  -4.33,  -7.53,  -5.60 ,-l i .90, 

-10.13, 

-9.47,-10.60, 

JETNOS 

314 

* 

-1.93,  -4.13,  -7.C7,  -8.80,-10.83, 

-9.33, 

-8.80,  -9.90, 

JETNOS 

315 

* 

-1.87,  -3.83,  -6.4C,  -7.90,  -9.53, 

-8.60, 

-8.20,  -9.20, 

JETNOS 

316 

* 

— 1.66,  —3.37,  — 5.6C,  — v- . 80  , —8.30, 

-7.80, 

-7.53,  -8.47, 

JETNOS 

317 

* 

-1.50,  -2. 80,  -4.60,  -5.53,  -6.77, 

—6.86 , 

-6.93,  -7.77, 

JETNOS 

318 

* 

-1.20,  -2.2C,  -3.23,  -3.37,  -5.13, 

-5.73, 

-6.20,  -6.90, 

JETNUS 

319 

* 

-.93,  -1.4C,  -1.7C,  -2.37,  -3.27, 

-4.40, 

-5.13,  -5.77, 

JETNOS 

320 

* 

-.30,  -.23,  .1C,  -.43,  -1.20, 

-2.76, 

-3.86,  -2.87, 

JETNOS 

321 

* 

l . 10 , 1.67,  2.13,  1.63,  .80, 

-.50, 

-1.77,  2.83, 

JETNOS 

322 

* 

2.30,  3.13,  3.8C,  3.33,  2.73, 

2.07, 

1.67,  5.83, 

JETNOS 

323 

* 

-.40,  1.40,  3.53,  4.17,  4.00, 

4.50, 

5.00,  4.87, 

JETNOS 

324 

* 

-2.00,  O.CO,  .67,  3.33,  4.57, 

5.17, 

5.67 , 1.47, 

JETNOS 

325 

* 

-1.93,  -.83,  -.17,  1.50,  3.97, 

4.00, 

4.00,  -2.67, 

JETNOS 

326 

* 

-1.67,  -1.5C,  -1.03,  -.20,  2.00, 

1.83, 

-2.33,  -5.67, 

JE-TNCS 

327 

* 

—2,00,  —2.20,  — 1.80,  —1.80,  0.00, 

-.40, 

—8*80,  —8.50, 

JETNUS 

326 

* 

-22. 00,-22.20,-21. 80,-2 1.80 ,-20.00, 

-20.40, 

-28.80,-28.50/ 

JETNOS 

329 

DATA 

014/  -1.00,  -4.40,  -8.00,-11.40,-14,20, 

-12.00, 

-12.00,-13.30, 

JETNOS 

330 

* 

-1.00,  -4.20,  -7.80,-10.60,-13.00, 

-11.00, 

-11.00,-12.20, 

JETNOS 

331 

* 

-1.00,  -4.0C,  -7. 60, -1C. CO, -11.80, 

-10.10, 

-10.10,-11.30, 

JETNOS 

332 

* 

-1.00,  -3.80,  -7.20,  -9.20,-10.60, 

-9.20, 

-9.20,-10.40, 

JETNOS 

333 

* 

-l.OC,  -3.5C,  -6.70,  -8.20,  -9.30, 

-8.20, 

-8.20,  -9.50, 

JETNOS 

334 

* 

-1.00,  -3.20,  -6.CC,  -7.20,  -7.80, 

-7.30, 

—7.30,  —8.60, 

JETNUS 

335 

* 

-.90,  -2.80,  -5.2C,  -6. CO,  -6.50, 

-6.30, 

—6.30,  —7.70, 

JETNOS 

336 

* 

-.90,  -2.30,  -4.2C,  -4.60,  -4.90, 

-5.20, 

-5.40,  -6.90, 

JETNOS 

337 

* 

-.60,  -1.80,  -2.8C,  -2.00,  -3.30, 

-3.90, 

-4.40,  -5.90, 

JETNUS 

338 

* 

.80,  — 1..0,  — 1.20,  — 1.30,  — 1*50, 

-2.50, 

-3.20,  -4.60, 

JETNOS 

335 

* 

—.40,  C. CO , .60,  .60,  .40, 

-.90, 

-1.80,  -1.80, 

JETNOS 

340 

* 

1.00,  1. 9C*  2.60,  2.30,  2.10, 

1.00, 

.10,  4.00, 

JF.TNuS 

341 

* 

2.00,  3. GO,  3.8C,  3.60,  3.50, 

3.10, 

3.00,  6.00, 

JETNOS 

342 

* 

-2.00,  .10,  2.5C,  4.00,  4.00, 

4.50, 

5.00,  4.30, 

JETNUS 

343 

156 


* 

-A. 00* 

-1.50, 

.90, 

2.60,  3.90,  4.50, 

5.00, 

.70, 

JETNUS 

344 

* 

-4.00, 

-2.00, 

-1.1C, 

.50,  3.10,  3.00, 

3.00, 

-3.00, 

JETNCJS 

34  5 

4c 

-4.00, 

-2.00, 

-1.1C, 

—.40,  2.00,  2.00, 

-4.00, 

-6.00, 

JETNOS 

346 

4c 

-4.00, 

-2.CC, 

-1.2C, 

-1.40,  .60,  .90,- 

•11.20, 

-8.90, 

JETNOS 

347 

* 

-?4«00, - 

*22.00,-21.20,- 

■21.50,-19.20,-19.10,- 

-31.20,-28.90/ 

JETNOS 

346 

DATA 

015/  -3.00, 

-5.30, 

-7.  80,- 

•1C. 30, -12.80, -11.40, - 

-11.90,-12.50, 

JETNOS 

349 

* 

-3.00, 

-5.13, 

-7.53, 

-5.67 ,-11.67, -10. 50,- 

-11. 03, -11. 53, 

JETNOS 

.50 

* 

-2.97, 

-4.97, 

-7.37, 

-9.20,-10.70,  -9.7J ,- 

-10.30,-10.67, 

JETNOS 

351 

4c 

-2.73, 

— 4. 6 C, 

—6.87, 

—8.40,  —9.63,  —8.90, 

-9.47, 

-9.80, 

JETNUS 

352 

4> 

-2.50, 

-4.  17, 

-6. 30, 

"7.47 , -8.50,  -3.00, 

-8.57, 

-8.87, 

1 c T NO  S 

35  3 

4c 

-2.27, 

-3.73, 

-5.6C, 

-6.53,  -7.23,  -7.17, 

-7.63, 

-7.93, 

JtTNUc 

3 54 

4* 

-1.97, 

—3.23, 

-4.83, 

-5.47,  -6.10,  -6.20, 

-6.57, 

-6.97, 

J E 1 NO  S 

> U ; 

4> 

-1.73, 

-2.63, 

-3.87, 

-4.20,  -4.70,  -5.17, 

-5.57, 

—6 • 00 , 

JETNOS 

3 .)■ 

4c 

-1.47, 

-2. 03, 

-2.6C, 

-2.17,  -3.30,  -3.90, 

-4.47, 

-4.63, 

JETNOS 

3 57 

4c 

-1.40, 

-1.27, 

-1.13, 

-1.20,  -1.67,  -2.47, 

-3.13, 

-3.40, 

JETNOS 

3 5b 

4c 

-1.10, 

-.17, 

.83, 

.73,  .10,  —.80, 

-1.53, 

-.87, 

JETNOS 

359 

* 

.97, 

1.73, 

2.63, 

2.40,  2.07,  1.23, 

.47, 

4.00, 

JETNOS 

36C 

4c 

2.33, 

3.0C, 

3.53, 

3.47,  3.50,  3.23, 

3.17, 

5.67, 

JETNOS 

3c  1 

4c 

-1.33, 

-.10, 

2. 13, 

3.43,  4.00,  4.47, 

5.00, 

4.20, 

J L 1 NO  S 

36* 

¥ 

-3.17, 

-1.50, 

.95, 

2.10,  3.60,  4.33, 

5.00, 

.17, 

JETNOS 

3 o 2 

4c 

-3.33, 

— 2 . C 0 , 

-1.40, 

.07 , 2.40,  2.60, 

2.77, 

-3*46 , 

JETNOS 

364 

4> 

-3.30, 

-1.67, 

-1.57, 

-1.37,  0.00,  -.17, 

-4.17, 

— 6 . 33, 

JETNO.. 

36  5 

* 

-3.30, 

~2.CC, 

-1.80, 

-3.10,  -2.40,  -2.70, 

-10.80, 

-9. 10, 

JETNUS 

366 

4c 

-23. 30,- 

-?2.C0,-21.8C»- 

•23.10,-22.40,-22.80, 

-30.90,-29.10/ 

JETNUS 

36  7 

DATA 

016/  -5.00, 

-6.4C, 

-7.60, 

-9.10,-11.10,-10.60,- 

-11.70,-12.00, 

JETNCS 

368 

4c 

-5.00, 

-6.07, 

-7.27, 

-6.73,-10.33,-10.00, 

-11.07,-10.87, 

JETNUS 

365 

4c 

-4.93, 

-5.93, 

-7.13, 

-8.40,  -9.60,  -9.37, 

-10.50,-10.03, 

JETNOS 

370 

* 

-4.47, 

- 5.40, 

-6.53, 

—7.60,  —8.67,  —8.60, 

-9.73, 

-9.20, 

JETNOS 

o7 1 

4c 

-4.00, 

-4.83, 

-5.90. 

-6.73,  -7.70,  -7.80, 

-8.93, 

-8.23, 

J £TNU$ 

372 

4> 

-3.53, 

-4.27, 

-5. 20, 

-5.87,  —6.66,  —7.04, 

-7.97, 

-7.27, 

JETNOS 

373 

4c 

-3.03, 

-•*.67, 

-4.47, 

-4.93 , -5.70,  -6.10, 

-o.83. 

-6.23, 

JETNOS 

374 

4> 

-2.57, 

- 2 . 9 1 , 

-3.53, 

-3.80,  -4.50,  -5.13, 

-5.73, 

-5.10, 

JETNOS 

■J  75 

4c 

-2.13, 

-2.2  / * 

— 1 • Co , 

— 2.33,  —3.30,  — 3 • 9 J , 

-4.53, 

-3.77, 

JETNUS 

376 

4c 

-2.00, 

-1.43, 

-1.C6, 

-1.10,  -1.83,  -2.43, 

-3.07, 

-2.20, 

JfcTNoS 

377 

« 

- 1.80, 

. 33, 

1.C7, 

•87,  — .20,  — .70, 

-1.27, 

.06, 

JETNUS 

378 

4c 

.93, 

1.57, 

2.67, 

2.50,  2.03 , 1 .47 , 

.83, 

4.00, 

JETNOS 

375 

4c 

2.67, 

3. CO, 

3.27, 

3.33,  3.50,  3.37, 

3.33, 

5.33, 

JETNOS 

380 

4 

— .67  » 

30, 

1.36, 

2.87,  4.00,  4.43, 

5.00, 

4.10, 

JETNOS 

381 

4c 

-2.33, 

-1.5C, 

-1.03, 

1.60,  3.30,  4.17, 

5.00, 

-.37, 

JETNUS 

382 

* 

-2.67, 

-2.CC, 

-1.7C, 

-.37,  1.70,  2.20, 

2.53, 

-3.93, 

JETNUS 

383 

4 

-2.67, 

-1.33, 

-2.C3, 

-2.33,  -2.00,  -2.33, 

-4.33, 

—6. 67, 

JETNUS 

384 

4 

-2.70, 

-2.00, 

-2.4C, 

-4.10,  -5.60,  -6.50, 

-11.30, 

-9.30, 

JETNOS 

385 

4 

-22.70, 

-22.00,-22.30,- 

-24.10,-25.70,-26.40, 

-31.30,-29.30/ 

JETNOS 

386 

DATA 

017/  -7.10, 

-7. 1C, 

-7.1C, 

-8.10,  -9.60,-10.20, 

-11.70,-11.20, 

JETNUS 

387 

4 

-7.  CO, 

-7.00, 

-7.CC, 

-7 .fiu  , -9.00,  -9.50, 

~11. 10,-10.20, 

JETNUS 

388 

4 

-o. 90, 

-6.9C, 

-6.90, 

-7.60,  -8.50,  -9.00, 

-10.70, 

-9.40, 

JETNOS 

385 

4 

-6.20, 

— 6. 2 C , 

—6. 2 C , 

— 6.60,  —7.70,  —3.30, 

-lU.OO, 

—8.60, 

JETNUS 

390 

4 

-5.50, 

-5.50, 

-5.50, 

-6. 00,  -6.90,  -7.60, 

-9.30, 

-7.6C, 

JETNCS 

391 

4 

-5.50, 

-5.5C, 

-4.8C, 

-5.20,  -6.10,  -6.90, 

-8.30, 

—6.60, 

JETNUS 

392 

4 

-4.10, 

-4.10, 

-4.10, 

-4.40,  -5.30,  -6.00, 

-7.10, 

-5.50, 

JETNOS 

393 

4 

-3.40, 

-3.30, 

-3. 20, 

-3.40,  -5.30,  -5. 10, 

-5.90, 

-4.20, 

JETNUS 

354 

4 

-2.80, 

-2.50, 

-2.2 C, 

-2.50,  -3.30,  -3.90, 

-4. 60, 

-2.70, 

Jf  TNUS 

355 

4 

-2.60, 

-1.6C, 

-1.CC, 

*1.00,  —2.00,  —2.40, 

-3.00, 

-1.00, 

JETNOS 

396 

4 

-2.50, 

-•5C, 

1 . 3C , 

1.C0,  -.50,  -.70, 

- 1 .00 , 

1.00, 

JETNOS 

397 

4 

.90, 

1.4C, 

2.7C, 

2.60,  2.00,  1.70, 

1.20, 

4.00, 

JETNOS 

398 

4 

3.00, 

3. CO, 

3.CC, 

3.20,  3.50,  3.90, 

3.50, 

5.00, 

JETNUS 

39r 

4 

0.00, 

-.50, 

.60, 

2.30,  4.00,  4.40, 

5.n ;, 

4.00, 

JETNOS 

400 

157 


* 

-1.50,  -1.5C,  -1.1G, 

l.LO,  3.00, 

A. 00, 

5.00, 

-.90, 

jetnos 

'♦Cl 

* 

-2.00,  -2.00,  -2. GO, 

-.80,  1.00, 

1.60, 

2.30, 

-A. AO, 

JETNOS 

Ml  2 

* 

-2.00,  -1.00,  -2.5C, 

-3.30,  -A. 00, 

-A. 50, 

-A. 50, 

-7.00, 

JETNUS 

<*0  J 

* 

-2.00,  -2.00,  -3.0C, 

-5.60,  -9.10, 

-10.70, 

-11.50, 

— 9.t>0* 

JE  TNUS 

AOS 

* 

-22. 00,-22.00,-23. CO,- 

-25.60 ,-29.20, 

-30.70, 

-31.30, 

-29.50/ 

JETNOS 

400 

DATA 

C 18/  -t>.30.  -6.20,  -6.80, 

-7.90,  -9.70, 

-9.50, 

-10.00, 

-10.70, 

JETNUS 

A 06 

* 

-5.93,  -6.33,  -6. 60, 

-7.60,  -9.00, 

-8.93, 

-9.73, 

—9.80, 

JtTMoS 

AC? 

*> 

—5.67,  —6.37,  — 6.5C, 

-7.33,  -8. A3, 

-8.50, 

-9. 47, 

-9.10, 

jetnos 

ACH' 

* 

-5.00,  -5.37,  -5. S3, 

—6.60,  —7.67, 

—7 . 86  < 

-9.00, 

-8. 34, 

JETNOS 

ACS 

-A. 37,  -4.7C,  -5.27, 

-5.67,  -6.87, 

-7.23, 

-6. AO, 

-7. AO, 

JElNuS 

A 10 

* 

-3.73,  -A. 03,  -A. 57, 

-5.07,  -6.03, 

-6.60, 

-7.60, 

-6. AO, 

jetncs 

All 

* 

-3.17,  -3. AC,  -3.83, 

-5.67,  -5.20, 

-5.67, 

— o . 60 , 

-3.33, 

JETNOS 

A 1 

♦ 

-2.67,  -2.73,  -2.93, 

-3.  17  , -A. 17  , 

-A. 73, 

-5.60, 

-A. 13, 

JETNOS 

A)  v 

* 

-2.20,  -2.CC,  -1.80, 

-2.13,  -3.07, 

-3.60, 

-A. AO, 

-2.80, 

JtTNuS 

A ! A 

* 

-1.97,  -1.23,  -.AC, 

— » 60  , —1 . 67  , 

-1.93, 

-2.67, 

-1.00, 

JETNuS 

15 

* 

-1.63,  -.07,  1.7C, 

1. AO  , — .G7 , 

-.07, 

— .67  , 

1.00, 

jetnos 

AIE 

* 

1.60,  2.03,  3.G7 , 

3. CO,  2.33, 

1.97, 

l .6  3 , 

3.50, 

JETNOS 

Al? 

* 

A. 00,  3.33,  2.93, 

3.C7,  3.33, 

3.30, 

3.67, 

4.67, 

JETNUS 

A If 

* 

1.00,  .30,  . 6C , 

1.90,  3.33, 

A.  10, 

5.00, 

3.50, 

JETNOS 

A 19 

* 

-.83  , -1.13,  -1.33, 

.33,  2.03, 

3.33, 

4.6?, 

-.93, 

JfcTNGS 

A 2 C 

* 

-1.27,  -1.67,  -2. A3, 

— 1 .67  , —.20, 

L .03 , 

2.03, 

—A. 60 , 

JETNCS 

A21 

* 

-1.27,  -.83,  -2.73, 

-3.eO,  -A. 67, 

-5.67, 

-6.33, 

-7.33, 

JETNOS 

A 22 

* 

-1.27,  -1.7C,  -3.0C, 

-5.70,  -9. AO, 

-11.80, 

- 14.50 » 

-10.00, 

JETNOS 

A 2 3 

* 

-21. 27, -21. 70,-23.  OC,- 

-25.70 ,-29.30, 

-31.90, 

-34.30, 

-30.00/ 

JETNOS 

'•  2 A 

DATA 

C 19/  -5.50,  -5.7C,  -6. 20, 

-7.80,  -9.50, 

-8.80, 

— 8 • 60  , 

-10.  10, 

J T.TUU  S 

A 2 5 

* 

-A. 87,  -5.67,  -6. 20, 

-7.AU,  -9.00, 

-8.37, 

-8.37, 

-9. AO, 

JETNUS 

A?fc 

* 

-A. A3,  -5.83,  -6. 1C, 

-7.07,  -8.37, 

-8.00, 

-8.23, 

-8.80, 

jetni  s 

42  1 

* 

-3.80,  -A. 53,  -5.67, 

-6.40,  -7.63, 

-7.43, 

-8.00, 

-8.07, 

JETNOS 

428 

* 

-3.23,  -3.90,  -5.03, 

-6.73,  -6.83, 

-6.87, 

-7.30, 

-7.20, 

JETNCS 

A 25 

* 

-2.67,  -3.27,  -A. 33, 

-A. 93  , -5.97* 

-6.30, 

—6  .90 , 

-6.20, 

JETNCS 

430 

* 

-2.23,  -2.70,  -3.57, 

-A. 00,  -5.10, 

-5.33, 

— 6 . 10  , 

-5.17, 

JETNUS 

A 3 1 

* 

-1.9A,  -2.17,  -2.67, 

-2.93,  -A. 03, 

-A. 37, 

-3.30, 

-A. 07, 

JETNOS 

A3  2 

* 

-1.60,  -1.5C,  -l.AC, 

-1.77,  -2.83, 

-3.30, 

-A. 20, 

-2.90, 

JETNOS 

A33 

* 

-1.33,  -.87,  .20, 

-.20,  -1.33, 

-1.A7, 

-2.33, 

-1.00, 

JETNeS 

A 3 A 

* 

-.77,  .37,  2. 1C, 

1.60,  .37, 

.47, 

-.33, 

1.00, 

JETNOS 

A35 

* 

2.30,  2.67,  3. A3, 

3. AO,  2.67, 

2.23, 

2.07, 

3.00, 

jetncs 

A 3c 

* 

5.00,  3.67,  2.87, 

2.93,  3. 17, 

3.50, 

3.83, 

A . 33 , 

JETNUS 

437 

* 

2.00,  l. 1C,  «6C, 

1.50,  2.67, 

3.80, 

5.00, 

3.00, 

JETNOS 

436 

* 

-.17,  -.77,  -1.57, 

-.A3,  1.07, 

2.67, 

A. 33, 

-.97, 

JETNCS 

A39 

* 

-.53,  -1.33,  -2.87, 

-2.53,  - 1 .AO , 

.27, 

1.77, 

-A. 80, 

Jf TNoS 

AAC 

* 

-.53,  -.67,  -2. 97, 

-A. 30,  -5.33, 

-6.83, 

-8.17, 

-7.67, 

JETNOS 

AAl 

* 

-.70,  -1.30,  -2.9C, 

-6. CO,  -9.10, 

-13.30, 

-17.80, 

-10.20, 

JETNOS 

A 42 

* 

-2C. 70,-21. 30, -22.8C, 

-26. CO ,-29.20, 

-33.60, 

-37.80, 

-3C.20/ 

JETNUS 

A A3 

DATA 

020/  -4.40,  -5.8C,  -6.CC, 

- 7.80  , -9.80  , 

-8.20, 

-7.00, 

-9.60, 

JETNOS 

AAA 

* 

-3.80,  -5.CC,  -5.8C, 

-7.20,  -9.00, 

-7.80, 

-7.00, 

-9.00, 

JETNUS 

A A 5 

* 

-3.20,  -A. 30,  -5.7C, 

-6.80,  -8.30, 

-7.50, 

-7.00, 

-8.50, 

JETNOS 

sAt 

* 

-2.60,  -3.7C,  -5. AC, 

—6.20,  —7.60, 

-7.00, 

-7.00, 

-7.80, 

JETNOS 

A 47 

* 

-2.10,  -3.10,  -A. 80, 

—5.60,  —6.80, 

-6.50, 

—6.60 , 

-7.00, 

JETNOS 

A A 6 

* 

-1.60,  -2. 50,  -A. 10, 

-A. 80,  -5.90, 

-6.00, 

-6.20, 

-6.00, 

JETNOS 

449 

* 

—1.30,  — 2.CC,  — 3. 30, 

-3.80,  -5.00, 

-5.00, 

-5.60, 

-5.00, 

JCTNUS 

45C 

* 

-1.20,  -1.60,  -2. AC, 

-2.70,  -3.90, 

-A. 00, 

-5.00, 

-A. 00, 

JETNOS 

46  i 

* 

-1.00,  -l.OC,  -l.CO, 

- 1 . AO , -2.60, 

-3.00, 

-A. 00, 

-3.00, 

JETNOS 

402 

</ 

-.70,  -.50,  .80, 

.20,  -1.00, 

-1.00, 

-2.00, 

-1.00, 

JETNOS 

A53 

* 

.10,  .80,  2.50, 

2 . 20  , . 60  , 

l .00, 

0.00, 

l.OC, 

JETNOS 

454 

* 

3.00,  3.30,  3.80, 

3 . 80 , 3.00, 

2.50, 

2.50, 

2.50, 

JETNOS 

456 

* 

6.00,  A. 00,  2. 80, 

2.80,  3.00, 

3.50, 

A. 00, 

A. 00, 

JETNUS 

A56 

* 

3.00,  1.90.  .60, 

1.10,  2.00, 

3 . 50 , 

'j.OO, 

2.50, 

JETNuS 

45  7 
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* 

.50. 

—.40,  — 1.8C,  —1.20, 

.10, 

2.00,  4.00, 

—1.00* 

JET NOS 

458 

♦ 

.20, 

-1.00,  -3.30,  -3.40, 

—2 . 60 , 

-.50,  1.50, 

-5.00, 

JETNOS 

459 

* 

.20, 

— .5C,  -3.20,  -4.80, 

-6.00, 

-8.00,-10.00, 

-8.00, 

JETNOS 

460 

* 

.20, 

-l.CO,  -3.3C,  -6.20, 

-9. 50, -15. 30, -21. 40,- 

-10.90, 

JETNOS 

461 

* 

-19.80,- 

-21.00,-23.30,-26.20  ,- 

-29.50,- 

-35.40,-41.00, 

-30.90/ 

JETNOS 

462 

DATA 

C2 1/  -5.10, 

-6.8C,  -7. 1C,  -8.20, 

-9.30, 

-7.70,  -7.00, 

-9.90, 

JETNOS 

463 

* 

-4.53, 

-5.97,  -6.8C,  -7.63, 

-8.63, 

-7.53,  -7.00, 

-9.00, 

JETNOS 

464 

* 

-4.13, 

-5.33,  -6.57,  -7.17, 

-8.00, 

-7.30,  -6.97, 

-8.33, 

JETNOS 

465 

* 

-3.73, 

-4.80,  -6.13,  -6.57, 

-7.30, 

-6.93,  -6.93, 

-7.53, 

JETNOS 

466 

* 

-3.40, 

-4.23,  -5.5C,  -5.93, 

-6.47, 

-6.40,  -6.60, 

—6.67, 

JETNOS 

467 

# 

-3.07, 

-3.67,  -4-.  73  , -5.03, 

-5.50, 

-5.80,  -6.13, 

-5.67, 

JETNuS 

4b6 

* 

-2.80, 

-3.07,  -3.80,  -3.90, 

-4.47, 

-4.80,  -5.47, 

-4.67 , 

JETNOS 

469 

* 

-2.47, 

—2.40,  — 2.7C,  —2.63, 

-3.27, 

-3.73,  -4.70, 

-3.67, 

JETNuS 

47C 

* 

-1.47, 

-1.26,  -1.1C,  -1.17, 

-1.90, 

-2.60,  -3.60, 

-2.67, 

JETNOS 

471 

* 

.20, 

.17,  . 87 , .60 , 

-.33, 

—.67,  — 1.67, 

-.96, 

JETNOS 

472 

* 

.90, 

1.53,  2.83,  2.53, 

1.47, 

1.33,  .33, 

1.00, 

JETNOS 

473 

* 

2.33, 

2.87,  3.7C,  3.87, 

3.33, 

2.83,  2.93, 

2.66, 

JETNOS 

474 

* 

3.57, 

2.67,  2.37,  2.67, 

3.10, 

3.67,  4.27, 

4.00, 

JETNOS 

475 

* 

1.17, 

.57,  -.27,  .57, 

1.93, 

3.30,  3.00* 

2 . 66  , 

JETNUS 

47  6 

* 

— .63  , 

-1.56,  -2.83,  -1.90, 

-.10, 

2.00,  4.17, 

1.00, 

JETNOS 

477 

* 

-.87, 

-2. 20,  -4.30,  -4.07, 

-2.83, 

-.50,  1.67, 

-5.00, 

JETNOS 

478 

* 

-.87, 

-2.00,  -4.6C,  -5.60, 

-6.00, 

-7.17,  -8.33, 

-8.00, 

JETNCS 

479 

* 

-1.00, 

-2.10,  -4.90,  -7.10, 

-9.40, 

-13.60,-18.20, 

-11.00, 

JETNOS 

480 

• 

-2 1. 00, -22. 1C, -24. 9C, -27. 20  ,- 

-29.40, 

-33.50,-38.10, 

-31.00/ 

JETNOS 

481 

DATA 

C22/  -5.6C, 

-7.30,  -8.4C,  —5.60 , 

-9.10, 

-7.50,  -7.00, 

-9.90, 

JETNOS 

482 

* 

-5.27, 

—6.93,  — 7.8C,  —8.07, 

-8.27, 

-7.27,  -7.00, 

-9.00, 

JETNUS 

483 

* 

-5.07, 

-6.37,  -7.43,  -7.53, 

-7.70, 

-7.10,  -6.93, 

-8.17, 

JtTNuS 

484 

* 

-4.87, 

-5.90,  -6.87,  -6.93, 

-7.00, 

-6.87,  -6.87, 

-7.27, 

JETNOS 

485 

* 

— 4. 70 , 

-5.37,  -6.2C , -6.27, 

-6.13, 

-6.30,  -6.60, 

-6.33, 

JETNUS 

486 

* 

-4.53, 

-4.83,  -5.37,  -5.27, 

-5.10, 

—5.60,  —6.0b, 

-5.33, 

JETNOS 

48  7 

* 

-4.30, 

-4.13,  -4.3C,  -4.00, 

-3.93, 

-4.60,  -5.33, 

-4.33, 

JETNOS 

488 

♦ 

-3.73, 

-3.20,  -3.CC,  -2.57, 

-2.63, 

-3.47,  -4.40, 

-3.33, 

JtTNuS 

489 

* 

-1.93, 

-1.53,  -1.2C,  -.93, 

-1.20, 

-2.20,  -3.20, 

-2.33, 

JETNOS 

490 

♦ 

1.10, 

.83,  .93,  l.CO, 

.33, 

-.33,  -1.33, 

-.93, 

JETNOS 

491 

* 

1.70, 

2.27,  3.17,  2.87, 

2.13, 

1 . 67 , .67 , 

1.00, 

JETNuS 

492 

* 

1.67, 

2.43,  3.6C,  3.93, 

3.67, 

3.17,  3.37, 

2.83, 

JETNUS 

493 

* 

1.13, 

1.33,  1.93,  2.53, 

3.20, 

3.83,  4.53, 

4.00, 

JETNOS 

494 

* 

— . 67  , 

-.77,  -1.13,  .*3, 

1.87, 

3.30.  5.00, 

2.83, 

JtTNuS 

495 

* 

-1.77, 

-2.73,  -3-87,  -2.60, 

-.30, 

2.00,  4.33, 

-1.00, 

JETNUS 

496 

* 

-1.93, 

-3.4C,  -5.30,  -4.73, 

-3.07, 

-.50,  1.83, 

-5.00, 

JETNUS 

497 

* 

-1.93, 

-3.50,  -6. CO,  -6.40, 

-6.00, 

—6.33,  —6.66, 

-8.00, 

JETNOS 

498 

* 

-2.00, 

-3.6C,  -6.8C,  -8.20, 

-8.90, 

-11. 90, -14. 70, 

-10.80, 

JETNOS 

499 

* 

-22.00,— 23.6C-— 26.  8C,— 2 8.30,- 

-28.90, 

-31.90,-34.60, 

-30.80/ 

JETNOS 

500 

CATA 

C23/  -6.00, 

-8.50,  -5.4C,  -9.30, 

-8.50, 

-7.20,  -7.20, 

-10.20, 

JETNUS 

5C1 

* 

-6.00, 

-7.90,  -8.80,  -8.50, 

-7.90, 

-7.00,  -7.00, 

-9.00, 

JETNOS 

502 

* 

-6. CO, 

-7.4C,  -8.30,  -7.90, 

-7.40, 

-6.90,  -6.90, 

-8.00, 

JETNUS 

5C3 

* 

-6.00, 

-7.0C,  -7.60,  -7.30, 

-6.70, 

-6.80,  -6.80, 

-7.00, 

JETNOS 

504 

* 

-6.00, 

—6.50,  —6.90,  -fc.60, 

-5.80, 

-6.20,  -6.60, 

-6.00, 

JETNOS 

505 

* 

-6.00, 

-6.CC,  -6.CC,  -5.50, 

-4.70, 

-5.40,  -6.00, 

-5.00, 

JETNOS 

50b 

* 

-5.80, 

-5.2C,  -4.8C,  -4.10, 

-3.40, 

-4.40,  -5.20, 

-4.00, 

JETNOS 

507 

* 

-5.00, 

-4.00,  -3. 30,  -2.50, 

-2.00, 

-3.20,  -4.10, 

-3.00, 

JETNOS 

508 

* 

-2.40, 

—1.80,  —1.30,  —.70, 

-.50, 

-1.80,  -2.80, 

-2.00, 

JETNOS 

5C9 

* 

2.00, 

1.5C,  l.CC,  1.40, 

1.00, 

0.00,  -1.00, 

-.90, 

JETNUS 

510 

* 

2.50, 

3.CC,  3.5C,  3.20, 

2.80, 

2.00,  1.00, 

1.00, 

JETNOS 

511 

* 

1.00, 

2.00,  3*50,  4.00, 

4.00, 

3.50,  3.80, 

3.00, 

JETNOS 

512 

* 

-1.30, 

C.CC,  1.5C,  2.40, 

3.30, 

4.00,  4.80, 

4.00, 

JETNOS 

513 

* 

-2.50, 

-2. 1C,  -2.CC,  -.50, 

1.80, 

3.50,  5.00, 

3.00, 

JETNOS 

514 

159 


t 1 


c 

c 

c 

c 


-■-^7  -i*- .■■a^rerr 


* -2.90,  -3.9C,  -4.90,  -3.30, 

-.50, 

2.00,  4.50,  -1.00, 

JETNUS 

515 

* —3.00,  —4.60,  —6.30,  —5.40, 

-3.30, 

-.50,  2.00,  -5.00, 

JETNOS 

5 It 

* -3.00,  -5.0C,  -7.4C,  -7.20, 

-6.00, 

-5.50,  -5.00,  -8.00, 

JETNOS 

517 

* -3.00,  -5.40,  -8.40,  -8.90, 

-8.70, 

-10.60,-12.30,-11.00, 

JETNOS 

MB 

* -23.00,-25.40,-28.40,-29.00,- 

28.70, 

-30.70,-32.20,-31.00/ 

JCTNUS 

515 

DATA  024/  -7.00,  -9.40,-10.40,  -9.60, 

-8.00, 

-6.80,  -7.30,-10.10, 

JETNOS 

520 

* -6.93,  -8.87,  -9.80,  -8.93, 

-7.53, 

-6.73,  -7.00,  -9.00, 

JETNOj 

52  l 

♦ -6.93,  -8.43,  -9.17,  -8.27, 

-7.10, 

-6.70,  -6.87,  -8.00, 

JETNOS 

52/ 

* -7.13,  —6. 1C,  -8.33,  -7.67, 

-6.40, 

-6.73,  -6.73,  -7.00, 

JETNOS 

5 2 -v 

* -7.30,  -7.63,  -7.6C,  -6.93, 

-5.46, 

-6.10,  -6.60,  -5.83, 

JETNUS 

* -7.47,  -7.17,  -6.63,  -5.73, 

-4.30, 

-5.20,  -5.93,  -4.67, 

JETNUS 

5,:  5 

* -7.30,  -6.27,  -5.30,  -4.20, 

-2.87, 

-4.20,  -5.07,  -3.67, 

JETNOS 

* —6.27,  — 4.8C,  —3.60,  —2.43, 

-1.37, 

-2.93,  -3.80,  -2.67, 

JETNOS 

527 

* -2.87,  -2.07,  -1.40,  -.47, 

.20, 

-1.40,  -2.40,  -1.67, 

JETNOS 

'ill 

* 2.90,  2.17,  1.07,  1.80, 

1.67, 

.33,  -.67,  -.87, 

JETNUS 

529 

* 3.30,  3.73,  3.83,  3.53, 

3.47, 

2.33,  1.33,  1.00, 

JETNOS 

530 

* .33,  1,57,  3.4C,  4.07, 

4.33, 

3.83,  4.23,  3.17, 

JETNOS 

531 

♦ -3.73,  -1.33,  1.07,  2.27, 

3.40, 

4.17,  5.07,  4.00, 

JETNUS 

532 

* -4.00,  -3.43,  -2.87,  -1.03, 

1.73, 

3.50,  5.00,  3.17, 

JETNOS 

5 3 3 

* -4.03,  -5.07,  -5.93,  -5.07, 

-.70, 

2.00,  4.67,  -1.00, 

JETNuS 

53  4 

* -4.07,  -5.80,  -7.30,  -6.C7, 

-3.53, 

-.50,  2.17,  -5.00, 

JETNOS 

5 3 5 

* -4.07,  -6.5C,  -8. 80,  -8.00, 

-6.00, 

-4,67,  -3.33,  -8.00, 

JETNOS 

53o 

* -4.10,  -7.20,-10.30,  -9.80, 

-8.40, 

-8.70,  -8.80,-11.00, 

JETNOS 

53  7 

* -24.00,-27.20,-30.30,-24.80,- 

28.40, 

-28.70,-28.80,-31. 10/ 

JETNOS 

v 3 

JETNOS 

5 35 

ALPHA=UNGJET*1.745329E-2)-AIAMGRAD) 

JETNOS 

540 

ICGDE=NJET 

JETNOS 

541 

I F < (NJET.GT.O).ANO. (NJEI.LE.3))  GC  TC 

250 

JETNuS 

54  J 

IRWS.NE.Q.)  0IAPET-0. 

JETNOS 

54  3 

I C 0 D E — 3 

JETNUS 

544 

IE ( ( PR.LE.0.0) .A NO. (PA. IE. 0.0) . A NO. ( TT 

• L £ • 0 « 

Cl)  GC  TC  250 

JETNUS 

545 

lF(WP.LE.C.O)  ICCDE=l 

JETNOS 

547, 

IF(AP.LE.O.O)  ICCDE=2 

JETNOS 

547 

2 50  CALL  JETPEUI MCODE , ICODE ,PR ,P A , TT , VA, A P , hP,VP  ,CI AMET , AS , VS , AL PHA, 

JETNuS 

548 

*SPL,TI0, ANGLES, SPLP) 

JETNOS 

545 

If< ( 1C00E.NE.3) .QR.(KS.EC.O.C) I GC  TC 

50C 

JCTNUS 

5 5C 

A E=AP  +AS 

JETNOS 

551 

RPCE  = * S/ ( AS*  VS) 

JETNUS 

552 

JETNUS 

553 

JETNOS 

554 

VE=VP*SQRTm.+  (AS/AP)*(  IVS/VP)**2))  / U.+AS/AP)  ) 

JETNOS 

555 

JETNUS 

5 56 

JETNOS 

557 

WE=KHOE*AE*l VE) 

JETNUS 

558 

JETNOS 

554 

CALL  JFTPEDt  PCCDE . ICCOE , PR , P A , T T , V A, AE ,WE ,VE  ,0.0 , 0.0 , VS,  ALPHA, 

JETNUS 

5 60 

*SPl, TIC, ANGLES, SPLS) 

JETNOS 

56  » 

5CC  CONTINUE 

JETNCS 

56  2 

RETURN 

JETNUS 

5o3 

ENO 

JETNOS 

5o4 

A5 


',i«  .isv. 


?$S$| 
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«£?>.-  **5^,  45Kt*  *»*««iw* 


v-,w  *?  ^ «t  -Tf 


SUBROUTINE 
*VA, DIAMET , 
C AUTHOR 
C 

C METHOC 
C 


C PURPOSE 

c 


JETPEOI ISN*IGPT»PR»PA»TT , V«A8*HA, 
A82* V2 , ALPHA ,SPL* I ID » 7 JHEI(L#SRLPOS ) 
0.  F.  MELDRUM 


C OUTPUTS 
C 


C MODIFICATIONS 
C 


C REFERENCES 
C 


JfcTPfcO 

JETPED 

JETPEO 

JfcTPfcO 

JETPEO 

JETPfcO 


JET  NOISE  IS  PREDICTEO  BY  THE  USE  OF  SEVERAL-CURVES  JETPEO 
THESE  CURVES  ARE  INTERPOLATED  CR  EXTRAPOLATEO  AS  JETPfcO 
NEEDED  INORDER  TG.'PREOICT  THE  NOISE. AT.  150  FT, RADIUS  JfcTPEO 

• ..  - JETPfcO 
TC  PREDICT  THE  JET  NCISE  PRCDUCEO  RY  U PRIMARY.  JET,  JETPfcO 
2)  SECONDARY  JET.  JfcTPfcO 


c 

JfcTPfcO  ; 

12 

C INPUTS 

ISN 

CODE 

FCR  SIRCUHAL.  CURVE  REQUIRED 

JETPED  ; 

13 

C 

1 

FCR  FLIGHT  SPECTRUM  CURVE  , ■ 

JETPEO 

l^t 

C 

2 

FCR  GRCUNDs  SPECTRUM:  CURVE  , 

JETPfcD  .. 

15 

C 

3 

.FOR.  AVERAGEOF  1-  ANC;  3 . 

JETPfcO  ; 

10 

C 

I OPT 

CODE 

FCR  TYPE  OF  INPUT  DATA 

JETPfcD  ' 

17 

c 

1 

AS  PR  PA  TT  VELOCY  (DIAMET ) 

JETPED 

18. 

c 

2 

HA  PR  PA  TT  VELOCY  (DIAMET) 

JETPEO 

15 

c 

3 

A8  HA  VA  VELOCY  (DIAMET  A82 

JETPEO 

20 

c 

VA2  MA2I 

JETPfcD-  ■ 

21 

c 

A 

SECCNOARY  (3) 

JETPED 

22 

c 

PR 

NOZZLE  PRESSURE  RATIO- ■. 

JEJHED- 

23 

c 

PA 

STATIC  . PRESSURE  .,<*'■  ^ * 

JETPEO.  . 

29 

c 

TT  • , 

. TOTAL.  TEMPERATURE  OF  EXHAUST,  GAS.  .< 

JETPfcD  * 

25 

c 

V 

AJ  RCR  AFT  VELOCITY.*  \ . . f i . t . r.  ‘ -.  ,*; 

JfcTPEO  - 

26 

c 

A8 

CROSS 

I— SECTIONAL; .ARE A'  OF.  THE  NOZZLE’.  fcXIJ 

JETPtO 

27 

HA 

VA 

DIAMET 


A62 
V2 

ALPHA  ENGINE*  AW.UUOE*  ANGLE-  TC. .THE  CBSER.VCR  ■.  ,>  J ETPEO 

TIO  DIRECT  I VIT.Y  CCRRfCTlON-  jCURVE.  ,•>*<,  i *-  JETPfcD 

T THETA*  - DI RECT-LVITAf  ANGLES  - ■ „ <s  , , o*  i.  JETPED 

<•  . V r'  ’ - \ ( **..s  - ( , ■■  . . * ,* „ n a JETPED 

INPUT-  VIA  LABLEG  CCNMOR --  .GFREG  1 A , •.  * , JETPED 

v '■  ■ . * *v  JETPfcD 

1/3  GCTAVt  BAND  CENT fcR  -ERECUENCIES,  . ...  ->-•  JETPEO 

. . . r .•  JETPfcD 

SOUND  PRESSURE  LEVEL  SPECTRA  FCR  JET  NOISE  JETPEO 

JETPEO 

TRJX,  (2.9»1.7JCf.  UNSHIELOCQ.  SPECTRA  JfcTPfcO 

MARY  CR  SECCNOARY  JET  JETPED 

!;•» ->* ' " /.*><.  JfcT.FfcO:. 

AM  DESCRIBED  IN  06-25990  MAOE  INTO  JETPEO 

■ BY  0*.  F.  HeLORUR  A/IS/J2  POR  T.E6215,  .«  JETPfcO. 

7EE2L-5.  *ND  MAGE  CHANGES'  FOP  THE  -i..  , ...  .JETPEO 

CONTRACT.  i . .< . ■ j -'JfcTPfcO  • 

. ....  ' -,.1.  •.  JETPEO 

1/10/72  P.  SCHORR  JETPfcO 

Y,  JET  NOISE  PREDICTION^, PROCEDURE  ,>d-  JETPEO 

E NASA-APES  FCOTPRINT  CONTRACT  NAS2-6969,  JETPED 
BEREO  CGCRCINATION  SHEET,,.  DATED  . . JETPfcD  . 

UAR V 19T-3*.',,  . - JETPEO 

..  ,».*.•  e"  • I,?  ..  >.M  . - JETPfcO 


HEIGHT  FICH  OF  EXHAUST  GAS  saJfcTPEOi 

VELCCI T r.  CF.  JET.  EXHAUST.  .ABSCLU.TiE.  JT Q-.  NOZZLE  JETPED 
DIAMETER.  OF.  MilUE.  - ;I JR>  ZERO-  JQR,  sNEGAT.I’VE  JETPEO 
THE  OIAMEIER  <HIUj  fif:  CALCULATED,  FROM, >;T,H.E'.  JfcTPEO 
NOZZLE  AREA  ..  •*-,  JETPED 

SECONDAR  Y.  AREA  (SEE  A 8J.  , „ , > JETPEO 

SECONDARY;  ABSCLUJE  VfeLGCJTY  CF,  JET. -EXHAUST  JETPED 


”r  (1  w*  J 


TFREO 


1/3  GCT  AVfc  BAND.  CENT  fcR  ERECUENCIES. 


SPLPCS  MATRIX,  42A.fX.7J.CF.  UNSHIEIOCD  SPECTRA. 

EITHER  PRIMARY  CR  SECCNOARY  JET 

!;•* .. ".  !•  ,'*  • ->* ' /.*><. 

FROM  PROGRAM  DESCRIBED  IN  06-25990  MAOE  INTO 
SUBROUTINE  BY  0^  F-  AELDRUM.  A/ 15/72,  FOR  T.E6215, 
TAXEN  FROM  TE  £2.1-5.  .‘ANDRACE  CHANGES-  FOR  THE  . -i.. , , ... 
NASA-AMES  CON-TRACT  . ».i.  • .;  ~„}.t 

D6-2549C  1/10/72  P.  SCHORR 

R«  J.  SAXBY,  JET  NOISE  PREOICTICN^PROCEDURE  Jd- 

FOR  THE  NASA-APES  FCOTPRINT  CONTRACT  NAS2-6969, 
UN-NUMBEREO  £OCRDI  NATION  SHEET,.  DATED  . 

17  JANUARY  19T3*.  . ..  . 
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, '*  *?  W’CV.  ’ 


.Jf_ 


FUNCT IBM'  SOBPRGM  ALOGIO  TBLll 

SIN  COS 


CGMM13N-  JGFAtQ*  JFft€942*J 


JAUJ2<  - T0MI>mit!SSFjru?6TH.  3H 

■HMS4JH-.  '<  »*  ,ri'. , /»:*<*  j A ~ v* , 3 a » T 

'.■■••  j ..  1 -:•• 


• ' lui“  : 

:n 

:i  ch-  i 1 

r,  ; > r 


0 IMINS ION'  7 UK*.  19,2*41  , S4>L J 14^1 74  .7T REF JtJd?) 

C mfNSIQN  TRVI 6) »DEFREQI24) ,ATHETA(19I 
OW€^5ION- F«NH«t3'ttGNNA<aai.  » ' 

DIMENSION  TVR( 12) *T0B(12) 

DIMENSION >TVRN(91 »TDBN(9) 

OFRCNSJGN  TCBU3)  , TSTH 1 3J*  T SAl  U3 ) 

D PRECISION  TCB2(13).T:5tHM13r|*75A2MUH> 

OIM€1»!SION  TCB3{lll*T5F»Ill^F!SX»Wia^ 

OtMEfo&fGN  AR£AX<6),SNX<36J*£htm6J*T,49f*e  1*6,61 
0 IAEVSMJN  SPLPQSI24.17) 


AREA1  RATIO  CORVES 

DATA1  ARE  AX/O  .,1.,3.«6.«1G.  » I5»>.  M 

DATA-  ’SWX/.02 1 * . 026  ,.033 ,.042  ». 053  .U)**.»133,  .167*  ' 

.208,.263,*3r3B„Al‘»^52fiJ,.*Al^VEE3?I*l«0fe£^ai.33,1.67.M 
2.C8,2.63»3.33,4.17,5.25.,6-JttFJ*&.33»WU*iiA3.3,l6.7, 
20-.»,26-a,33.3*41l.l*52..!e%6A.fy  -c. 

DATA1  TVNRE/36*0., 

B.  5,  4*5  t3«76t2«2<iL>A1Li  L«2j»_»T*  jA5  , » 5 * 

«J63.,„€5*t  .tX  .A  *1.35*1  .«5  ,£*!&  »£«16 , 2 .15?, 

2.  77 ,'Sv05  , 3.58.*B.  H 7 13,14.37, 4. 57, 

4. 76, 4.93,2*5. C, 

. 2 5 , 1 . 3 , 2 . , 1 . 9 , 1 . 2<6*.  S*.  35  .*9**A  JDS*t  . 2 , 

:U 3?, '1. >57, 1.74*1.94,2. 5 30, 3 . 16,3.38, 

3.61,&.«C,A.C9,A^l6,i4.)4«*4.2*l%.<9,-74B5..,  ' . 

5*0.  , . 2 , . 47  ,.75,1.  C3*:U38*!U69  , 

2.03,2.38,2.74  ,3,08,3.41*3.58  /4*1  ^4^6,4,63, 4^8$  v5<* , 
1 4*  5. ,6*  C.C,. 4, .78, 1.24,1. 65 ,2*07 ,2.43, 

2.81,3.  16,3.46*3.78^4.hG3*4»M*14w)41B  »A*j2d*A.tflB*4t.B&, 
4.90,4.94,4.98,11*5.0, 

4*0.0, .316  „T5*)U  13  ,0,.i6.,2. 17  ,2.  6ft  ,3,  .11  ,3-59 , 4 . ,*.31« 
4.56,4.77,4.89,19*5.0/ 


0A7A  WV/500.,75C.-,a<000.*U25JQ^rlWa,  ,t75C»,*DOO.**<000./ 

GAW4A  VS  TOTAL  TEMPERATURE 

DATA  T TEMP/2.  ,2 .'602 , 2. 77 8 ^2.'9C3,3.. ,3^079,  3*1 46, 3.20*, !3 .£55*3. 301, 

* 3.342,3.380, 3.141 5*3*  44’7V3.ft4  7.  ,3-5  015,3  .1931  *B  . 5*16,6  ^$00,3.602/ 
DATA  7GMMA/ 1. 4, 1. 4, 1.392, 1.387, 1.369,1. 357, U'3*4«3US33¥4.&3A,  1.3 16 

* *1.3 10, 1*304,1. 3, 1.296, 1.293, 1.29 0,1. 287, 1.285, 1.283, 1.281/ 

0A9P1  VS  JET  RELATIVE  >V*LiOC1lttV 

DATA  T- VR  / 2 . 699 , 2 . 94*9 ?».!30 1 J3.3W7  ^323*2  J3W3KM., 

* 3.431,3.462,3.491 ,3.544,3.602,3.499/ 

DATA  TUB / 64.1,  97.3,146.1,152.5,154.2,158.3,161.0, 


HWfMU. 

JETPEO, 

JETPED 

JET  PECO 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED. 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPEC 

JETPED 

JETPED 

JETPED 

JETPEO 

JETPED 

JETPED 

JETPEO 

JETPED 

JETPEO 

JETPEC 

JETPED 

JETPEC 

JETPEO 

JETPEO 

JETPED 

JETPEC 

JETPEO 

JETPEC 

JETPEC 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

.UJETtPe) 

JETPtC 

JETPED 

JETPED 

JETPEO 

JETPjED 

JETPED 

JETPED 

JETPfcO 

JETPED 

JETPEO 


59 

60 
*L 
82. 
(43, 
64 
65. 
66 
<87. 
68 
69. 
:7Q 

71 

72 
73- 
74 

73 
76 
77. 
78 
79. 
80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

too 

101 

102 

103 

104 
Sl05 
106 
107 
1C6 
109 
;ltO 
111 
112 

113 

114 

115 


162 


''  *'*l2»**5£  iEJsT 


;.  .^*' 
i - t ’ 


* 162. 3, 143.9,166. 1,168. 5, 171.1/ 

DENSITY  CORRECTION  EXPONENT 

DATA  TVRN/500.* 1500. *1600. *1700.  ,1800. ,1900. ,2000. ,2 100. , 

* 2200./ 

DATA  TD8N/-0. 40, 1.4, 1.59, 1.77* 1.88, 1.95, 1.99, 2. 00, 2.0/ 

STROUHAl  SPECTRUM  GRCINO  FLIGHT  MIXED 

DATA  IC8/-33.5,-16.7,-12.5,-9.8,-8.,-5.5,-4.8,-4.8,-5., 

I — 5. 8,-8. 7,— 15. 5 ,-45.3/ 

DATA  TSN/  .01, . 04, . 06, .C8,. I, .15, .2, .25, .3, .4, .7, 2. ,100./ 
OATA  TCB2/  -34. ,-19. ,-l U 8,-9. 5 , -6. 7 ,-5.8 , -5. ,-7.3 ,-10.9, 
l -14.5,-20.6,-26.6,-45.2/ 

DATA  TSN2/  .01 , .025,. 04 ,. 05 , .08  ,. I ,.2 , . 5 ,1. ,2. ,5. , 10. , 100./ 
DATA  TCB3/  -38. ,-14.5,-10.8,- 7.7 ,-5.6, -5. 2, -5. 8,-7. 3, 
l -10.7,-15.3,-39.5/ 

OATA  TSN3/  .01 , .07, .1 ,. 15, .25 ,.4 ,.6,1. ,2. ,4. ,100./ 

OATA  ISRTCH/O/ 


I F < IShTCH.NE .0)  GO  TO  33 
ISHTCH=1 

DC  34  1=1,36 
SNLXI I )*AL0G10<  SNX ( I ) A 
Ifll.GT.241  GO  TO  34 
DEFREQ! I )=ALCG10 (TFREQII )*2.C/100G.) 
IF(  I.GT.19)  GO  TO  34 
ATHETA! I )=( I-l)*lC 
IFII.GT.13)  GO  TO  34 
T SN 1 ( I )=ALOG10 ( T SN (1)1 
T SN2 II I )=AL0G1C<  T SN2 (111 
IF(I.GT.ll)  GO  TO  34 
TSN31! 11*ALOGIO<  TSN3IIU 
34  CONTINUE 


33  IF( I0PT.EQ.3)  GO  TO  27 


GMMA*TBLU  HALOG  1C  (IT),TTEMP,IGMM,  1,201 

GAMEX* ( GMMA— 1. 1 /GMMA 

GAMX=( 1.-GMMA1/GMMA 

RHO=( PA/l  53.35*TT1 1*PR**GAH£X 

VJET*SQRT( ( 64. 4/ GAME  X)*53.35*TT*(1.— PR**GAMX)1 

VR=SQRT( V JET* VJET-2.0*VJET*V*COS< ALPHA HV*V> 

VR 1*AL0G 101 VR) 

IF  ( IGPT  .EQ.  2)  GO  TO  25 

XMACH=SQRT( ( 2 . / ( GMMA-1 . 1 i*( < PR**GAMEXl-l .1 1 
IF  (XMACH  .LE.  1.1  GC  TO  20 

AREA*! A8*PK**( 1. /GMMA1* 12./ (GPMA+1. 1 1**1 l./( GMMA-i. 1 1 )/ 
1 SORT! ( ( GMMA  + 1. I / IGHMA- l. M*!1.-FR**GAMX11 
GC  TO  35 
AREA*A8 
GC  TO  35 


JETP 

JETP«_u 

JETPED 

JETPEO 

JETPED 

JETPED 

JETPEC 

JETPED 

JETPED 

JETPED 

JETPcD 

JETPEO 

JETPEO 

JETPED 

JETPED 

JETPEC 

JETPED 

JETPED 

JETPED 

JETPED 

JETPEC 

JETPEC 

JETPEO 

JETPED 

JETPEO 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPEO 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPED 

JETPEO 

JETPEO 

JET°EO 

JETPED 

JETP  :0 

JETP :D 

JETPEO 

JETPED 

JETPED 

JETPED 

JETPED 

JETPfcD 


S-Ai  "I 
Pi?-*: 


163 


"rvy.'-:r 

life,  ■- 

|fe; 


AREA«hA/(RHO*VJET) 
GO  TO  35 


27  VR«SQRT<  VA*VA-2. C*VA»V*CCS< ALPHA)4V*V* 
29  AREA  =A8 

RHO=HA/( A8*VA) 

; DETERMINE  OASPL  = DB  + B 

35  VRI^ALQGIOI VR) 

0B-T8LUII  VRlt  TVR»TDB»1»12) 

ANXBLUll  VR,TVRN»T0BN.l,9) 

B = 10 .* ( ALOG 1CT  AREA ) +AN*ALCG 10 ( RHC J ) 
DE=SGRTI  AREA)*1.13 
IF( D IAHET .GT.O.C)  DE-OIAMET 
DO  BOC  IOT-,l»  17 
DO  SOO  IQB= 1 » 24 
43  FREQ*TFREQ l 10B ) 

THETA=TTHETAUOT» 

SN=FR£Q*CE/VR 

SM=AL0G1C(SN) 

FREQDE= ALOG 10 ( FREQ*DE/ 1000. ) 


CELTA*0 . 

1FI I0PT.NE.3)  GO  TC  44 
IF< A82.LE.0. ) GO  TO  44 
IF< V2.LE.C.)  GO  TO  44 
ABSRAT^ABSU VA-V2J/VA) 

IF( ABSRAT .LT .0. 1 ) RETURN 
AR£AR0=A82/AREA 
SNX(l)  = FREQ  * DE  / VA 
SNX1  = ALOGIOI SNX (1)1 

IF  ((AREARO  .LT.  1.)  .AND.  iSKX(i)  .LT.  0.0671)  AREARO 
AN=TBLU2( SNX l, AREARO, SNLX.AREAX.TVKRE, 1,1,36 ,6.36, 6) 

DfcLT  A-AN*10.*ALCG1C(A8SRAT) 


44  CONTINUE 
C 

IF  I ISN  . EQ.  II  GO  TO  47 
IF  ( ISN  .EQ.  3)  GG  TC  45 
IF{ ISN.NE.21  GO  TC  47 
CB=TBLUll SN1.TSN1.TC8.1. 13) 

GC  TO  156 

45  CB=TBLUK SNl,TSN2l,TCB2,l,l3i 
GO  TO  156 

47  Ce=TBLUl(SNl,TSN31.TCB3,l,lil 
156  IF  ( VR-3000. ) 49,49,28 
28  VR=3GCC. 

GO  TO  49 

38  IF  ( VR-500. ) 39.39,49 

39  VR=50C. 

CONT  INUE 

49  X IC=TBLU3 1 VR, THETA, FREQOE.TRV, A THETA, CEFREQ.TID,  1,1,1, 
* 8,19,24,8,19.24) 


JETPED 

173 

JETPED 

174 

JETPED 

175 

JETPED 

176 

JETPED 

177 

JETPED 

178 

JETPED 

179 

JETPED 

180 

JETPED 

181 

JETPEO 

182 

JETPED 

183 

JETPED 

184 

JETPfcD 

185 

JETPED 

186 

JETPED 

187 

JETPED 

188 

JETPED 

189 

JETPfcD 

190 

JETPED 

191 

JETPfcD 

192 

JETPED 

193 

JETPfcD 

194 

JETPEO 

155 

JETPfcD 

19t 

JETPED 

197 

JETPED 

198 

JETPED 

199 

JETPED 

20C 

JETPED 

201 

JETPED 

202 

JfcTPfcD 

203 

JETPEO 

204 

JETPfcD 

205 

JETPfcD 

20* 

JETPfcD 

207 

JETPEC 

2oe 

JETPEO 

209 

JETPED 

210 

JfcTPEO 

211 

JETPED 

212 

JETPfcD 

213 

JETPEC 

2 l*i 

JETPfcD 

215 

JETPfcD 

216 

JfcTPEO 

217 

JETPED 

218 

JETPfcD 

219 

JETPED 

220 

JETPEO 

221 

JETPED 

2 22 

JETPfcD 

223 

JfcTPEO 

224 

JETPED 

225 

JETPED 

226 

JfcTPfcD 

227 

JETPEO 

228 

JETPEO 

229 

SSSSSS^sssse: 


'Trs'.-s^r^s: 


- &:$..  '* 


SPLPED=l)fl*B+CB*-XlO*OELTA— 4.8 

JETPtO 

2 JO 

JETPED 

231 

SPLPOS ( I08» I0T)=SPLPE0 

JETPED 

232 

SPU 108, I0TJ  =PWRSUMi SPt ( IGBtlCT) »SPL  PEC  1 

JETPED 

233 

CCNTINUE 

JETPED 

234 

RETURN 

JETPED 

235 

JETPtO 

236 

JtTPED 

237 

END 

JETPED 

238 

i rttiiltettM 


* * ' 3*  . 
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SIBKOITINE  JNSA(APY,APZ,ALTR,ECF,C2,C£LTA,UIAMll,VP,VS, 
« SL01ST,M,NCF,SPLP,  SP L S ,SPL T , ITY PE  , CSPL , I UNIT) 


PURPOSE 


INPUT 


TU  PREDICT  THE  JET  NCISE  SHIELDING  ATT fcNUAT  ION  FOP 
AN  ENGINE-CVER-MNG  CCNF  IGURAT  ICN 
Tht  ATTENCATICNS  A«£  TC  EE  SUBTRACTED  FRCP 
PREDICTED  UNSHIELDED  JET  NCISE  SPECTRA  AT  INDEXED 
CUNOI TIuNS 


APY  ARRAY  CF  A/C  CLCRCINATt  IN  DIRECTION  CF 
FLIGHT  PATH  PRCJFCTICN  CP  1 E E GKCUNL I FT  ) 

Ap L ARRAY  CF  A/C  VERTICAL  CLCkCINATE  AtiCVE  THE  GROUNL 

SLD1ST  SIDELINE  PLSITICP  CF  CBSERVER 

ALIK  CBSERVER  HEIGHT  ABCVE  THE  GPCUND 

UCF  GECMETRIC  hUAN  FRECUENCI ES (FZJ 

CZ  AMBIENT  SPEEC  CF  SCUNCIFPS)  AT  A/C  ALTITUDE 

JET  NCISE  LNSHIELCEC  SPECTRUM 
SPLP  FCP.  PRIMARY  JE  T ( TL  KBL  JE  T , I T Y P6=U  I AND 
SPLS  FOR  BULK  F LG V JET  TURBCF  AN  CCANNULAk  NCZZLE, 

IIYPE  ( ITYPE-I ) 

PRIMARY 


I NPL  I 


INPUT 


DFLIA  ENGINE  1 NCLI NAT  I IN  ANGLEIRAD) 

D I AMT l GIAMECLR  CF  N£Z2LE  (FT) 

DSL  1 DIMENSlCMESS  SHIELD  LENGTH  PARALLEL  TC 
EXFAIST  AXIS  FRCP  NCZZLE  EXIT  PLANE 
VP  VELOCITY  CF  JET  EXHAUST  RELATIVE  TC  NCZZIEIFPS) 

SECCNDAKY  jet 

DIAMT2  DIAMETER  CF  NCZZLE  IFT) 

2SL2  CIMI-NSICNLESS  SHIELD  LENGTH  PARALLEL  TL 
EXPALST  AXIS  FRCM  NCZZLf.  EXIT  PLANE 
VS  VELOCITY  CP  JET  EXHAcST  RELATIVE  TL  NCZZLE(FPS) 


DIMENS  IC'J  APYI 10,17) ,APZ (1C, 17)  ,ECF(24) ,SLCIST (10) ,DSPLI 24, 17), 
* SPLP(24,  17)  »SPLS124» 17) ,SPLT (24,17) 

CCMMON/JNShLU/DI AMT2 ,DS1  l ,DSLZ 

PRIMARY  JET  CASE (TIRBLJE T ) 

CCNSTANT  TFRM  UF  REFERENCE  CCRPELATI CN  TERM 

CCNSI  =D$Ll*t.GE-7*CZ*CZ/l32.174*VF)*D$Ll*270u.*DiAMTl*DlAMT  l* 
*32.1 74/(CZ*CZ*VP> 

SNDE  = SIM  DEL  TA  ) 

LSDE=CGS(DtLTA) 

CALCULAIF  JE  T NOISE  SHIELDING  A T 1EPL A T l CM  PR 1M OR Y JET) 

CALL  JNSASPI APY, APZ.ALTk  ,bCF , S LL l S T ,F , NCF ,CC NST , SNCE , CSDE , DSPL ) 

STlRE  SHIELDED  JET  NCISE  SPECTRIP  TFAT  IS 
UNSHIELDED  PRIMARY  JET  NCISE  SPECIPLM  MINUS 
T*-E  JET  NOISE  SHIELDING!  PRIMARY)  ATTENCAT  ICN 


JNS  A 

/ 

JNSA 

$ 

JNSA 

A 

JNSA 

<,  ; 
j 

JNSA 

c ! 

JNSA 

7 j 

JNSA 

E j 

JNSA 

5 j 

JNSA 

1C  j 

JNSA 

1 l 1 

JNSA 

1-  j 

JNSA 

12  ! 

JNSA 

14  1 

JNSA 

is  i 

JNSA 

u 1 

JNSA 

17  i 

JNSA 

K-  1 

JNSA 

is  : 

JNSA 

2C  i 

JNSA 

21  | 

JNSA 

2 1.  i 

JNSA 

2 3 

JNSA 

2 -i  1 

JNSA 

2b  j 

JNSA 

it  \ 

JNSA 

27 

JNSA 

2£  ! 

JNSA 

20  [ 

JNSA 

ID  S 

JNSA 

3 1 j 

JNSA 

32 

JNSA 

33 

JNSA 

34 

JNSA 

3b  i 

JNSA 

2t  i 

JNSA 

37  | 

JNSA 

3«  j 

JNSA 

30  : 

JNSA 

4o  i 

JNSA 

4 1 ! 

JNSA 

42  j 

JNSA 

43  i 

JNSA 

44  , 

JNSA 

4 5 j 

JNSA 

4fc 

JNSA 

4 7 

JNSA 

4t 

JNSA 

49 

JNSA 

bG 

JNSA 

bl 

JNSA 

b2  ‘ 

JNSA 

b3  ", 

JNSA 

54 

JNSA 

bb  • 

JNSA 

56  /' 

JNSA 

57  ' 

JNSA 

5E  9 

166 


R 


r 

% 


c 

JNSA 

59 

00  30C  J*  l,  1 7 

JNSA 

CO 

0C  3CC  1*1, NCF 

JNSA 

6 1 

SPLP I I , J ) = SPLP(I,JI-DSPL(l,J) 

JNSA 

62 

LiJ 

o 

o 

CCNT INUE 

JNSA 

63 

c 

JNSA 

64 

c 

CHECK  FOR  PR I MAR V AND  SECCNOAR Y < UPBCFANS 

JNSA 

o5 

c 

NlTH  CCANNGLAK  NOZZLE  £ ) 

JNSA 

66 

c 

JNSA 

67 

IFUTYPE.Ea.cJGO  TO  2CC 

JNSA 

6a 

66 

RETURN 

JNSA 

69 

2CG 

CONTINUE 

JNSA 

70 

c 

JNSA 

71 

c 

SECONDARY  JET  CASEITURBOFANJ 

JNSA 

72 

c 

CONSTANT  TERM  OF  CORRELATION  TERN 

JNSA 

73 

c 

JNSA 

74 

C IAMTS=D IAMT 2 

jNSA 

75 

I F 1 IUNIT.E(3.0)DIAMTS*0IANT2*3.28C833 

JNSA 

7t 

CCNST  = 0SL  2*6. 0E-  7'*C2*C2/(32.174*VS)*0SL2  +2?00»*DI AMTS*C  I AMTS  • 

JNSA 

77 

*32.174/ICZ*CZ*VS) 

JNSA 

7 8 

c 

JNSA 

75 

c 

CALCULATE  JET  NGISE  SHIELDING  AT 1ENUAT ICA  SECONDARY  JET 

JNSA 

ec 

c 

JNSA 

81 

CALL  JNSA SP ( APY  « APZ ,ALTR ,BCF ,£LCIST,M,NCF, CONST , SNCEtCSDE,  DS PL ) 

JNSA 

82 

c 

JNSA 

83 

c 

FROM  THE  LNSHI ELOEC  SPECTRUM  SINNED  CN  AN  ENERGY  BASISISPLT) 

JNSA 

04 

c 

IS  SUBSTR AC  TEU  THE  SHIELDED  S PEC T RUMS (PR I MARY  AND  SECCNDARY ) 

JNSA 

85 

c 

GIVING  THE  JET  SHIELDING  ATTENUATION 

JNSA 

66 

c 

JNSA 

67 

DO  4C0  J* 1 , 17 

JNSA 

86 

CC  ACC  1*1, NCF 

JNSA 

89 

SPLSI  l,J)=SPLS( 1 » Jl-DSPL (1 , J) 

JNSA 

5C 

DSPLI  I, J l*SPLT(I ,J)-1G.*AICG1C< 1C.»*(.1*SPLP(I,J) >♦ 

JNSA 

91 

* 1G«**( . I*SPL  S( I , J) >1 

JNSA 

52 

40C 

CCNT INUE 

JNSA 

93 

GC  10  66 

JNSA 

94 

END 

JNSA 

95 

167 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

C 

c 

c 


SUBROUTINE  JNSASP  (APY,APZ»AL TR  , BCF  , SIC  1ST »M,NCF, CONST, 

* SNDE  fCSOfcfCSPL) 

PURPOSE  TO  CALCULATE  THE  JET  NCISE  SHIELDING  ATTENUATION 
FOR  AN  EON  CONFIGURATION  PCS  BOTH  TURBOJETS  ANO 
TURBOFANS  USING  CO-ANM  LAP  NOZZLES 


INPUT 


APY  ARRAY  CF  A/C  COORDINATE  IN  DIPECTICN  CF 
FLIGHT  PATHPRCJECTIGN  CN  THE  GROUND  I FT ) 

APZ  ARRAY  CF  A/C  VERTICAL  COORDINATE  A8GVE  GROUND 

ALTR  OBSERVER  HEIGHT  ABOVE  THE  GROUND 

BCF  GEOMETRIC  MEAN  FPECUENCIES  ARRAY 

SLOIST  SIDELINE  POSITION  CF  OBSERVER 

M NO.  OF  SIDELINE  OBSERVER  PCSITIGNS 

NCF  NC.  CF  GEOMETRIC  MEAN  FRECUENCIES 

CONST  CONSTANT  PART  CF  REFERENCE  CORRELATION  TERM 

SNDE  SINE  OF  THE  ENGINE  INCLINATION  ANGLE 

CSOE  COSINE  CF  ENGINE  INCLINATION  ANGLE 


OLTPUT  DSPL 


ARRAY  CF  JET  NCISE  SHI  EL  01 NG  ATTENUATION 


DIMENSION  APYI1G,17) , APZ (1C, 171 ,ECF 129) .CSPL 129,17), SLCISTI  IC) 


FOR  EACH  FREQUENCY  A FUNCTION  CF  EACH  REFERENCE  CORRELATION 
TERM  ITERATE  H3R  EACH  A/C  PCSIIICN  RELATIVE  TC  THE  OBSERVER 

CO  2CC  1*1, NCF 
ZCEO=CUNST*BCP( I I 


ITERATE  FOR  EACH  A/C  POSITION  RELATIVE  TC  THE  OBSERVER 
TEAT  IS  FUR  EACH  CF  17  DIRECTION  ANCLES 


ul  ICC  J=l,l7 
ZEN=AP7 (M, JI-ALTR 

AKGl-SQRTUPYIM,  J)*APY<M,  J)*ZEMZEM 
ARC2=-APY(M,  J J *CSni— ZEN*  SNDE 


DIRECTION  ANCLE  CALCULATION 


TFETA=1.57C79C327 

IP( AP G 1. G T. 0. 0) THET A= ACCS (ARG2/A RGI) 

1)EI.*S(3RT<  SLDIST(M)#SLDI$TIH)*AFY(M,J)*APY(M  , J)  + ZEMZ  tM 
E TA=AS  INI  5LUI  ST  CM  ) /DEM 


•,  IRtC  TlVITY  tFF.-U  T 


ZFfc=C.C 

CRK  = 3. I A I 592 6- THE  T A 

IF  I AHSI GRK ) .GT.  I . CE-3 1 ZE E =ZCEC*CCS  CF.T  Al  / ( L.  + .033*(  THET A/GRK) **4) 
J FT  NC I SI  SHIELDING  AT  TENLA  I ILN 


100  DSPL  1 1 , J )s  1C./P ALCG1C  ( l.+ZEE  ) 
200  CONTINUE 
RETURN 
ENC 


JNSAsP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSAsP 

JNSASP 

JNSASP 

JNSASP 

JNSAsP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSAsP 

JNSASP 

JNSASP 

JNSAsP 

JNSASP 

JNSASP 

JNSASP 

JNSAsP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSASP 

JNSAsP 


2 

v 

9 

5 

6 

7 

8 
■c 

10 

II 

I? 

13 

19 
IS 
10 
17 
IP 
1° 

20 
21 
22 
23 
29 

25 

26 
2 7 
2 fc 

29 

30 
Jl 

32 

33 
39 
35 
3c 

37 

38 

39 

90 

91 
*,2 
93 
99 
95 
9t 

97 

98 

99 
aC 

51 

52 

53 
59 

55 

56 

57 
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SLBRCUT INE 

LGMTRYiNH, RADII, TLENG, ECH.TLCVH) 

LGMTKY 

2 || 

LGMTkY 

3 H 

AUTHOR 

G.  A.  WEST 

LGMTRY 

4 m 

LGMTftY 

5 H 

PURPOSE 

TC  CALCULATE  THE  EFFEC1I VE  CLCT  HEIGHT  AND  THE 

LGMTRY 

t || 

RATIO  OF  TREATED  AREA  TC  CRCSS  SECTIONAL  AREA 

LGMTRY 

7 lli 

FOR  A CLCT  LINING 

LGMTRY 

£ H 

LGMTRY 

S I 

OESCRIPTILN  OF 

VARIABLES 

LGMTkY 

LGMTKY 

10  1 

U f 

12 

VARIABLES 

IN  COMMON  - SEE  MAIN  PROGRAM 

LGMTRY 

LGMTKY 

13  § 

variables 

IN  CALLING  SEGLENCE 

LGMTRY 

14  i 

LGMTkY 

15  3 

INPUT 

L C-MTRY 

16  1 

LGMTkY 

l?  1 

Nk 

- NUMBER  CF  HALLS  IN  LINING 

LGMTKY 

13  * 

KAO  1 1 

- RADII  CF  HALLS  IN  LINING 

LGMTkY 

19  I 

TLENG 

- TREATMENT  LENGTH  CF  HALLS  IN  LINING 

LGMTKY 

2C  S 

LGMTkY 

21  1 

OUTPUT 

LGMTRY 

22  | 

LGMTKY 

2 J J 

EOF 

- EFFECTIVE  DLCI  HEIGHT 

LGMTKY 

2,1  1 

TLOVH 

- RATIO  CF  TREATMENT  LENGTH  TC  EFFECTIVE  CUCT 

HEIGHT 

LGMTRY 

25  If 

LGMTRY 

26  | 

LOCAL  VARIABLES 

LGMTkY 

27  1 

LGMTRY 

26  1 

AFLOW 

- CRCSS  SECTIONAL  FLCH  AREA 

LCM1TKY 

29  I 

I 

- GENERAL  DC  LCCP  INCEX 

LGMTRY 

3C  I 

LASTV, 

- INDEX  CF  INNERMOST  HALL  THAT  IS  TREATED  ON 

BOTH 

LGMTRY 

i 1 1 

SIOES 

LGMTKY 

32  3 

PI 

- MATHEMATICAL  CONSTANT 

LGMTKY 

33  1 

SUM 

- SUMMATION  CF  TREATMENT  LENGTH  CF  ALL  HALLS 

L C-MTRY 

34  | 

TAREA 

- tctal  TREATEC  AREA 

LGMTKY 

35  | 

TL 

- AVERAGE  TREATMENT  LENGTH 

LGMTKY 

3fc  i 

TLMAX 

- MAXIMUM  TREATMENT  LENGTH  CF  A WALL 

LGMTRY 

37  I 

TURIN 

- M.INUMUM  TREATMENT  LENGTH  CF  A HALL 

LGMTRY 

3E  3 

LGMTRY 

^ I 

LGMTKY 

4C  i 

0 IMF  NS  ION 

RADII ( l ) , TLENG  ( 1 1 

LGMTKY 

4 1 I 

LCMTRY 

42  1 

CATA  PI/3. 

14159245/ 

LGMTkY 

*•2  I 

LGMTRY 

44  I 

CALCULATE  THE  CRCSS  SECTIONAL 

LGMTRY 

45  1 

AREA 

LGMTRY 

4fc  | 

AFLCJfc  * PI 

* RADII (1)  * RADII (1) 

LGMTRY 

47  1 

IF  (NH  ,GT 

. 1)  AFLOh  = AHLOH  - PI  * RADIICNW)  * RADIUM) 

LGMTRY 

4£ 

CALCULATE  THE  TREATEC  AREA 

LGMTRY 

49 

I AREA  a C. 

C 

LGMTRY 

5C 

CC  IC  1=1, 

Nk 

LGMTRY 

5l 

TAREA  = TAREA  ♦ 2.G  * PI  * RADII  (I)  ♦ TLENG  1 1 ) 

LGMTKY 

52 

1C  CONTINUE 

LGMTkY 

53 

THE  HALLS  APE  TREATEC  CN 

BOTH 

LGMTRY 

54 

SICES  EXCEPT  FOR  THE  OUTTER 

LGMTRY 

55 

AND  INNERMOST  WALLS. 

LGMTRY 

5fc 

IF  (Nk  .LE 

. 2)  GC  TC  25 

LGMTkY 

57 

ADC  AREAS  CF  CTHEK  SIDES 

UF  THE 

LGMTRY 

5£ 
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C I MERICR  WALLS  LGMTRY 

LASTW  = NW  - l LGMTRY 

DC  20  l=2»LASTW  LGMTRY 

TAREA  - TAREA  * 2.0  * PI  * RAOIKII  * ILENGU)  LGMTRY 

20  CONTINUE  LGMTRY 

CALCULATE  RATIC  Cf  TREATEC  AREA  LGMTRY 

TC  CRCSS  SECTIONAL  FLOW  AREA  LGMTRY 

(L/H)  LGKTkY 

25  TLOVH  = C.325  * TAREA  / Af  LCW  LGMTRY 

CALCULATE  THE  APPARENT  TREATMtNT  LGMTKY 

LENGTH  (LI  LGMTRY 

TLMAX=TLENG(1)  LGMTRY 

IF  ( NW  .EQ.  I)  GO  TG  AC  LGmTkY 

TlMTN  = TLMAX  LGMTRY 

SUM  = C.C  LGMTkY 

0 C 30  1=  l *NW  LGMTkY 

IF(TLENGU)  .GT.  TLMAX)  TLMAX  «=  ILENGU)  LGMTRY 

IF  (TLENG(I)  .LT.  TLMIN)  TLMIN  = TLfcNG ( I ) LGMTrY 

SUM  = SLM  ♦ TLENG(I)  LGMTRY 

3C  CCNTINL6  LGMTRY 


IF  THE  RATIC  CF  THE  LONGEST  WALL  LGMTrY 

ic  the  shcrtest  wall  is  greater  lgmtky 
THAN  1.5  The  apparent  treatment  lgmtky 
LENGTH  IS  ECUAL  TC  THE  LONGEST  LGMTRY 
WALL.  OTHERWISE  IT  IS  EvlUAL  TG  LGMTRY 


THE  AVERAGE  LENGTH  LGMTRY 

IF  (TLMAX/TLMIN  .GE.  1.5)  GC  TC  4C  LGMTKY 

TL  = SUM  / FLOAT  INK)  LGMTkY 

Gi;  TG  5G  LGMTKY 

C LGMTkY 

AC  TL  = TLMAX  LGMTKY 

C CALCULATE  EFFECTIVE  CUCT  HEIGHT  LGMTkY 

5C  PC'  = TL/ULCVH/C.65)  LGMTKY 

C LCMTKY 

RETURN  LGMTKY 

ENC  LCMTkY 
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subroutine 

LIFTFN 

LIFTFN 

2 

C AUTHOR 

0.  F.  MEUDRUM 

LIFTFN 

3 

c 

LIFTFN 

4 

C PURPOSE 

TO  PREDICT 

LIFT  FAN  NOISE  FCR  THE  P H*>-2  B 

LIFTFN 

6 

C 

NASa-AMFS 

FOOTPRINT  CONTRACT  NASA-6969. 

LIFTFN 

6 

C 

LIFTFN 

7 

C METHOD 

AS  DESCRIBED  »N  REFERENCE  I). 

L IFTFN 

6 

C 

L IFTFN 

S 

C INPUTS 

VIA  LABLED 

COMMON  LFTFAN 

L IFTFN 

1C 

C 

L IFTFN 

11 

C 

NB 

NUMBER  CF  FAN  BLACES  FOR  EACH  STAGE 

LIFTFN 

12 

C 

WHERE  1 E I 6 NUMSTG 

LIFTFN 

13 

c 

FPR 

FAN  PRESSURE  RAIIC 

LIFTFN 

14 

c 

OIAM 

FAN  INLET  CIAMETER  (INLET  ONLY)  FT 

L IFTFN 

15 

c 

RSS 

MINIMUN  RCYCR/ST ATCR  SPACING  PERCENT 

LIFTFN 

16 

c 

AREA 

FAN  DISCHARGE  AREA  ( ACT  ONLY)  FT *FT 

LIFTFN 

17 

c 

RNI 

ROTOR  EEC  RPM 

LIFTFN 

IB 

c 

RTS 

RELATIVE  TIP  MACH  NUMBER  OF  THE 

L IFTFN 

IS 

c 

FIRST  STAGE  WITHOUT  INLET  GUIDE 

LIFTFN 

20 

c 

VANES  (IGV).  IF  LESS  THAN  1 

L IFTFN 

21 

c 

IGV  WILL  BE  ASSUMED  FCR  THE  FIRST 

LIFTFN 

22 

c 

STAGE  (INLET  FAN  ONLY). 

L IFTFN 

23 

c 

CKTFPR 

FAN  PRESSURE  RATIO  FCR  THE 

L IFTFN 

24 

c 

RELATIVE  TIP  MACH  NUMBER  CF 

LIFTFN 

25 

c 

1.025  (INLET  FAN  CNLY) 

LIFTFN 

26 

c 

ANGLFT 

ENGINE  INCLINATION  ANGLE 

LIFTFN 

27 

c 

L IFTFN 

2f 

c 

VIA  CABLED 

1 COMMON  SWITCH 

LIFTFN 

29 

c 

LIFTFN 

30 

c 

NUMENG 

NUMBER  CF  NCISE  SCURC.j  CF  THE  SAME 

LIFTFN 

31 

c 

NOISE  TYPE. 

LIFTFN 

32 

c 

LIFTFN 

33 

c 

VIA  LA8LEC 

1 COMMON  GCCMCN 

LIFTFN 

34 

c 

L IFTFN 

j5 

c 

NCF 

1/3  OCTAVE  OF  FULL  CCTAVE  SWITCH 

L IFTFN 

36 

c 

CR  NLMBEP  OF  FREQUENCY  BANDS  18  OR  241 

LIFTFN 

37 

c 

RE7A(24) 

DIRECTIVITY  ANGLES 

l ift: 

, £ 

c 

LI!  rN 

a 

c 

VIA  LA8LED  CCMMCM  GFPAM 

LIFTFN 

~tt 

c 

LIFTFN 

41 

c 

AMACH 

MACH  NUMBER  CF  THE  AIRCRAFT 

LIFTFN 

42 

c 

NOBS 

NUMBER  CF  OBSERVER  POSITIONS 

LIFTFN 

43 

c 

.IFTFN 

44 

c 

VIA  LABLED  CCMMCR  5LMSPL 

LIFTFN 

4 b 

c 

L IFTFN 

46 

r 

SSPL 

CURRENT  TCTAL  PREDICTED  NOISE  FOR  NCF 

L IFTFN 

47 

c 

(3  OP  241  FREQUENCIES,  AT  NC6S  OBSERVER 

LIFTFN 

4 8 

c 

POSITIONS  FOR  17  DIRECTIVITY  ANGLES. 

LIFTFN 

49 

c 

L IFTFN 

50 

c 

VIA  LABLED  CCMMCN  ANGLE  (SET  UF  BV  SUBROUTINE  ANGLES 

LIFTFN 

51 

c 

LIFTFN 

52 

c 

PS( 

17  DIRECTIVITY  ANGLES  FCR  EACH  OF 

LIFTFN 

5 3 

c 

NOBS  OBSERVER  POSITIONS. 

L IFTFN 

5 4 

c 

PSIO 

17  DIRECTIVITY  ANGLE  PROJECTIONS  FCR 

L IFTFN 

55 

c 

EACH  CF  NCBS  CBSERVEK  PCSITICNS 

L IFTFN 

56) 

c 

BETA 

ELEVATION  ANGLE  PROJECTION  FOR  EACH 

LIFTFN 

7 

c 

CF  NCBS  OBSERVER  PCSITICNS. 

LIFTFN 

56 

171 


EACH  COMPONENT  IS  MRXTTEN  ON  TAPE  ON  flLE  10 
FOR  EACH  CF  NCF  BANOS  FOR  EACH  OF  NOBS  CBSERVER 
POSITIONS. 


OUTPUTS 


VIA  CABLED  CCMNCN  SLMSPL 


SSPL  CURRENT  TCTAL  PREDICTED  NCISE  FOR 

8 OR  24  FREQUENCIES*  AT  NCBS  CBSERVER 
POSITIONS  FOR  1?  CIRECTIVITY  ANGLES. 

VIA  LABLEO  COMMCN  ANGLE  ISET  UP  8Y  SUBROUTINE  ANGLES 

PSI  17  0IRECT1VJ  TV  ANGLES  FOR  EACH  OF 

NOBS  CBSERVER  POSITIONS. 

PSIC  17  DIRECTIVITY  ANGLE  PROJECTIONS  FOR 

EACH  CF  NCBS  CBSERVER  POSITIONS 
BETA  ELEVATION  ANGLE  PROJECTION  FOR  EACH 

CF  NCBS  CBSERVER  POSITIONS. 


FUNCTION  SUBPRGM  COS 


ESHLOG  PNRSUM 


SUBROUTINES 


ANGLES  UNIT 


FANNCS  ZERO 


CCMMON  /LFTFAN/  NB  ,FPR ,01AM , ASS .AREA ,RN1 .RTS .CRTFPR. ANVLFT , 
♦ ICOR  8*L INB.NTF6. IMA0.LGM8.NhL8 .ICPB.IlAYB.TFfldO). 

♦PCTA8( 10). PLA6I10) .ELGH8.E0H8  «R1M8  (id .TL8 ( 10) .CF8.FM8 
CUMMON/ SM»TCH/NTYPE .ITYPE«NENG.I0CP.IPRT(?).1CN(1S). NLOPT 

constants  used  in  internal  calculations 


CCMMON  /GCONSI/  IN.IO.I T* ,IT2,FC»F1,F2,F3,F4,F5#F4,F7.F8»F9,F10, 

* 10. II. 12. 13.14. 15 . 14.(7. 18. 19. 110.Pl. P33.P5. P001. 

* EPS,UNDEF,BL,lC0»DPR.RP0,ETA<17>,ML,FMl,Il7»A,PI 

VARIABLE  SET  CALCULATED  IN  THE  PROGRAM  PROCESSING 

COMMON  /GCQMGN/  NCF.NK .BCFI24) . T SFl (24 . 10 « 17 ) .SPLTI 24. 17 ) « 
*BUF(25J^R6TA<17). SPL2 (171 .TGAGR  <241 .OCPSF 117 ) 

CCMMON /SUMSPL/SSPL (24 » 1C. 17 ) 

COMMON /PNLD/ PS PL ( I7.2C) , EPNL ( 5 , I C ) .TEPNL ( 5 , 101 


FREQUENCY  BANOS  USED  BY  PROGRAM 

CGMMCN  /GFREQ/  CFREQ(24) .UFRECI25) .PFRECC24) 


GENERAL  INPUT  PARAMETERS 

COMMON/ ANGLE/PS  1(17.10), PSIC<17. Id.  BE  TA(17»ICJ 

CCMMON  /CPRAM/ALTP.ALTR.SLCPE.AMACH.NCBS.SlDIST (10r» If ENG. IUN1T 
* ,ISPTP.M,IATM0$«IAIR.UAIRAB(24I  .NTENP.  TEMPI  501  *T  ALT  (501 
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* ,NPRES,PRES ( 50  • PALI  (50)  , NHLHC»PALT  (501  ,RHUMI0(50)*CTEMP 

LIFTFN 

116 

l 

* , CPRE S, CRHUMO , IEGA , l GDR , CTEF F,DPRES , DHUMI C ,X KN , NO, FLD( 50 ) , 

LIFTFN 

117 

* ZNR(50),ZNI<50),LINECT,MAXLIN,I  FAGE  ,BCG »TCG  ,FLR,AALT, EPF 

LIFTFN 

118 

l 

c 

LIFTFN 

119 

% 

c 

AIRCRAFT-OBSERVER  GEOMETRY  CLTPUIS 

LIFTFN 

120 

1 

c 

LIFTFN 

121 

i 

COMMON  /GEOMO/  APYI 10,1?) ,AP2 (1C. 17) ,P0 (10,17) ,DPND( 10,17), 

LIFTFN 

122 

i 

♦ Bit  10, 171,821 10, 17) ,TDS (17,10) ,7FC ( 17 , 10) , I RR l 10, 17) 

LIFTFN 

123 

\ 

i 

*, APP, TP,RHP , APO,TO,RHO,CA ,CZ,TSP(17,10) ,CCV 

LIFTFN 

124 

t 

c 

LIFTFN 

125 

| 

c 

CONVERSION  CONSTANTS 

LIFTFN 

126 

i 

c 

LIFTFN 

127 

\ 

COMMON /GCON VC /C 1 2,10) , SLDI SX 1 10 1 

LIFTFN 

128 

t 

J 

COMMON /TM SPL /SP Z ( 24,17) ,16(2,3,13) 

LIFTFN 

129 

COMMCN/CRSPLS/OOB ( 17) ,PSCR ( 17 ) ,0 FE (406) ,NPSCR 

LIFTFN 

130 

t 

COMMON/HEAD/ HI N (20  » HCOT  (20)  ,CHIM20) 

LIFTFN 

131 

| 

c 

LIFTFN 

132 

\ 

c 

LIFTFN 

133 

i 

DIMENSION  OEPNDBt 17),VCVTIP(17) 

LIFTFN 

134 

} 

* 

c 

LIFTFN 

135 

* 

s 

c 

LIFTFN 

136 

DATA  VOVT IP/. 0000,. 012 5, . 0250,. C375,. 0500,. 0625,. ,0750,. 0875, 

LIFTFN 

137 

* .1000,. 1125, .1250,. 1375,. 1500,. 1625,. 1750,. 2000, 

LIFTFN 

138 

* .2125/ 

LIFTFN 

139 

DATA  DEPNDB/  0.1G,  1.50,  2.8C,  3.55,  4.85,  5.60,  6.25,  6.75, 

LIFTFN 

14  C 

* 7.15,  7.50,  7.0C,  8.00,  8.17,  8.28,  8.32,  8.38, 

LIFTFN 

V41 

, 

* 8 • 3 E / 

LIFTFN 

142 

c 

LIFTFN 

143 

| 

c 

LIFTFN 

144 

i 

} 

c 

LIFTFN 

145 

I 

t 

KN(8)=iCN(am 

L IFTFN 

146 

i 

c 

LIFTFN 

147 

j 

. 

c 

L IFTFN 

140 

4 

CELTA=ANGLFT*RPO 

LIFTFN 

149 

• 

CALL  ANGLES(NOBS,OELTA» 

L IFTFN 

15C 

c 

LIFTFN 

151 

c 

LIFTFN 

152 

; 

NINLET=C 

LIFTFN 

153 

NAFT=C 

LIFTFN 

154 

IF (0 (AM.GT.O.O)  NINLET=1 

L IFTFN 

155 

IF( AREA.GT .0.0)  NAFT*1 

LIFTFN 

156 

V0=( AMACH+CZ )*S IN(D£LTA-ATAN ( SLCFE) ) 

LIFTFN 

157 

J 

EX=DIAK 

LIFTFN 

158 

v: 

(F(NINLET.LE.O)  DX«SGRT ( AREA/PI) 

LIFTFN 

15S 

VTIP-0X*RNi*PI/6C.C 

LIFTFN 

16C 

Vi 

IF  (VTIP  .IE.  0.)  GC  IC  40 

LIFTFN 

161 

i 

U 

DELOB=TBLL'  1(  VO/ VT I P,  VCVT I P ,0EPNCE , 1 ,17) 

LIFTFN 

162 

i 

5 

CEIOB-O.O 

LIFTFN 

163 

yQ 

c 

LIFTFN 

/,64 

"4. 

c 

LIFTFN 

165 

1'  ’iS 

>dl 

c 

LOOP  FOR  THE  NUMBER  OF  CBSERVER  FCSI TICKS 

LIFTFN 

let 

* j* 

c 

L IFTFN 

167 

01 

40  CONTINUE 

LIFTFN 

166 

F0PF  * FLGAKNB)  * RNl  / 6C. 

LIFTFN 

169 

00  1000  Ms  1, NOBS 

LIFTFN 

17C 

g§ 

CALL  L INCOR 1 SPZ 1 1 , 1) , I MA 6 ,LGM8 »E ICH8  » ECH8 »NHL8 ,R1M8,TL8, 

LIFTFN 

171 

* ILAY8  ?MB,IDP8,PSI(l,M) ,NCF ,eCF , PLA8 , 

LIFTFN 

172 

173 
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i 

* CF8,PCTA8»NTF8,TF8,DOPSF,SFL2#  IC0R8, 16(1,1, IT YPE 1 ,LIN6, F8P F) 

LIFTFN 

173 

LIFTFN 

174 

CALL  ZERO! SPLT $ 4C8 ) 

LIFTFN 

175 

LIFTFN 

176 

LIFTFN 

177 

LIFTFN 

178 

CALCULATE  THE  INLET  FAN  NOISE  PRECICTICN 

LIFTFN 

175 

LIFTFN 

180 

CALL  FANNCS I COP SF  t PSI !1»P)  , S PLT  (1 , 1 ) , I GCP , I .NINLET » NAFT.NB, FPK, 

LIFTFN 

181 

1 

DlAM*«SS,AREA,RNl,RTS,CRTFPR,CELDe,0.0,0) 

LIFTFN 

182 

LIFTFN 

183 

LIFTFN 

184 

45 

CONTINUE 

LIFTFN 

185 

LIFTFN 

186 

CONVERT  TO  A UNIT  OR  INDEXED  SPECTRA 

LIFTFN 

187 

LIFTFN 

188 

CALL  LNlT(i5C.,l7,SPLT<l,m 

L IFTFN 

185 

ENG*NENG 

LIFTFN 

15C 

IF(ENG.LE.O.O)  ENG=1.C 

LIFTFN 

151 

ELVANG*9C.O 

LIFTFN 

192 

DANGLE3— 45.0 

LIFTFN 

193 

ENS=ESHLOG( 0 ANGLE  »ELVANG»ENG) 

LIFTFN 

194 

DO  50  J= 1 » 17 

LIFTFN 

155 

OC  5C  K*  1 *24 

LIFTFN 

196 

50 

SPLT(K,J)=SPLT(K,JJ-ENS 

LIFTFN 

197 

IF(NCF.EQ.24l  GO  TO  3CC 

LIFTFN 

198 

LIFTFN 

199 

CONVERT  1/3  OCTAVE  TO  FULL  OCTAVE 

L IFTFN 

200 

LIFTFN 

201 

CC  20C  J=l* 17 

LIFTFN 

2C2 

OC  200  K* i » 8 

L IFTFN 

202 

TMP  = C. 

LIFTFN 

204 

OC  100  L=  1 « 3 

L IFTFN 

205 

JC  = 3 * K + L - 3 

LIFTFN 

206 

IOC 

TMP  = PhRSOMITPP,  SPLT ( JC» J) ) 

LIFTFN 

207 

20C 

SPLT! K» J ) = TMP 

LIFTFN 

2C8 

LIFTFN 

205 

LIFTFN 

21C 

ADO  TC  CURRENT  TOTAL  AND  kRITE  CN  TAPE  10 

L IFTFN 

211 

L IFTFN 

212 

L IFTFN 

213 

3CC 

CC  4C0  J* If NCF 

LIFTFN 

214 

00  35C  K=1 » 1 7 

L IFTFN 

215 

SPLT(JtK)=SPLT(J»K)-SPZ(J*KI 

L IFTFN 

216 

350 

SSPLt J,MtK)=PwRSUP<SSPL< ,SFLTI J,KJ) 

L IFTFN 

217 

400 

CONTINUE 

L IFTFN 

216 

IF( IPRTI 71.NE.7JGO  TC  41C 

L If TFN 

219 

CALL  NO  ISO! IPRTI 7)  ,M,NK, 10,CHIF , ILM T.SLC ISX IM| ,PFREU.SPLT(1, 1 ), 

LIFTFN 

220 

* NCF « I T YPE I 

LIFTFN 

221 

41C 

CONTINUE 

LIFTFN 

222 

OC  36C  JC  = l * NCF 

L IFTFN 

223 

DC  36C  KC*1»  17 

l IFTFN 

224 

360 

SPL  T ( JC  f KC )- SPLT ( JC *KCI— TSPL  I JC  »KCI 

LIFTFN 

225 

CALL  PNLSUBI SPL T U , 1 1 #PSPl I 1 , P) , TFC ( 1 , P) ,EPNL U , PI , S PL2, 

LIFTFN 

226 

♦ TEPNL ( l*MJiNK»BCCfTCG»FLRiP;NC8S;IRP (f, li  i 

LIFTFN 

227 

IF!  IPRTI 3J.NE.3IGC  TO  1000 

L IFTFN 

228 

CALL  NO  ISO!  IPRT  I 3)  *M *NK  , 12  »CH N . I LNI  T , SLCISX  IMi  # PFREC. 

LIFTFN 

229 

174 


LIFTFN 

LIFTFN 

L1FTFN 

LIFTFN 

LIFTFN 

LIFTFN 

LIFTFN 
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SUBROUTINE  L 1NC0R < SP  , 1 1 , 1 2.  A 1 , A2 , 1 3 , *3  ,A4  , 14 , A5,  15 . A6,  1 6 . A7. 

i ' 

L INCUR 

2 

* 

A8,A9,A10,I7,A11,A12,AU,I8,I9,!10,A14) 

L INCUR 

3 

\ 

SP=SPZ  I 1=1 MAS  <6  DENOTES  NCISE  POOULE  NUMBER! 

LINCOR 

4 

12=LGMS  A 1=EL0H6  A2=EDH£  I3*KWL£  A3=RIM&  A4=TL£ 

L INCUR 

5 

14= ILAY6  A5=FM£  I5=10F£  A6*PSI(1,IJ  I6=NCF 

LINCOR 

to 

‘ 

A7*BCF  A8*PLA£  A9=CF£  A10=PCTA£  I7=NTF£  A11=TF£ 

LINCOR 

7 

A 12=D0PSF  A13  = SPL2  I8=1CCR£  19=18  <1 , 1 , 1TYPE ) 110=LIN£ 

LINCOR 

8 

A 14=FBPF 

LINCOR 

9 

COMMON/ ICPATH/NCAS ,NCCF , MYP , IC ,M5N, I ARRAY  12) 

LINCOR 

1C 

CCMMON/SN ITCH/NT YPE, I TYPE 

LINCOR 

11 

COMMON/ I SWK/I SwT (3,13) 

LINCOR 

12 

DIMENSION  SP(24,17) ,A3li)  ,A4tl)  ,A6<17)  ,A7(24),A8(1», 

LINCOR 

13 

i 

* 

A10(  U,AUtl»  ,A12(l),A13(l)  ,19(2,31 

LINCOR 

14 

DIMENSION  SCR( 17) ,SET ( 17) 

LINCOR 

15 

OATA  SCR/I7*l-C/ 

LINCOR 

lo 

ISWT(NCOF,ITYPE)=C 

LINCOR 

17 

DO  2 N=  1*24 

LINCOR 

18 

i 

00  2 J=1 » 1 7 

LINCOR 

19 

2 

SP(N,J)=C. 

L INCUR 

2C 

IFIIIC  .EG.  CICC  TO  ICC 

L INCOR 

21 

!F(  17  .LE.  101G0  TC  4 

LINCOR 

22 

CALL  ERROR!  ITYPE, 4,91 

L INCOR 

23 

1 7=  1C 

LINCOR 

24 

4 

CONTINUE 

LINCOR 

25 

IF ( I 7 .Gl.  C)GO  TO  5 

LINCOR 

2fc 

17=1 

L INCOR 

27 

All! 1>=A14 

L INCUR 

28 

A 1C( 11=100.0 

LINCOR 

29 

5 

CONTINUE 

LINCOR 

30 

IF(U  .EQ.  1 .OR.  12  .EG.  CIGC  TC  10 

LINCOR 

Jl 

If ( 1 3 .LE.  1C)  GG  TO  to 

LINCOR 

32 

CALL  ERROR! ITYPE,4,1C1 

LINCOR 

33 

GG  TO  IOC 

L INCOR 

34 

6 

CGNTINUE 

LINCOR 

35 

I F I 13  .EQ.  11GQ  TC  1C 

L INCOR 

36 

IF  I 13  .GE . 2)  GG  TO  7 

L INCOR 

37 

CALL  ERROR! ITYPE,4»llJ 

LINCOR 

3e 

GC  TO  ICC 

LINCOR 

39 

7 

CONTINUE 

L INCUR 

4C 

OC  8 1=1,13 

LINCOR 

41 

8 

A3! I )=-A3i I ) 

LINCOR 

42 

CALL  S0RTX«A3,A4,I3) 

LINCOR 

43 

V 

OC  9 1=1,13 

LINCOR 

44 

9 

A3!I  )=-A3( I ) 

LINCOR 

45 

.i 

K 

CGNTINUE 

LINCOR 

46 

* - 

OC  11  1=1,17 

LINCOR 

47 

SET!  n=Al2(Ii 

L INCOR 

48 

iM 

IF! I TYPE. EQ. 6. OR. I TYPE. EC. 9)  SEHI)  = SCR(IJ 

LINCOR 

49 

1 

CONTINUE 

LINCOR 

50 

CALL  LINING  ISP!  1,1)  , 11 , 1 2,A1  , A2 , 13  ,A3,  A4 , 14  , AS  , 1 1>,  A6, 16,  A7, 

LINCOR 

51 

•1 

* 

A8,A9,A1C,I7,A11,SET,A13) 

L INCOR 

52 

GC  TC  12 

L INCOk 

53 

a 

100 

CONTINUE  „ 

LINCOR 

54 

'{k 

12 

CONTINUE  « 

LINCOR 

55 

i 

IF! I8.EQ.01G0  TO  18 

L INCOR 

56 

m 

17 

CALL  C0RSPHI8, 19(1,1), 16, A6fSF!l,U) 

LINCOR 

57 

18 

CONTINUE 

L INCOR 

58 

m 

Mh 
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SUBROUTINE 

LININGIATNSPC»IUDMAX,LGECM»£LCH,H,NW,RAOII,TLNG,ILAY, 

LINING 

2 

* OMCHNO* IDOPT 

, DANGLE, NCF,8CF, PE AK,SVEL»PCT,NTF,TF,D0P$FT,SPLC1 

LINING 

3 

LINING 

4 

AUTHOR 

G.  A.  NEST,  REVISEC  21  JUN  72  BY  O.G.  DUNN 

LINING 

b 

LINING 

6 

PURPOSE 

TO  CALCULATE  LINING  ATTENUATION  SPECTRA 

L IMNG 

7 

LINING 

6 

DESCRIPTION  OF 

VARIABLES 

LINING 

<3 

L INING 

IC 

VARIABLES 

IN  COMMON  - SEE  RAIN  PROGRAM 

L INING 

11 

L INING 

12 

VARIABLES 

IN  CALLING  SEQUENCE 

L INING 

13 

L INING 

14 

INPUT 

LINING 

lb 

LINING 

16 

IUDMAX 

- 

SPECIFIES  WHETHER  THE  PROGRAM  CALCULATES  OR  USER 

L INING 

17 

DEFINES  THE  PEAK  LINING  ATTENUATION.  EQUALS  0 IF 

LINING 

18 

PROGRAM  CALCULATES,  1 IF  USER  GEFINES  PEAK 

L INING 

1% 

LGEOM 

- 

SPECIFIES  WHETHER  THE  LINING  ATTENUATION  IS 

LINING 

2C 

CALCULATED  USING  THE  LINING  GEOMETRY  CR  EFFECTIVE 

LINING 

21 

DUCT  HEIGHT  ANO  RATIO  CF  TREATMENT  LENGTH  TO  CUCT 

LINING 

22 

HEIGHT.  EQUALS  I FOR  LINING  GEOMETRY,  C FOR 

LINING 

22 

EFFECTIVE  OLCT  HEIGHT  ANO  RATIC  CF  TREATMENT  LENGTH 

LINING 

24 

TC  OLCT  HEIGHT 

LINING 

25 

ELOF 

_ 

RATIO  OF  TREATMENT  LENGTH  TO  EFFECTIVE  CUCT  hEIGHT 

LINING 

26 

H 

_ 

EFFECTIVE  OLCT  HEIGHT 

L INING 

27 

NW 

- 

NUMBER  CF  WALLS  IN  LINING 

LINING 

28 

RADII 

- 

RADII  CF  WALLS  IN  LINING 

L INING 

25 

TLNG 

- 

TREATMENT  LENGTH  CF  WALLS 

LINING 

30 

IL  AY 

- 

* FUR  SINGLE  WALL  LINING  =2  FCR  DOUBLE  WALL 

LINING 

31 

OMCHNO 

- 

DUCT  MACH  NUMBER 

lining 

32 

IDUPT 

- 

INCICATES  THE  DESIGN  PCINT  CPTICN.  EQUALS  I FCR 

L INING 

33 

SINGLE  OESIGN  PCINT.  2 FOR  MULTIPLE  DESIGN  POINT 

LINING 

34 

DANGLE 

- 

DIRECTIVITY  ANGLE  CF  LINING 

L INING 

35 

NCF 

- 

NUMBER  OF  BANCS  IN  SPECTRUM 

L INING 

36 

BCF 

- 

ARRAY  OF  CENTER  FREQUENCIES  FOR  BANDS  IN  SPECTRUM 

L INING 

37 

PEAK 

- 

PEAK  ATTENUATION  CF  LINING  CEFINED  BY  USER 

LINING 

38 

SVEL 

- 

SPEED  CF  SOUND  IN  CUCT 

L INING 

39 

PCT 

- 

PERCENTAGE  CF  LINING  TREATED  FCR  THE  TARGET 

LINING 

4C 

FREQUENCIES  DEFINEC  IN  ARRAY  TF 

LINING 

41 

NTF 

- 

NUMBER  OF  TARGET  FREQUENCIES  IN  ARRAY  TF 

LINING 

42 

IF 

- 

ARRAY  CF  TARGET  FREQUENCIES 

LINING 

43 

DQPSFT 

- 

OCPPLER  SHIFT  FACTOR,  IE.  1.0  - AMACH  * COSITHETA) 

LINING 

44 

L INING 

45 

OUTPUT 

LINING 

46 

ATNSPC 

— 

LINING  ATTENUATION  SPECTRUM 

LINING 

47 

SPLC 

- 

PEAK  ATTENUATION  WHICH  INCLUDES  EFFECT  CF  CUCT 

L INING 

48 

MACH  NUMBER,  CESIGN  RELEASE  CATE,  DIRECTIVITY  ANGLE 

LINING 

45 

AND  PERCENTAGE  CF  TOTAL  LINING  THAT  IS  TREATED 

LINING 

5C 

FOR  EACH  TARGET  FREQUENCY. 

L INING 

bl 

LINING 

52 

LOCAL  VARIABLES 

LINING 

53 

LINING 

54 

ALFHC 

- 

LOGARITHM  (BASE  1 C » CF  RATIC  CF 

L INING 

55 

< ( FREQUENCY  * CLCT  hE IGHT J/SPEED  CF  SOUND  IN  DUCT) 

L INING 

56 

ALLOH 

- 

LOGARITHM  BASE  10  CF  RATIO  CF  TREATMENT  LENGTH  TO 

LINING 

57 

DUCT  HEIGHT 

LINING 

58 
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CGi.STC 


DANGlC 

DLCTVC 

LDH 

FOX 


MO 

LC 

LNTF 
F10X 
FiOY 
F 1 1 X 
F11Y 
F13X 


1 

J 

SPLMAX 

TLfJVH 


- COMPOS  1 T£  CCRRECT  ICN  FACTCR  WHICH  INCLUCES  THE 
EFFECT  CF  DGCT  MACH  NLM8ER,  DESIGN  RELEASE  DATE 
AND  DIRECTIVITY  ANCLE 

- CGRREC 1 1 CIS  FACTCR  FCR  DIRECTIVITY  ANGLE 

- CORRECT ICN  FACTCP  FCR  DUCT  RACE  NUMBER 

- EFFECTIVE  OLCT  eEIGHT 

- ARRAY  OF  RATICS  CF  TREATMENT  LENGTH  TC  DUCT  HEIGHT 
(LOG  BASE  10) 

- ARRAY  CF  RATICS  CF  ((TARGET  FREG  * EFFECTIVE  CUCT 
HEIGHT)/  SONIC  VELOCITY)  { LCG  BASE  10) 

- ARRAY  OF  PEAK  AT1ENLAT ICNS  FOR  CCRR  ES  FCND  INC 
VALLFS  IN  F 9 X ANC  F9Y 

NACH  NUMBER  ARRAY  FCR  ATTENUATILN  CORRECTION  FCR  OCC 
L0G1C(G)  VALLFS  IN  AT  TEND AT ICN  CCRBECTICN  TA6LC 
FT  H/C  OIMENSICNLESS  TARGET  FK EC  FCR  ATTENUATION  CLf' 
MACH  ARRAY  FCR  K CCRRECT  ICN  TABLE  FCR  SINGLE  I.  IN 
K VALUES  FCR  SINGLE  LAYER  LININGS 
SAME  AS  F10X  FCR  CCUBLE  LININGS 

SAME  AS  FICY  FCR  CCLBLE  LININGS 

- ARRAY  CF  DIRECTIVITY  ANGLES  FCR  >.CRRESFCNCIMG 
CCRRECT I CN  FACTCRS  IN  F13Y 

- ARRAY  OF  DIRECTIVITY  ANGLE  CCRRECT  ILN  FACTORS 
FOR  CORRESPONDING  DIRECTIVITY  ANGLES  IN  FI3X 

• GENERAL  OC  LCCP  INCEX 

- GENERAL  DC  LCCP  INDEX 

- PEAK  LINING  ATTfcNLATICN 

- RATIG  CF  TREATMENT  IfNGTF  TC  EFFECTIVE  CuCT  HEIGHT 


HEAL  MD(  13),LNTF(4),LC(13,4) 

DIMENSION  ATNSPC(24,17),DCP$FT(1> 

DIMENSION  BCFCL)  .PEAK ( 1 ) ,FCT ( i ) ,TF  ( l ) , SPLC ( 1 ) 

OIMENSICN  DANGLE (1) 

DIMENSION  F ICX(4) ,FICY(4,2) 

CIMENsION  RADII (I) ,TLNG(1) 

DIMENSION  F9X(  It)  ,F9Y(6>  ,F9Z(6,11) 

CIMENSION  fllXli)  ,FI1Y(2) 

DIMENSION  F 13X< 11)  ,F13Y(ll) 

LATA  ZERO  /C.C/ 

DATA  F^X  /*  l«CtvC*8t'>0*6fvlja4f~C*2fC«OfOtZ 
DATA  F9Y/-0.4,-0.2,C.C,C.2»C.4,C.6/ 


CArA  F10X/-.4 
DATA  F10Y/4*! 
DATA  FI  IX/-.  A 
DATA  F11Y/.85 


DATA 

F9Z  / 1.3, 

2.1,  2.5, 

2.5, 

2 m If 

l.o 

l 

2.5, 

3.1,  3.5, 

3.4, 

2.6, 

2 .3 

2 

A.  C , 

A. A,  A. 7, 

A. 4 , 

-1.7, 

3.1 

3 

5.6, 

b.Cr  6.2, 

5.7, 

4.6  . 

A.  J. 

A 

7.6, 

8.2,  6.2, 

7.4, 

6.2, 

5.3 

3 

1C.  7, 

11. 2, 1C. 5, 

9#  1 1 

e.  l , 

0.9 

0 

15.5, 

lb. 5, 14. 4, 

12 » 3 * 

1C. 3, 

6.8 

22. C, 19. 3i 16. 0,13. A,  11. 2, 
30.0.26.3*23.0 .17 .A  . 1 A . 6 » 
4 3. C, 37. C, 29.5, 23. 5,18.5, 
63.C»b3.C,41.C,31.C,24.5/ 
-A..E.1./ 

..65, .95, 2*1./ 

.A/ 

.5/ 


l IN  INC 

59 

L IN  ING 

6C 

l IN ING 

61 

L IN  ING 

62 

L INlNG 

63 

LINING 

64 

t IMING 

o b 

L IN  ING 

06 

l IN  INC 

67 

L IN  li.G 

68 

L IN  ING 

69 

LINING 

7G 

L ININC 

71 

L INlNG 

77 

LINING 

7i 

L IN  ING 

74 

L I N I N G 

7b 

L IN  N't G 

76 

l.  IMwC 

77 

l INlNG 

78 

L ININC 

79 

l.  IN!  n g 

80 

lining 

81 

L ININC 

32 

l INlNG 

33 

L IN  !*'tG 

8 A 

L INI.'.G 

85 

L INlNG 

66 

LINING 

87 

L INlNG 

36 

t INlNG 

G9 

L INlNG 

9C 

L IN  ING 

91 

t.  INIiyG 

92 

L IN  INC 

93 

L IMNG 

94 

LINING 

95 

LINING 

9t 

L IMNG 

97 

lining 

98 

L 1 N 1 :'t  G 

99 

L INlNG 

ICO 

L ININC 

ICi 

L IMNG 

1C<: 

L INlNG 

102 

L IMNG 

1C4 

t IMNG 

105 

L ININC 

106 

L IMNG 

1C7 

LINING 

ICb 

L INlNG 

1C9 

L IMNG 

lie 

G IMNG 

111 

LINING 

112 

l IMNG 

112 

L INlNG 

114 

L IM.vG 

lib 
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DATA  MD/-.8,-.6,-.5,-.4,-.3»-.2,-.l,0.,.l,.2».3,.4,.6  / 

OATA  LNTF/-.6020fc,-.3GlC3,C. ,.30103/ 

CATA  LC  /. 4942, .4926,. 4814, .4609*. 4216, .3522, .2201,0., 

1 -.U75,-.2CC6,~.2652,-.3l7C,-.400l,.2253,.2227,.2175, 

2 . 1959,. 1644,. 12C&,.C6446,C. ,-. Q5799  ,-. 1096 1549 , 

3 1972, -.2?e2,.C6070,.G5690, .05308,. 04922,. 04139, 

4 . 02938,. C17C3,C.,-.C24 11 ,-.0467 2, -.0665 l, --.08672, 

5 .1273,13*0.  / 

OATA  Ft3X/3C.O,5C.C,7C.C, 90.0,1 1C. 0,115.0,120.0,130.0, 140.0,  150. C, 
l 16C .0/ 

OATA  F13Y/C. 45,0.70, 0.86, l.CC,  l.CO,  0.96,  0.90,  0.62,  0.42,  0.25, 

l 0.21/ 


HAS  THE  USER  CEFINEC  ThE 
MAXIMUM  ATTENUAT ICN  FOR  EACH 
TARGET  FREQUENCY 

DC  5 N = 1 ,NCF 
00  5 J=1 , 1 7 
ATNSPCIN, J)=/ERO 
FKM.G 

IF  ( ILDMAX  . EQ.  1)  GC  TC  35 

PROGRAM  IS  TC  CALCULATE  MAXIMUM 
ATTENUATION 

HAS  USER  OtFINfcC  THE  EFFECTIVE 
COOT  HEIGHT  AND  RATIO  CF 
TREATMENT  LENGTH  TO  OUCT  HE  loFT 
CR  IS  THE  PROGRAM  TC  CALCULATE 
THESE  LCANTAT IES  FROM  LINING 
GEOMETRY 


ECH  = H 
TLUVH  = 6LCH 

IF  (LGFCM  .EL.  1)  CALL  LGMTRYIN* 
ALLOF  = ALGMG(TICVH) 


* CUTAIN  K CORRECT ICN 

1C  CONI INUE 

I F I I LAY  .EC.  1 )GG  TC  20 
FK=TBLLll CMCHNU ,F11X,F11Y,1,2) 

GC  TC.  30 

3 FK  = TCCU(CMCHNO,F  ICX,F1CY  1 1 , IOC  F 
3 CENT INUF 
CALC  (SPLC)  ARRAY 


HOC  = CCH  / SVEL 
LC.\T  INUE 
CC  IOC  J=l,  17 

OANGLC  = TRLtl (DANGLE  I J ) ,F13X,F13Y 
CCNSTC=.Cl*DANGLC 
CC  6C  1 = 1, NTf 
C = 1.C 

SHLMAX  = PEAKII) 

IF  { ILDMAX  ,E0.  II  GC  TC  50 
ALFHC.  = ALuGlOITFtl)  * HOC) 


»R AUI  l , TING, ECH, TLCVHI 

CALCULATE  THE  EFFECT  CF  OUCT 
MACH  NUMBER  CN  LINING 


n ,1,4) 


CUIAIN  CCRRECT I CN  FCR 
OIPECTIVITY  ANGLE 


,2,11) 


L IMNG 
L IMNG 
LINING 
L IN  INC 
LINING 
LINING 
L IN  INC 
L IMNG 
I INING 
L IN  INC 
L INING 
L IMNG 
L INING 
L I N'lwG 
L INING 
l INING 
LINING 
LINING 
L INING 
L INING 
L INING 
LINING 
LINING 
L IMNG 
LINING 
L INING 
LINING 
L INING 
L IMNG 
LINING 
L INING 
l IN  INL 
L INInG 
LINING 
L INING 
L IMNG 
L INING 
L INING 
L INING 
L INING 
LINING 
l IMNG 
l INING 
L IMNG 
L JNlNG 
L IMNG 
L INING 
L INING 
L INING 
LINING 
L INING 
L INING 
L IMNG 
L INING 
L INING 
LINING 
L IMNG 


180 


**•  •’**•'*  .Las*®  ruAHwow,  ■ 


SPLMAX  = TaLL2(ALFHC«AU0H,F9Y,F9X,F9Z,2,2f6.11,6»  111 
IF  (SPLMAX  .LT.  ZERO!  SPLMAX  = ZERO 
IF(ALFHC.GE.LNTFIAI)  GO  TO  AC 

C =10  .**T8LL2 (DMCHNG  ,ALFHC  #ND»LMF,LC»ttl*l3»A»l3,A) 

AC  1F(  ILAY.NE.DGO  TC  5C 
C=C*FK 

50  C=CONSTC*  C 

SPLC(  I)  = SPLMAX  *C*  PC T ( I ) 

6C  CONTINUE 


CALCULATE  SPECTRUM 

CALL  L ININS! SPLC, TF, NTF, ATNSPC ( 1, J|, BCF, NCF.FK,  DOPSFTI  J1 ) 
100  CONTINUE 
RETURN 
END 


LINING  173 
LINING  17A 
LINING  17! 
LINING  17c 
LINING  17? 
LINING  178 
LINING  179 
LINING  180 
LINING  Idl 
LINING  18* 
LINING  185 
LINING  1 8 A 
lINING  18!: 
LINING  18L 
LINING  137 


uK _ if 


SUBROUTINE  L ININS (SPLC,TF,NTF, ATN  ,bcf,ncf,fk,csfc> 


AUTFGR 


PURPOSE 


O.G.  DUNN 


CATE-  13  JUNE  1972 


TC  CALCULATE  THE  LINING  ATTENUATICN  SPECTRUM  SHAPE 
FOR  MULTIPLE  TARGET  FREQUENCIES  INCLUCING  THE 
DOPPLER  SHIFT. 


DESCRIPTION  OF  VARIABLES 


INPUTS 
l»  SPLC 


2)  TF 

3)  NTF 

4)  BCf 

5 ) NCF 

6)  is 

7)  CSFC 


OUTPUTS 
1)  ATN 


ARRAY  OF  PEAK  ATTENUATION  AT  EACH  TARGET  FRECUENCY 
IN  (08).  INCLUDES  EFFECTS  CF  OUCT  MACH  NUMBER, 
DESIGN  RELEASE  CATE,  DIRECTIVITY  ANGLE,  AND  PER- 
CENTAGE OF  TOTAL  LINING  THAT  IS  TREATED  FOR  EACH 
TARGET  FRECUENCY. 

ARRAY  OF  TARGET  FREQUENCIES.  (HZ) 

NUMBER  OF  TARGET  FREQUENCIES. 

GEOMETRIC- ME AN  FREQUENCIES  FCR  CONSTANT-PERCENT  AGE- 
BAND  ATTENUATION  SPECTRUM.  (HZ  > 

NUMBER  OF  BANOS  FCP  ATTENUATICN  SPECTRUM. 
bANONIOTH  IN  CCIAYES 
OUPPLER  Shi F I FACTOR,  IE. 

DSFC  = CNE  - AMACH  * CC S ( THETA ) 


...  ARRAY  OF  (DB)  VALUES  FUR  ATTENUATION  SPECTRUM. 


L ININS 
L ININS 
L ININS 
L INiNS 

l in  Ins 

L ININS 
L ININS 
L ININS 
L ININS 
L ININS 
L ININS 
L ININS 
LININS 
L ININS 
L ININS 
L ININS 
L ININS 
LININS 
LININS 
L ININS 
LININS 
LININS 
LININS 
LININS 
LININS 
LININS 
L ININS 
LIMNS 


DATA  F12Y  /O. 007776, C 
L C.  1 2 ts , 

> G.935,  C 

) 0.3B,  C 

1 0.06 , C 

CATA  F12XO/-2A.O,  -21 

L -7.5,  -6 

? 3.C,  A 

) 15. C,  18 

CATA  F12Y0/0. 007776, C 
L 0.165,  C 

2 0.55,  C 

5 0.036,  C 

DATA  ZERO/O./ 

OATA  IV.1/C/ 


ZERO-OUT  (ATN)  ARRAY 
IF  ( I Vi  l.NE  .0  )GU  TC  5 
l .0 

IF(NCF.NE.8)K=l«/3. 
IV*l  = l 


.01296, C.C2  16*0.036,0. 06, 0.07, 0.08A, 0.105, 
C.16,  0.21*  0.28,  0.38,0.52,0.70,  0.89, 

.97,  C.59,  0.97,  0.935, .89, 0.70,  0.52, 

. 2€  » 0.21,  0.16,  0. 125,. 105, .08*, 0.07, 

.036 , C. 0216,0.01296,  0.007776/ 

.0,  — 1 8 <•  C , —15.0,  -12.0,  —10.5,  —9.0, 

.0,  — A • 5 , — 3.C,  — 1.5,  0.0,  1.5, 


7.5, 

2A.C/ 


10.5,  12.0, 


. 01296, C. 0216,0. 036,  0.06,  0.075,  0.105, 
. 2A , C.37 , 0.55,  0.7A,  0.92,  0.7A, 

.37,  C.2A,  0.165,  0.105,0.075,  0.06, 

.0216,  G.Cl2S5,.CC777o/ 


LININS 
L ININS 
L ININS 
L ININS 
L ININS 
LININS 
LININS 
LININS 
LININS 
L ININS 
LININS 
LININS 
LININS 
LININS 
L ININS 
LININS 
LININS 
L ININS 
L ININS 
LININS 
L ININS 


l 

3 

1 

c.... 

DIMENSION 

spued) , 

TF  ( 1 ) 

, ATN ( l ) 

, ECF(L) 

L ININS 
LININS 

30 

31 

i 

j 

< 

1 

DIMENSION 

F12XI 371 

, F12Y137)  , F12XC(25)  , 

F12YCC25) 

LIMNS 

32 

k 

DATA  F12X 

/-2A.0, 

-21. C, 

-18. C, 

-15. C,  - 

12.0, 

-11.0, 

-10. 0, 

-9.C, 

LININS 

33 

! 

i 

1 

-8*  C v 

— 7.C, 

-6.C, 

-5.C  , 

-A.0  , 

-3.0, 

-2.0, 

- 1 . C, 

L ININS 

3A 

3 

% 

s 

i 

2 

-0.  7, 

-C.35, 

C.C, 

C .35  » 

0.7, 

1.0, 

2.0, 

3.0, 

L ININS 

35 

! 

3 

A.  C , 

5.C, 

6.  C , 

7.  C , 

8 m 0 9 

9.0, 

10. 0, 

11.  C, 

L ININS 

36 

i 

' 

A 

12.  C, 

15. C, 

18. C, 

21.  C, 

2 A . 0/ 

L ININS 

37 

182 


^ilf>^j^^c!ig^?^'^!^f^^fl^^~f*wili|i'iiiiiiMi  i"  i in r~  « ? ’C"'^ ji w -:  ‘^BEaswiw &&&**&> 


5 

CONTINUE 

L IN  IN  S 

59 

C 

LIN  INS 

60 

C 

OUTTER  LOOP  FOR  EACH  TARGET  FREQUENCY 

L ININS 

i 1 

DC  50  I = 1#NTF 

L IN  INS 

60 

C 

LININS 

63 

c 

DEFINE  CHARACTERISTIC  FREQUENCY  FCR  CCPPLER  FACT CR 

AND  TARGET  FREQ. 

L IN  INS 

fc* 

F0  = TF ( I ) / DSFC 

LININS 

65 

c 

LININS 

!.C 

c 

INNER  LOOP  FOR  EACH  BAND  CF  ATTENUATION  SPECTRUP 

LININS 

c7 

00  50  J = ItNCF 

LININS 

68 

c 

LIMNS 

69 

c 

CALCULATE  THE  NUMBER  OF  (1/3)  CCTAYES  BCF(J)  IS  FRCM  FO. 

LININS 

70 

CBANO  = 4.328C85123  * ALGGIBCF(J)  / FO) 

L ININS 

71 

CBAND-CBAND  *FK 

L ININS 

72 

c 

L tN INS 

73 

c 

CHECK  FOP  FULL  OR  (1/3)  OCTAVE  BAND  ATTENUATION  SPECTRUP  SHAPING 

LIMNS 

7 r> 

IF  (ABSIV.  - l.C)  - . C02 ) 3C,  3C,  20 

LININS 

~ * 

2C  SHAPE  = TBLUKDBAND,  FI  2X,  F 12  Y » 2,  37) 

LININS 

it 

GO  TO  4C 

L ININS 

l i 

30  SHAPE  = TBLUKDBAND,  F12XC,  F12YC,  2,  25) 

LININS 

76 

4C  IF  (SHAPE  .LT.  ZERO)  SHAPE  = 2ERC 

L ININS 

75 

c 

L ININS 

6U 

c 

SUM  ATTENUATIONS  FOR  EACH  TARGET  FREQUENCY  AT  EACH 

PASS  BANC. 

L ININS 

ei 

ATN(J)  = ATNIJI  ♦ SHAPE  * SPLC(l) 

LININS 

82 

5C  CONTINUE 

LININS 

63 

RETURN 

LININS 

6” 

END 

LININS 

85 

11  i 


i .1 


r 

K£f' 
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FUNCTION 

HCHARIXX) 

MCHAK 

2 

MCFAK 

3 

AUTHOR 

K.D.  JCHNSCN 

MCHAR 

A 

MCHAK 

5 

PURPOSE 

RETURN  THE  NUMBER  OF  DIGITS  LEFT  OF  THE  DECIMAL 

MCHAK 

6 

POINT  IN  A FLOATING  POINT  NUMBER 

MCHAR 

7 

MCHAK 

e 

X=XX+.  I 

MCHAK 

<5 

MCHAR* INT ( ALOGICt XI ) ♦! 

MCHAK 

IC 

RETURN 

MCHAR 

11 

END 

MCHAK 

12 

\ 


I 


/ 


^ +-V&4-*.  g+'js&z  > < -. 


*»so.ww»»**‘ w ■»«**-» 


” ;^3ttW*5*k» 


C 


c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  MEASRD 

COMMON  /GCONST/  IN , 10 , 1 T 1 , 1 T2  ,F 0 , FI  ,F2  , F3, F4 ,F5 » F6 , F 7 , F8 , F9,  HO , 

* 1 0, 1 1, I 2, 1 3, 14, 1 5, 16, 1 7, 1 0, 1 9, 1 10, PI. P33,P5, POO  I, 

* EPS,UNDEF,BL,1GD,0PR,RP0,ETA()7)  , Ml , FM1, 1 17 , A, P I 


COMMON  /MEASIN/  NEP,NPSi ,NBETA , DELTA ,EP ( 5 ), PSX ( 1 7) , BETX ( 5 i , 1 COR  12 
COMMON  /GCOMON/  NCF,NK, BCF ( 24) , T SPL ( 24 , 10 , 17 ) ,SPLT l 2 A, 17 ) * 

*8UF l 25) , RETA l 17 ) »SPL2( 17) , TG AGR 124 ) ,DUPSF(17) 

FREQUENCY  BANOS  USED  BY  PROGRAM 

COMMON  /GFREQ/  CFR EO ( 24) ,UFREQ ( 25 ) ,PFRfcQ(24 ) 

CGMMON/SUMSPL/SSPt (24,10,17) 

CGMMON/PNLO/PSPLl 17,20) ,EPNL(5,10) » TEPNL ( 5 , 10) 

COMMON/ ANGLE/PSH 17,10) , PS  10(17, 10), 8ETA(17, 10) 


GENERAL  INPUT  PARAMETERS 


CGMMON  /GPRAM/ALTP,ALTR,SLOPE,AMACH,NOBS,SLDIST( 10) , NTENG, IUNIT 

* , ISP  TRM.IATMOS, I AIR, UAIRAB(24) .NTEMP, TEMPI  50) ,TALT (50) 

* ,NPRES,PRES150),PALT(50) , NHUMID,RALT(50) ,RHUMID ( 50 ) , CT  EM  P 

4 , CPRES,  CRUUMD , IEGA , I GDR ,UTE  MP,OPRE  S, DHUMI D, XKN ,ND,FLD(50)» 

* 2NR( 50) ,ZNI ( 50) ,L INECT , MA XL  I N , I PAGE »8CG»TCG»FLR»  A ALT , EPF 

AIRCRAFT-OBSERVER  GEOMETRY  OLTPUTS' 


COMMON  /GEOMO/  AP Y ( 10 , 1 7) , AP2 ( 1C ,1 7) , PO ( 10 ,17) ,OPNO( 10 , 17) , 
* Bl( 10, 17), B2( 10,1 7), TDS( 1 7,10) ,TPD( 17,10)  , HUM  10, 17 1 
*, APP,TSO, RHP, APO, TO, RHG,CA,CZ,TSP< 17,10) ,COV 
C OMMON/HE AO/HI  N ( 20 ) , HOUT  (20)  ,CHIM20) 

COMMON/ SW I TCH/NTYPE, ITYPE,N£NG, I0CP,IPRT(7) , I CN( 1 3 ) , NLOPT 
COMMON/GCONVC/C ( 2, 10) , SLOI SX ( 10) 

COMMON/ TM SPL/ SPZ (24,17) ,18(2,3,13) 

COMMON/CRSPLS/OOB( 17) ,PSCR ( 17) ,0PB(408) .NPSCR 
COMMON/ I CP ATH/NCAS ,NC0F,NTYP,IC,NRh,lARRAY(2) 


**** 

**■*$ 

**** 

**** 

**** 


0 IMENSION  SPL ( 425,24) 

DU  1 1 = 1,  NEP 

00  1 J=l,NPSI 

DO  L K=  1 .NBETA 

INDEX=I  + 5*(  J-IU7*  (K-i)  ) 

RE AU( ) ( SPL( INDEX,!) ,L=1 ,NCF) 


«>*** 


DIMENSION  SPL<  425,24) 

REWIND  11 
I T=  IN 

ICNl 12 ) = ICN( 12J+1 
IF(NCAS.NG.l) IT=ll 
DO  621  K=l, NBETA 
00  621  1=1, NEP 
DO  621  J=1,NPSI 
INDEX=I+5*(  J-U17*(K-1)  ) 

READ( IT, 625) ( SPL l INDEX , L ), L= 1 , NCF ) 


MEASRD 

2 

MEASRD 

3 

MEASRD 

*t 

MEASRD 

5 

MEASRD 

6 

MEASRD 

7 

MEASRD 

8 

Mf ASRD 

«, 

MEASRD 

10 

MEASRD 

U 

MEASRD 

12 

MEASRD 

13 

MEASRD 

14 

MEASRD 

15 

MEASRD 

16 

MEASRD 

■ 7 

MEASRD 

10 

MEASRD 

IV 

MEASRD 

20 

MEASRO 

21 

MEASRD 

22 

MEASRD 

23 

MEASRD 

24 

MEASRD 

23 

MEASRD 

26 

MEASRD 

27 

MEASRD 

28 

MEASRD 

26 

MEASRD 

30 

MEASRD 

31 

MEASkO 

32 

MEASRD 

33 

MEASRD 

34 

MEASKO 

35 

MEASRD 

3-3 

MEASRD 

37 

MEASRD 

y 

MEASRD 

y. 

ME  AS-  0 

L ■ 

.'EASkD 

4, 

MEASRD 

42 

MEASrD 

43 

MEASRD 

44 

MEASRD 

*(■3 

M E A S r j 

4k 

MEASRD 

47 

MEA'RD 

4 •. 

MEASRD 

4° 

" 1 A „ R u 

- > 

! i A _ 1 0 

^ i 

M1'  '•  A P .7 
M f;  A S K D 
MEASRD 

35 

MEASRD 

-6 

Mt ASK J 

~j  - 

MEASRD 

5 ° 
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i 
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m 
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IF(  IT.EQ.1DG0  TO  621 
WRITEtll,625l(SPLt INDEX ,L) ,L=1,NCF) 
>21  CONTINUE 
625  f GRMATt 8F 10. 1 ) 

>0  CONTINUE 

0ELTAX=DELTA*0. 01745 
CALL  ANGLES! NOB St DEL  TAX) 


DO  300  1=1, NOBS 

CALL  L INCOfU  SPZ ( 1, U ,0, X, X, X,X, X ,X,X ,X,X,PSI ( 1 , 1 ) ,NCP,BCF, 
» X,X,X,X,X,X,X,IC0R12, 18(1,1,1  TYPE) ,0,X» 

00  200  J=1,NCF 
DG  100  K=l, 17 


SPLTt J,K)=TBLU3(EPF,P$I (K,l  > ,BETA(K,I» ,EP,PSX»BETX, 

* SPl(l,J),l,l,l,REP,NPSI,NB£TA,3,l7,5l  -SPZ(J,K) 
) SSPLt J, I,K)=PWRSUM(SSPL(J,I ,K) , SPLTt J,K> ) 

CONT INUE 

IF( IPRTt  7).NE.7)G0  TO  220 

CALL  NO  I SOI IPRTt  7) ,1 ,NK,  10,CH! N,IUNI T, SLDISXlI) , PFREQ , 

* SPLTt  1*1), NCF, I TYPE ! 

CONTINUE 

00  240  NF=1, NCF 

00  240  J=l,17 

SPlT(NF,J)=SPLT(NF,J)-TSPL(NF,l ,J> 

1 Ft IPRTt  3)-NE.3)GO  TO  3C0 

CALL  PNLSUBt  SPLTt  l , 1 ) ,PSPL  1 1 » I ) , TPO  ( l * I ) » EPNL  (1,1)  » SPI.2  , 

* T EPNL ( 1,11 , NK , BCG , TCG »FLR  » I , NCBS , I RR  1 1 , l) I 

CALL  NO  I SOt IPRTt  3) ,1 ,NK , 12 ,CHl N, I LM  T,SLDISX(I ) , PFREQ, 

* SPLTt  1,1), NCF, ITYPEI 
CONTINUE 

RETURN 

END 
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SUBROUTINE  MENOZZ  ( IE  JECT , I ENTR Y > A ,TS  , AHACH  J,CV , AN,  AMACHS,  Aft,  PS , 


MENQZZ 


* 

CO, PSO,  THETA, FPEC  , SPl , XFREC) 

MENOZZ 

3 

MENOZZ 

4 

DIMENSION 

F IG2I6, 13)  »FIG2VR16)  ,FIG2AM13) 

MENOZZ 

5 

DIMENSION 

FIG2AVI2) ,FIG2A( 2) 

MENOZZ 

6 

DIMENSION 

FIG3I 10,2) ,F IG3F0 ( 1G) 

MENOZZ 

7 

DIMENSION 

FIG4I9.1C)  ,FIG4FC<9)  ,FIG4AM10) 

MENOZZ 

8 

DIMENSION 

FIG5I6, 11) ,FIG5VR(6) ,FIG5AN(1I) 

MENOZZ 

9 

DIMENSION 

FIG6( 5) ,FIG6M( 5) 

MENOZZ 

10 

DIMENSION 

FIG10(4),FI1CVR(4) 

MENOZZ 

11 

DIMENSION 

FIG8(3),FIG8M3) 

MENOZZ 

12 

DIMENSION 

FI G9 ( 5 ) ,F I G9AR 1 5 i 

MENOZZ 

13 

DIMENSION 

FIG7I8),FIG7AM8) 

MENOZZ 

14 

DIMENSION 

FTEMPI9) ,FGAMMA(9) 

MENOZZ 

15 

OIMENSIGN 

SPL (24,17)  ,FREG{24i, THETA! 17} 

MENOZZ 

16 

MENOZZ 

17 

MENOZZ 

18 

DATA 

FI G2VR/2.778*2.903»2.0*3.176*3. 301*3. 398/ 

MENOZZ 

19 

DATA 

FIG2AN/20. ,4C. ,60. ,60. ,90. , 100. ,110. , 120. ,130. , 140. , 

MENOZZ 

2C 

* 

150. , 16C. ,170./ 

MENOZZ 

n 

CATA 

FIG2 

/106.C,  108.8,1 11. 8, HE. 0,123. 1,127. 7, 

MENOZZ 

22 

* 

106. 3, 109. 3, 112. 2, 119. 0,125.0,129. 9, 

MENOZZ 

23 

* 

106.4,109.5,112.8,120.5,127.1,132.9, 

MENOZZ 

24 

* 

106.5, 11C. 0,113.8, 122.8, 130*0,13 5.6, 

MENOZZ 

25 

* 

106. 6, 11 1.0, 115. 3, 125.1,133. 2 ,139.1, 

MENOZZ 

26 

• 

107. 5, 112. 3, 117. C.12E. 0,136.7,143.0, 

MENOZZ 

27 

* 

110.5,115.2,120.0,131.0,140.0,146.3, 

MENOZZ 

28 

* 

113.3,118.2,123.0,134.5,143.9,150.0, 

MENOZZ 

29 

* 

116.7,121.7,126.8,138.5, 148. 2 ,154.6, 

MENOZZ 

se- 

♦ 

118.7,124.0,129.4,142.4,153.0,159.5, 

MENOZZ 

al 

* 

120.4,126.0,131.9,145.7,156.2,163.0, 

MENOZZ 

32 

* 

119.5,125.0,130.7,144.1,154.7,161.0, 

MENOZZ 

33 

* 

117.8,123.0,12  8-  3,140.9, 151.0,157.7/ 

MENOZZ 

34 

MENOZZ 

35 

MENOZZ 

36 

DATA 

FIG2AV/  650..195C./ 

MENOZZ 

27 

DATA 

FIG2A  / 10GC. , 120C. / 

MENOZZ 

38 

MENOZZ 

39 

MENOZZ 

4C 

CATA 

FIG3F0/-2.CC0,- 1.699, -1.347,-1.097, -.6576, -.30 10, 0.000, 

MENuZZ 

41 

* 

.4771,  .9031,  1.301/ 

MENOZZ 

42 

OATA 

FIG3 

/ -37.3,  -29.4,  -2C.3 , -14.3,  -9.5,  -11.7,  -15.9, 

MENOZZ 

42 

♦ 

-23.6,  -31. C,  -37.8, 

MENOZZ 

44 

# 

-37.3,  -29.4,  -2C.3,  -14.3,  -8.8,  -11.7,  -18.7, 

MENOZZ 

45 

♦ 

-30.9,  -41.8,  -52.3/ 

MENOZZ 

46 

OAT  A FIG4F0/-2. 0,-1. 523, -1.1 55, -.699 ,-.222,. 301,. 845, 1.398, 2.0/ 


OATA 

FIG4AN/0., ICG 

.,11C 

. ,12C. ,13C.,L35. ,140. ,150 

* * 16  0 

.,170 

CATA 

FIG4  / 8.4, 

5.1, 

2. 1 f C*  C t 1 *2  f 3 *9  t 

5.8, 

7.0, 

8.0 

* 

8.4, 

5.1, 

2*1 ? 0* C # l#2f  3*9, 

5.8, 

7.0, 

8.0 

♦ 

4.4, 

3.3, 

1 *4 1 G*  C # 1*0#  3* 4 * 

5.2, 

6.3, 

7.0 

* 

3.0, 

2.5* 

i.OfC.Cf  C.7.  3. Of 

4.6, 

5.7, 

6.4 

* 

0.0, 

C.O, 

0. C ♦ C. C t C*3  t 1*3 t 

2.2, 

2.7, 

3.2 

* 

0.0, 

O.C* 

0«0fC*Gf  C « C f 0*0, 

0.0, 

0.0, 

0.0 

* 

-1.3,- 

1.  0 »— 

C*6fC*Ct-C*5f-l*3f 

-1.9, 

-2.3, 

-2.7 

* 

-4.0,- 

2.9,- 

1*6  fC^Cf-  1 • 7t-4* 0 t 

-5.8, 

-7.0, 

-8.2 

MENOZZ 

MENOZZ 

MENOZZ 

MENOZZ 

MENOZZ 

MENOZZ 

MENOZZ 

MENOZZ 

‘MENOZZ 

MENOZZ 

MENOZZ 

MENOZZ 
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51 

52 

53 
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mm 


son 


•'•  J»-., 


-6. 6,-4. 2, -2. 2,0. 0,-2. 5,-6. 7 .-10.3,-13.7 ,-17.0, 
-9. 6, -6. C»-2.8,C.C, -3.9 ,-9.7,-14.6,- 18.8,-23.0/ 


CATA  F IG5VR/500. »800. .LOGO. » 125C. „l5GO.,2CaO./ 

DATA  FIG5AN/20. ,40.,6C. ,80. ,1CC. ,110. , 120. ,130., 140. ,150. ,160./ 
DATA  FIG5  /1.22, 1.28,1.36,1.50,2.65,1.86 , 

K 1-24, 1.34,1. A3, 1.57, 1.72, 1.95, 

► 1. 26,1. 42,1. 54, 1.7C# 1.86,2.14. 

K 1.32,1.57 ,1.76,1.55,2.14^2.40. 

► 1.37,1.66,1.89,2.12,2.34,2.66, 

► 1.37,1.57,1.74,1.92,2.11,2.47, 


32, 

1.36, 

1.41, 

1.48, 

1.55, 

>1.64, 

08, 

1.10, 

1.12. 

1.14, 

1. 16 1 

>1.22, 

84, 

.86, 

. 66  , 

.88, 

.90, 

. .96, 

68, 

.70, 

.70, 

.72, 

.74, 

r .78, 

58, 

.60, 

.61, 

.6  2, 

.64 1 

.71/ 

DATA  FIG6M/Q., .4, .8,1. 2, 1.5/ 

CATA  -IG6  71.31, 1.24,1.07,  .75,  .45/ 


DATA  FIICVR  /60G. , 1200. ,16CC. ,2CCC./ 
DATA  F1G10  / 6.4,  25.4,  36. C.  4510/ 


CATA  F1G8N/0.903, 1.602,2.301/ 
CATA  FIG8  / -5.,  -1C. , -15./ 


CATA  F IG9AK/.G79,.301 ,.362,.6C2, 1.161/ 
DATA  FIG9  /-7.6,-3.9,~3.2,-1.3,  3.0/ 


DATA  FIG7AN/  10.,  35.,  5b.,  EC.,  100. » 125.,  150~,  170./ 
DATA  FIG7  /-15.0,-12.3,  -8.4,  -1.9,  2.9,  fc.Oo  2.6,  -4.0** 


CATA  FT6MP  / 800.,  900. ,10CC. ,1200 .,1400. ,1600.,1800.,2000., 2500./ 
DATA  FGAMMA/ 1.382,1.376,1.365,1.357,1.344,1.333,1.326, 1.316, 1.302/ 

DATA  SPHD IV/ 33. 2/, G/32. 174/ ,8/53.345/ 

IF(  IENTRV.EC.2)  GO  TO  2CC 
GAMMA=TBLUiITS.FIfcMP,FGA>*MA,i,9> 

C J=SQRT ( GAMHA*G*R*TS » 

XPS=PS* 144 . 

IF( l EJECT. EQ. 01  XPS=PSC*144.C 
RHO=XPS/lR*TS) 

VJET=CV*CJ*AMACHJ 
V S=CO*AMACHS 
U£=V  JET— VS*-Q.**CG 
T SO=TBLU 1( V JET  »F IG2AV ,F IG2 A, 1 , 2 ) 

V2=AL0G10<UE 1 

FUN l=TBLLl t AMACHJ»F IG6P ,FJG6,2,5) 
FUN2=iO.O*ALOGlC{RHO*RHO*A*tTS/TSG»**l.51 
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V3  = V JET  + (VS  - C.4  * CC) 

FUN5  = VJE  T* V JET  / ( V3  * 1.13  SGRT  ( A / AN)> 
Ft;N7=FUN2+TBLUl(ALGGlC(AN),FlG8N,FlG8,l,3» 

* +T8LUi(ALCGiC(AfU  ,FIG9AR,F1G9,1 ,5) 

* ♦ SPHUIV+T8LU2(V2»ll‘G.C»F!G2VR»FlG2A?'i»FIG2»l»l»6»13*6*l3) 
XFREQ=FUN5*FUN1*TBLL2 (UE, 120.0 »FIG5VR,PIG5 AN, FIG5* 1*1. 

* 6,11,6,115*0.3 


0G  100  1=1*17 


FC2=FUM5*FUNl*TBLL-2(UE*THETA(n  ,F IG5 VR »F IG5 AN , FI G5 , i, 1,6, 

> Ili6.ll) 


OASPL2=F,JN7+TBt.Ul  ( THETA  ( I ) ,F  IG 7 A N ,F I G7 , 2 ,8) 


CC  ICO  J*  1,24 
FR£Q2=AL0G10 (FR£Q( J ) /FC2) 


100  SPL(  J.  I)=OASPL2«-TBLIJ1(FREG2,FIG3FO,FIG3U.2)  ,2.10) 

* +TBLU2(  FREU2,  THETA ( I )*  10.0.F  1G4F0,FIG4AN,FIG4,2, 1,9, 10,9, 10) 
RETURN 


21,0  VO*CU*AMACHS 

VE=SQRT( VJET*VJET-2.0*VJET*VC*CCS(AN)+VC*VC) 
FUN3=FUN2 

V3  = SQRT ( VJE  T*V JET  ♦ 2.*V  JET*VC*CCS  (AM  * VC*VC) 
FUN6=— 0. 34*T8LUHVE»FI10VR  ,F IG 1C , 1 ,4 ) *SCRT ( AR-J .0) 


!F( IEJECT.EQ.O)  GC  TC  250 
PGAMMA=TBL01( IS»FTEMP,FGAMMA,1,S) 
PCJ=SQRT(PGAHMA*G*R*TS) 

PRHQ=PSn*144.0/(R*TS) 

PVJET=C.V*PCJ*AMACHJ 

VF.  = SQRT(PVJ£T*PVJET-2.0*PVJE1*VC*CCS(AN)*VC*VG) 
PTS0=TBl.0UPVJET,FIG2AV,FIG2A,l,2) 

FUN3=  10. 0*AIOG1 C( PRHC*PRHG*  PS*  ( TS/PT SG ) ** l . 5 ) 

V 3 = SORT (PVJET*PVJET  + 2.*PV JfcT*VC*CGS (AN)  ♦ 

FGN4  = PVJET*PV JET  / (V3  * 1.13  * SORT(PS)) 
FIJN6=0 .0 


VC*VC) 


250  V l=ALOG lOt  VE ) 


CG  300  1 = 1> 17 


F01=FUN4*TBLU2( VE, THETA (I) »F 1G5 VR ,F [ G5AN  »F IG5 , l , 1 ,6, 1 1, 6 , 11) 
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SUBROUTINE  NEXTCR 

NEXTCR 

2 

c 

NEXTCR 

3 

c 

CONSTANTS  USED  IN  INTERNAL  CALCULATIONS 

NEXTCR 

4 

c 

NEXTCR 

5 

COMMON/SWITCH/NT YPE , ITVPE.NENG, ICCP, IPPT 1 7) ,t CM  13), NLCPT 

NEXTCR 

6 

COMMON  /GC0NS7/  IN, 10,111, IT2,FC, FI, F2,F3iiF^,F5,F6,F7,Pf!,F?,  F10, 

NEXTCR 

7 

* 10, 11, 12*13, 14*15, 16, 17*18, 19, 1 10,  PL  »1‘33,  P5,  POOL, 

NEXTCR 

8 

♦ EPS , UNDE  F ,f?L  ,ICD,DPR«RPD»£TAI17)  ,M1,  FK1,  117,  A,  PI 

NEXTCR 

9 

c 

NEXTCR 

\0 

c 

VARIABLE  SET  CALCULATED  IN  TFE  PROGRAM  FRCCESSING 

NEXTCR 

11 

c 

NEXTCR 

12 

CCMMON  /GCCMCN/  NCF ,NK,8CF (24 I , T S f L 1 24 . 10 , 17 ) ,SPLT (24 , 17 ) , 

NEXTCR 

13 

*8IJF(25I,RETA(  17)  , SPL2  ( 1 7)  , TGAGR  ( 24 » , DCPSF  ( 17 ) 

NEXTCR  i 

14 

c 

NEXTCR 

15 

c 

FREQUENCY  BANDS  USED  BY  PROGRAM 

NEXTCR 

16 

c 

NEXTCR 

17 

CCMMON  /GFREQ/  CFREQ ( 24)  ,UF RE C ( 25 ) ,PFRE C (24 ) 

NEXTCR 

18 

c 

NEXTCR 

19 

c 

GENERAL  INPUT  PARAMETERS 

NEXTCR 

2C 

c 

NEXTCR 

21 

COMMON  /GPRAM/ALTP,  ALTR,  SLOPE,  AMACH,  NOBS,  SLDISK  10),  ITENG-,  IUNIT 

NEXTCR 

22 

* , ISPTRM, IATMUS,IAIR,UAIRAB(24)  ,N TEMP, TEMP (50) ,TALT (50) 

NEXTCR 

23 

* ,NPRES,PRES(50)  ,PALT(50)  ,NHLM0,PALT(50)  , RHUM IDI  50  ) »CTEMP 

NEXTCR 

24 

* , CPRES, CRHUMC, I EGA , I GOR ,CTEMP,0PRES»CHUMIC,XKN,NC»FL0(50), 

NEXTCR 

25 

♦ ZNRI 50 ) , ZN I ( 50 ) , L I NEC 7 , MAXL I N , ( PAGE  ,BCG  ,TCG ,FLR , AALT, EPF  ’ 

NEXTCR 

26 

c 

NEXTCR 

27 

c 

AIRCRAFT-OBSERVER  GEOMETRY  OUTPUTS 

NEXTCR 

28 

c 

NEXTCR 

29 

COMMON  /GEOMO/  AP Y ( 10 , 17) , APZ ( 1C  , 17) ,PG (10 , 17) ,DPND( 10 , 17 ) , 

NEXTCR 

30 

* Eli  10, 17) ,B2( 1C, 17) ,TDS (17,10 , TFD ( 17 , 1 0) , I PR ( 10, 17 ) 

NEXTCR 

31 

*,APP,TP,RHP:APO,TO,RHC,CA,CZ,TSP (17,10) ,CCV 

NEXTCR 

32 

c 

NEXTCR 

33 

c 

CONVERSION  CONSTANTS 

NEXTCR 

34 

r 

NEXTCR 

35 

CGMMP.N/GCON  VC/C  (2,10)  ,SL0ISX(10) 

NEXTCR 

36 

COMMCN/CRSPLS/DOBI  17)  ,PSCR  ( 17)  ,CFB(408)  ,NPSCP 

NEXTCR 

37 

» 

DIMENSION  XL (2) 

NEXTCR 

38 

DATA  XL/2HM. , 2HFT / 

NEXTCR 

39 

c 

NEXTCR 

4C 

c 

DETERMINE  AVERAGE  AIR  ABSCRPTICN  CCEFFICIENTS 

NEXTCR 

41 

4C 

IF' IAIR.EQ.M1)  GO  TO  15C 

NEXTCR 

42 

I Ft  ZAIR.EQ.IDGO  TC  ISO 

NEXTCR 

43 

ALT?  = AL  TR+AALT 

NEXTCR 

44 

ALTW=ALTP+AALT 

NEXTCR 

45 

CALL  AVGALFI ALTZ ,ALTk ,NK ,NCF ,OCF ,L A I R AB , I AT  PCS ) 

NEXTCR 

46 

ISO 

IF(IPRT(5)«NE.5)GO  TO  155 

NEXTCR 

47 

CALL  PRINTHI IPRT (5) , LCT,9) 

NEXTCR 

48 

RRITE(9,20I 

NEXTCR 

49 

20 

I GRMAT( 50X, 31HN0I SE  C XTRAPOL AT  I CN  CORRECT ICNS//  ) 

NEXTCR 

50 

WRITE(9,22) 

NEXTCR 

51 

22 

FGRMAT(2X,46H SPHERICAL  DIVERGENCE  (AFPLYS  TC  ALL  PASSBANOS)/) 

NEXTCR 

52 

WRITE(9,24)XL( IUNITft) 

NEXTCR 

53 

24 

FORM A T(6X,1HX,44Xt32HSCUND  PRESSURE  LEVEL  AT T ENUAT ICN  /5X,1H(,A2, 

NEXTCR 

54 

* 1H ) , 56X , 4H (DB ) /) 

NEXTCR 

55 

L CT= 13 

NEXTCR 

56 

155 

CONTINUE 

NEXTCR 

57 

C 

SPHERICAL  DIVERGENCE  CALCLLA'ICNS 

NEXTCR 

58 

191 


00  3C0  1=1  l.NC-BS 
CO  200  J=Il»It? 

IF!PD(![,J).NE..f  0)00  TO  16C 
SPLTU,J)=F0 
GC  TO  17C 
160  CONTINUE 

SPLT(  I , J)=20«*  AJ.QG1  C (ABSfPCI  I , J)*Ct  12,  HU) 

170  CONTINUE 

00  160  K= I 1,NCF 
160  T SPL(K»  *(  • Jl-SPLTII  » J) 

200  CCNTINUE 

IFUPKn51.NE.51G0  TO  3GC 

NR  IT C 10* 2501 SLOI SXt I t • ( SPLT  ll » J> * 

250  fORMAT(2X, lPE10.3tCPFT.iil6F7.il 
300  CONTINUE 

I F UPRTI  51.NE.51GO  TO  31C 
WRITEi9,275HETA(J)»J*l  1,1171 
275  FORMAT;! /3X# EHANGLE  XI  /4X»5H tOEG 1 »2X*17FT.Q//1 
LCT=LCT*NCBS*5 
310  CCNTINUE 

C CALCULATION  OF  ATMOSPHERIC  ABSORPTION 
CG  4C0  1=11, NOBS 
DC  AGO  K=I IrNCF 
OC  350  J = I 1 , 1 17 

SPL2 I J ) =UAIRAB I KJ*PDI I »J)*PCC1 
350  TSPLIK,I,J)=TSPUK,I  ,J)FSPL2IJ1 
IFC 1PRTI5J.NE.5)  GC  TC  400 
IFaC7.GE.54)  GO  TC  36C 
IFIK.EO.llGO  TO  37C 
GO  TO  39C 

!i'6C  CALL  PR  IK’THI  IPRT  (5)  ,LCT,91 
WRITE (9*201 
LCT=8 

37C  WR1TE(9«38G1SL0ISX(I),XL(IUMT  + 11 
LCT=LCTU 

360  FORMAT!  2X,32K'ArM0SPHERIC  ABSGPFT ICR  FOR  X *»I.PEltf.3»l'X»A2), 

WR ITEl 9, 382* 

362  FGRMATI/3X.9F..  ’EGLENCV »39Xr32PSClMJ  PRESSURE  LEVEL  ATTENUATION/ 
* 1 5X.5HO  7?  *55X,4H  (OB) /) 

LCT=LCT+  4 

390  WR ITE ( 9, 2501 PFR  -IK) , (SPL2 ( J) , J=Il »I 171 
LCT=LCT  * 1 

IFIK.NE.NCFI GO  TO  4CC 
IFILCT.C7 .49)00  TO  395 
392  WRITE  (9 .2  751  (ETAI J) ,J=U*U7) 

LCT=LC’>5 
GO  TO'  .CO 

395  CALL  PRINTHi  IPRH5)  ,LCT,S) 

WRITE! 9, 2C) 

LCT=<_C!>3 

WRITE! 9,3801 SLOISXl I 1 »XL II UNITED 
LC?=LCT+ 1 
GO  TO'  392 
400  CGNTINLE 
N 1 = 1 1: 

N2=I2, 

C CALCULATION  OF  EXTRA  GRGLNQ  ATTEMATICN  AN C GRGUNC  REFLECTION 
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72 

NEXTCR 

737  r 
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74 

NEXTCR 

75 

NEXTCR 

76 

NEXTCR 

77 
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NEXTCR 

79  * 

NEXTCR 

60  ... 

NEXTCR 

81 

NEXTCR 

32. 

NEXTCR 

83  . 

NEXTCR 

■ 84 

NEXTCR 

85  ! 

NEXTCR 
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NEXTCR 

3^ 

NEXTCR 

88  . 

NEXTCR 

89 

NEXTCR 

9C 

NEXTCR 

91 

NEXTCR 

92  ‘ 

NEXTCR 

93 

NEXTCR 

94  - 

NEXTCR 

♦ 95 

NEXTCR 

96 

NEXTCR 

97 

NEXTCR 

98 

NEXTCP. 

99 

NEXTCR 

100  - 

NEXTCR 

1C1  :: 

NEXTCK 

102  h 

NEXTCK 

103 

NEXTCR 

io.4  i 

NEXTCR 

ic'5  r 

NEXTCR 

106  pz 

NEXTCR 

1C7  m 

NEXTCR 

10.8  If 

NEXTCR 

109  | . 

NEXTCR 

li'o  m 

NEXTCR 

in  fk 
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n? 
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NEXTCR 
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IFS IEGA.EQ.I 1)  N1  = I2 
SK=F1 

DO  5CC  N=N ltN2 
DO  500  1=11, NOBS 
DO  475  J = 1 1» 1 17 
IF  IN-1)  440,  440,  442 

440  CALL  EGACAL(PD( I»J)*B2(I*J) , NCF »ECF»TGAGP) 

GC  TO  448 
442  SK=FM 1 

I F C IGDR.EQ.IOJGO  TO  446 
DO  44.4  K 1=1,  NCF 
444  TCAGR(K1)=F3 
GO  TO  44 £ 

446  CALL  GRDRFX! BCF,  NCF, 10, PC  ! I , J)  .CPNG ! I , J ) , B1 1 1» J ) »CA,XKN, ND , 

* FLD*ZNR» ZNI , TGAGR) 

448  CONTINUE 

DO  450  K=i,NCF 
SPLT (K, J)=TGAGR!K) 

450  T$PL(K,I,J)=TSPL(X,I , Jl +7GAGR ( K ) * SK 

475  COf!T  INUE 
IFC!PRT(5).NE.5JGO  TO  50C 
DC  498  K = 1 1 * NCF 
IK=1 

IFILCT-GE.54)  GC  TO  460 
IFIX.EQ.l.AND.LCT.LE.48)  GC  TC  453 
IFIK.EQ.1)  GO  TO  460 
GC  TO  490 

460  CALL  PRINTH! IPRTII) ,LCT,5) 

WRITEI5,20) 

Lf.T=  1 1 

IF  CN-1I  470,  47C,  474 
470  WRITE!  9,  480)  SLO I SX  < I ) , XL  ! I CM  7+ 1) 

48C  FORMAT ( 2X * 32HEXTRA— GROUND-ATTfcoLAT ICN  FCR  X * , IPE10.3, IX , A2) 
LCI=LCT  . 

482  WRITE! 5, 362) 

LCT=LCT+4 

490  WRITE(9,250)  PFREG (K) , ! SPL T < X , J)  , J= 11 , 1 17 ) 

LCT=LCT ♦ l 

491  IF(K.NE.NCF)GU  TG  498 
IF! LCT.GT.49JG0  TO  455 
IK=2 

492  WRITE!5,275J!ETA!J),J=Il,tl7) 

IF  ! IK- 1 ) 493,  493,  498 

453  CCNTINLE 

IF  (N-l)  470,  470,  474 

474  WRITE  19,477)  SLD  I SX  ( I)  ,XUIUMT+1) 

477  FGRMAT ( 2X» 17HGRCUN0  REFLECTICN  ,8X,  7HFGK  X = , 1 PE  10.3 , IX, A2  J 
LCT=LCT+i 

IF!  IGOR.EG.IOIGO  TC  482 
IFIK.NE.iJGO  TO  451 

476  FORMAT! /2X,47HGR0UN0  REFLECTICN  = -3  C8  ATTENUATION  CR  *3  CB  , 

* 29HC0RRECTICN  FOR  ALL  PASSINGS./  ) 

WRI IE ( 9 ,476) 

LCT=LCT+3 
GO  TO  500 

495  CALL  PRINTH! IPRT15) ,LCT,5J 
LCT=LCT*5 
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WRI7EC9,20) 

lCT^LCT+3 

IK=2 

IF  t N—  1 J 496*  456*  <>97 

496  WRI T£ 1 9»  480) SLOISX I I > *Xi  1 1 UMT*l ) 
LCT-LCT+1 

GO  TO  492 

497  WRITE  1 9*  477ISLDI  SXl  I ) •XL<!  UMT-frl ) 
LCT=LCT+1 

GO  TO  492 

498  CONTINUE 
500  CONTINUE 

ENOFiLE  9 
REWIND  9- 
RETURN 
END 
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SUBROUTINE  NINPUT 

INPUT  DATA  BLOCKS  FOR  NOISE  CCRPCNENTS 
I TYPE  DEFINES  THE  TYPE  OF  NCISE  COMPONENT 
ITYPE= I PRIMARY  JET 
=2  PRIMARY  AND  SECONDARY  JET 

C0MM0N/JETUAT/NJET1,MCQDE1,AP1,WF1,VP1,AS2,WS2,VS2,PR1,PAI, 

1 TTltVAIfDIAMTl »ANGJTI, ICCR1 

=3  CORE  AND  TURBINE 

COMMON/CORE IN/TT3  ,PP3  ,CMF3  ,EK3 ,0£U3  , JB3  , 

* ICOR3, L IN3» NTF3* I MA3 » LGM3  *NWL3 »ICP3,ILAY3»TF3Ii0), 

* PCTA3I 10),PLA3<10),ELOH3,ECH3,P1W3(1G),TL3110) ,CF3,FR3 

CCMMGN/TURBIN/BN3  *SS3»  VTR3  ,CLS3»CT3»TU3*FKF3»CS3,IC3»ISW3 
= 4 COMPRESSOR  AND  INLET  FAN 

=5  EXIT  FAN 

CQMMGN/FANDAT/NSTG45  »KLET45,NAFT45  , I CP45  ,NB45 (3) ,FPR45 ( 3) , 

I 01AM4I3),RSS45(3  )« AREAS (3)  ,RM45  ,RTS45  ,CFPR4,DELT45, 

* NI5,BPR5.ICOR4«LIN4,NTF4,IPA4,LGR4,NhL4tIDF4,ILAY4,rF4(IO) , 

* PCTA4I  10),PLA4UC)  ,ELCH4  , ECH4  ,P  1Vi4  1 10  » ,TL4  ( 10)  ,CF4,FM4, 

* ICOR5,LIN5,NTF5,lMA5,LGM5,NWL5,  ICP5,ILAY5,TFS(  10) , 

* PCTA5I  10)  f PLA51 1C)  ,ELGH5  ,ECH5,R1W5  110)  .TL5II0)  ,CF5,FM5 

=6  AUGMENTER-NING  JET 

COMMON/SW I TCH/NTYPE , I TYPE ,NENG , l CCP , I PRT  17) , ICN 1 13) , NLCPT 
♦,INSE0W13),INSHL0 

COMMON/AUGWNG/GAMA* ,TTfc ,XNPRfc ,0E IT6, AG6 ,CE6 , 

* IC0R6,LIN6,NTF6,IMA6,LGM6,NWL6  , I0P6 , 1 LAY6  , TF6I 10), 

* PCTA6I  10) ,PLA6 1 1C) «ELCH6,ECH6,R1W6 ( 10)  ,TL6 ( 10) ,CF6 ,FM6 

=7  BLOWN-FLAP  JET 

COMMON/BLOW  IN/PR  7tTT7,AN7,DN7,FANG7,DELT7,CL7 ,HD7 , ICCR7 
DIMENSION  PR 7 1 1 ) 

=8  LIFT-FAN 

C0MMQN/LFTFAN/NB8  »FPR8»D IAP8 ,RSS8 , ARE A8  , RM8»RTS8*CRFPR8»B£LTA8, 

* IC0R8, L IN8»NTF8» IMA8 ,LGM8 , NWL8  ,ICP8  ,ILAY8,TF8( 10) , PCT A8 ( 10), 

* PLA81 10)  ,EL0HE,EDH8,RlW8aC)  ,TL8  (10)  ,CF8,FM8 

=9  EJECTOR  - SUPPRESSCR  JET 

COMMON  /EJECIO/  I E J9  ,NUM9,ARE A9  , AP9 , ST9 , EXNM9 , SMACH9 ,CY9 , 

* PS9,PA9»PT  S9, EMACH9  »PCV9»0EIT9» 

* IC0R9,LIN9,NTF9, IHA9 ,LGM9 , NWL9 , ICP9 , I LA Y9 , TFS ( 10), PCTA9C  10  ), 

* PLA9( 10) , EL0H9 ,EDH9 ,RiV9 ( 10 ) ,TL9C10)  ,CF9,FP9 

=10  PROPELLER 

COMMON/PROP  I N/T 10, W10, RPM C, C 10, CSLB 10, ASUBlO.eiO.DELT 10, 

* I COR  10 

=11  HELICOPTER  ANC  TILT  RCTCP 

COMMON /COP  TER/T11,Q11,RPW11,B11,GT11,AB11,DE11,KM1, 

1 Sill, CEE11, DELHI, XLPC11,XPM1,NRTR11,LLF11,IRR11, 

* I COR  1 1 

=12  MEASURED  DATA  INPITS 

COMMON /MEASIN/NEP12,NPSI 12 ,N8TA 12 ,CELT 12 , EP 12 ( 5) , PS  1 12  1 17) * 

* BETA1215), 

♦IC0R12 

I TYPE  = 13  JET  EDGE  INTERACTION 
COMMON/JETEDG/AJS 13,00 A13 , DONE  13 , CHNL 13 , C JCL 13 , 

* FLAP  13, HO  13, EM J 13, T SR  13, ICOR 13 


NINPUT 
NINPUT 
NINPUT 
NINPUT 
N INPUT 
NINPUT 
NINPUT 
N IMP or 
N INPUT 
U INPUT 
NiNPUT 
NINPUT 
NINPUT 
NIN.’UT 
NINPUT 

n:n°ut 

N INPUT 
NINPUT 
Ml  .PUT 
NINPUT 
IM’UT 
N ♦M'U) 
N INPUT 
N INPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
NINPUT 
N INPUT 
NINPUT 
NINPUT 
NINPUT 


195 


c 

This  ROUTINE  HANDLES  LINKAGE  TC  INPUT  MCCULES  FLIGHT-PATH 

NINPUT 

59 

c 

OBSERVER  GEOMETRY  MODULE  VARIOUS  NOISE  ESTIMATION  MCOULES 

NINPUT 

6C 

c 

EXTRAPOLATION  MODULE  HUMAN  RESPONSE  MEASUREMENT  MCCULE 

NINPUT 

61 

c 

« 

NINPUT 

62 

1 

f 

c 

CONSTANTS  USED  IN  INTERNAL  CALCULATIONS 

NINPUT 

63 

\ 

c 

NINPUT 

64 

i 

COMMON  /GCONST/  IN, 10 , IT1 , IT2  ,FC  ,F1,F2,F3 ,F4,F5,F6,F7,F8, FS, FiO, 

NINPUT 

65 

I 

* 10, II, 12, 13, 14, 15,16,17, I8,I9,I10,Pl,P33,P5» MOOT, 

NINPUT 

66 

* EPS, UNDEF,8L,ICDfCPR, RPC, ETAU7J, Mi, FM1,  117.A.PI 

NINPUT 

67 

c 

NINPUT 

66 

c 

VARIABLE  SET  CALCULATED  IN  THE  PROGRAM  PROCESSING 

NINPUT 

6S 

c 

\ 

NINPUT 

70 

COMMON  /GCOMON/  NCF,NK,BCF (24) , ISFLI 24,10 ,171 ,SPLT(24, 17 ), 

NINPUT 

71 

♦BUFI 25 ) »RETA(I7),S PL 2(171 »TGAGR (24) ,CCPSF(i7l 

NINPUT 

72 

c 

NINPUT 

73 

c 

FREQUENCY  BANOS  USED  BY  PROGRAM 

NINPUT 

74 

j 

c 

NINPUT 

75 

COMMON  /GFREG/  CFREC (24) ,UFREC (25) ,PFREC(24l 

NINPUT 

76 

» 

c 

NINPUT 

77 

c 

GENERAL  INPUT  PARAMETERS 

NINPUT 

76 

c 

NINPUT 

7S 

COMMON  /GPRAM/ALIP, ALTR, SLOPE, AMACH,NCBS,SLDIST ( 10), NTENG, IUNIT 

NINPUT 

30 

* , ISPTRM,IATM0StlAlR,UAIRAB(24)  ,MEMP,TEMP(50)  ,TALT(50) 

NINPUT 

ei 

* ,NPR£StPRES(5CJ , PALI (50) , NHL MID, R ALT  150) ,RHUM ID ( 50 ) ,CTEMP 

NINPUT 

82 

* ,CPRES, CRHUMC, I EGA , IGOR  tOTEMPyOPRES tCHUMIC,XKN,NC,FLO( 50 ) , 

NINPUT 

83 

* ZNR ( 50 ) « ZN I { 50 ) »L INECT , MAXLI N , I PAGE  *BCG ,TCG ,FLR, AALT,EPF 

NINPUT 

64 

c 

NINPUT 

85 

c 

AIRCRAFT-OBSERVER  GEGMETRY  CLTFUS 

NINPUT 

86 

t 

c 

NINPUT 

87 

i 

COMMON  /GEOMO/  APY ( 10 , 17) ,APZ ( 1 C ,17) ,PD ( 10 ,17 ) ,DPND 1 10 , 17) , 

NINPUT 

08 

! 

* Bl(  10, 17), B2( 10,17) tTOSl 17,10) , TFO ( 17 ,10 ) , IRRI 10, 17 ) 

NINPUT 

69 

f - 

* , APP  » TP  » RHP  » APO ,T0 ,RHG,C A ,CZ ,TSP(17,10) ? CCV 

NINPUT 

SC 

c 

NINPUT 

SI 

• 

c 

CONVERSION  CGNSTANTS 

NINPUT 

92 

c 

1 

NINPUT 

S3 

CCMMON/GCON VC/C ( 2 , 10 ) , 5L01 SX { 1C ) 

N INPUT 

S4 

CCMMON/CRSPL S/008 ( 17) ,PSCR ( 17) ,OPB (4Q8) ,NPSCR 

NINPUT 

95 

CCMMON/ICPATH/NCAS ,NCCF ,NT YP ,IC,NRM,IARRAY(2) 

NiNPUT 

96 

c 

NINPUT 

' 97 

c 

NINPUT 

96 

COMMON /HEAO /HIM  20) ,HGUT (20) ,CHl  M (20) 

NINPUT 

99 

c 

NlNPuT 

IOC 

c 

THIS  SECTION  IS  FCR  STORING  CATA  LOCALLY 

NINPUT 

1C1 

- 

DIMENSION  IN  15(3) , X8P5 (3 ) , INUM ( 3 ) , AREA9 ( l ) ,I£J(3) 

NiNPuT 

102 

CIMENSICN  IC0R3i i ) , I A0C3 (8 ,3 ) ,ACC3 (54, 3 ) ,ICCR4 { 1 ) , I ACC4 ( 8, 3) , 

NINPUT 

IC3 

l A004(54,3),IC0R5(1).!A0D5(6,3)  ,AC05(54,3),pcpm,IADC6(8,3), 

NINPUT 

104 

i 

2 ADQ6 (54,3),  ICQR7 ID  ,1CCR8(  1 ) , I ACC8 18 ,3 ) , 

NINPUT 

105 

$ 

3 A0D8( 54, 3) » ICORS( 1 ) »IA0DS(£»3)  , ACCS (54, 3 » 

NINPUT 

106 

DIMENSION  FPR8( 1),INB8(3) 

NINPUT 

107 

-'S 

c 

NINPUT 

106 

DIMENSION  ICGN(20),EDGVAR(L0) 

NINPUT 

109 

DIMENSION  Sl(9,2),S2(3,3),S3(13,2),S45ll6»3) ,5616,3) ,S7(8.3), 

NINPUT 

11.0 

ii 

1 S8(fi,3),SS(12,3),SIC(8,3),SIl(I3,3)  ,S12(3) 

NINPUT 

111 

*" 

- 

2,SI3( 10, 3 ) ,IA00 13( 3 ) 

NINPUT 

112 

DIMENSION  NCI 4,3) ,IS45(7,3) , JETl (2,3) 

NINPUT 

113 

DIMENSION  N0IC14) 

NINPUT 

116 

EQUIVALENCE  (NTYP£,NDIC( I) ) 

NINPUT 

115 

1 
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DIMENSION  T3(5) ,J3(3,3) 

EQUIVALENCE  <T3(l),TT3) 

OIMENSION  83(0) 

EQUIVALENCE  (B3(1),BN3> 

OIMENSION  TU31 13) , 1 113(3,3) 

EQUIVALENCE  ( T1 13( 1 ) ♦ 711) 

DIMENSION  AUG  1(6) 

EQUIVALENCE  (GAMA6, AUGI ( l) ) 

DIMENSION  PROP  1(8) 

EQUIVALENCE  ( T10  »PROP  Id)) 

OIMENSION  I JET (2) , A JET ( 12) 

EQUIVALENCE  ( I JET< l ) .NJET1 J , { A JET « 11 .API ) 

OIMENSION  IFANK  7)  ,FAN2(3)  ,FAM  1 (3  ) ,FAN3  (3)  , F ANA1  ( 3) . F AN5(  20 ) 
EQUIVALENCE  ( IFAN1 ( 1 ) , NSTG45 ) , ( FAN2( l ) ,FPR45 ( 1 ) ) , I FANI 1 ( l), 

1 0IAM4( l) } ,(FAN3(1) ,RSS45( 1)) , (AREA5 I l ) .FANA1 ( 1) ) , (FAN4.RN145) , 

2 ( FAN 12.RT  S45) 

EQUIVALENCE  ( ICOR 1 , ICGR2 ) 

NAMELIST /NO  I SIN/ T 10. WIO .RPM1C  ,C 1 C .OSCBIO , ASUe 10 , BIO , CELT  10 , NRTR 1 1, 

* NENG.NTYi'E.  I TYPE  .GAMA6  .TT6.XNPP6.DELT6.AC6iCE6.LLFH. 1 EJ9.NUM9 . 

* NSTG45.NLET45.NAFT45.F  PR45  »D  1AF4.RSS45.AREA5.RM45.AREA9.AR9. 

* RTS45.CFPR4.DELT45.NB45.NI5.BPR5.NJET1 .MCODE 1 , AP 1 , WP  1 . VPl ,ST9, 

* AS2.MS2.VS2.PR1.PA1.TT1.DIAPT1.ANGJTI.BN3.SS3.VTR3.CLS3. EXNM9. 

* DT3,TU3,PMF3,CS3,IC3,I SW3  , T T3  . FP3 , CMF3  , EK3  .DELI3 , J B3 , T 1 1 , SMACH5 , 

* Qll.RPMll.fill.DTU.ABll.OEli.RMl.SI  11  .CEE  1 1 , DELT  1 1 . XLMC 1 1 , CV9  , 

* NEP 12.NPSI 12.NBTA12.0ELT12 ,E P 12.PSI 12 , BET A12 . DCB , PSCR , CPB, NPSCR, 

* IC0R3 ,LIN3,NTF3»IMA3,LGM3.NNL3»ICP3.ILAY3.TF3,PCTA3.PLA3. 6MACH5. 

* ELOH3.EOF3.R1W3.TL3.CF3.FM3.ICCR4.LIN4.NTF4.IMA4.LGM4.NML4.PS9. 

* IDP4.  ILAY4,TF4,PCTA4,PLA4.ELCh4,EDH4,RlW4,TL4,CF4,FM4, ICCR5.PA9, 

* LIN5.NTF5,  IMA5  ,LGM5  ,NWL5 , 1 CP  5 , 1 L A Y5 , 1 F5 , PC  T.iS , PL  AS  , EL0F5,  EDH5 , 

* R1W5, TL 5, CF5»FM5.IC0R6,L(N6»NTF6,IMAo»LGM6,NW L6.ICP6.IL AY 6.TF6. 

* PCT  A6 » PLA6 ,EL0H6»  E0H6.R1W6 ,TL6,CF6»FM6»ICCR7,NB8.FPR8»CIAM8» 

* RSS8»AREA8,RN18.RTS8»CRFPRGtCElTA8»PR7*TT7,AN7.0N7,FANG7»DELT7. 

* ICOR8.LIN8.NTF8. IMA8.LGM8.NWL8.ICP8, ILAY8.TF8. PCT  A8.PLA8.DELT9, 

* FI  0H8,E0H8,R1W8.TL8,CF8,FM€, ICCP9.LIN9 ,NTF9 , I MA9 , LGM9 , NWL9 . PTS9 , 

* I0P9,ILAY9,TF9.PCTA9,PLA9,ELCHS,E0H9,P1WS,TL9,CF9,FM9,PCV9, 

* ICOR 10, ICOR 11, ICOR 12 , 1CCRI , ICCR2  .XMM11 .DL7.HC7, IRRll  ECGVAR, INSHLD 
*,  IC0R13 


1F(NTYP.NE.IC)G0  TC 
1000  READ) IN , 9000 )FAN 5 


1 Cl  5 


IF(NCAS.EQ.ll)GG  TC  1 C 1 1 
IF(FAN5( l). EQ.BL. AND. FAN5 ( 2 ) . EC . 

1 AN0.FAN5(4).EQ.BL.ANC. FAN5  (5) . 

2 AND.FAN5( 7 ) .EQ.BL. AND. FANS (8) . 

1011  00  1012  1=1,20 

1012  CF  IN ( I ) = FAN5l I ) 


BL. AND. FAN5I3). EQ.BL. 

EC. BL, : ANC. FANS (o). EQ.BL. 
EQ.BL ) GC  TC  101S 


IF( NCAS.NE-.il. OR. NTYP.NE.IO)GC  TC 

STORE  DEFAULT  VALUES  FCR  ITYP£=12 

ECGVAR ( 1)=D0NE 13 

ECGVAR I 2 )=EMJ13 

ECGVAR ( 3 )=H0 13 

ECGVAR ( 4 ) = TSR 13 

EQGVAR ( 5 ) =SHAM 

ECGVAR(  6 ) = A JS13 

ECGVAR ( 7 )=DOA 13 
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129 

NINPUT 

13C 

NINPUT 

131 

NINPUT 

132 

NINPUT 

133 

NINPUT 

134 

NINPUT 

135 

NINPUT 

136 

NINPUT 

137 

NINPUT 

138 

NINPUT 

135 

NINPUT 

140 

NINPUT 

141 

NINPUT 

142 

NINPUT 

143 

NINPUT 

144 

NINPUT 

145 

N INPUT 

146 

NINPUT 

147 

NINPUT 

148 

NINPUT 

145 

NINPUT 

15C 

NINPUT 

151 

NINPUT 

152 

NINPUT 

153 

NINPUT 

154 

NINPUT 

155 

NINPUT 

156 

NINPUT 

157 

NINPUT 

158 

NINPUT 

155 

NINPUT 

lcC 

NINPUT 

161 

NINPUT 

162 

NINPUT 

163 

NINPUT 

164 

NINPUT 

166 

NINPUT 

16C 

NINPUT 

It.  7 

NINPUT 

168 

NINPUT 

165 

NINPUT 

17C 

NINPUT 

171 

NINPUT 

172 

197 


ECGVARIt  8 )=DHNL  13 
EDGVARI  9)=DJCL13 
EOGVAR ( 10 )=FLAP 13 
NTYP=NTYP»l 1 

lFINCAS.EQ.il)  GC  TO  1330 
IGQ= ICQN(  IC) 

GO  TO(  10 17,  1060, 1080*1 100 # 1120 , 1200 .1220.1230 ,1240, 1250, 1270, 1290 
L,  1293 ) « IGO 
CONTINUE 
DG  1018  1=11,13 
A JET ( 1+3 )=C. 

CCNT INUE 

DO  1030  1=11,13 

A JET  I 1)=S1(1 ,NCOF) 

DO  10A0  1 = I A, 19 

A JET ( 1+3)=S1( I *NCQF) 

00  1050  1=11,12 

IJfcTm=JETl(I,NCOF» 

GC  TO  ,1300 

CONTINUE 

OC  1C7C  1=11,13 
A JET < I + 3)  = S2< I »NCOF) 

GC  TO  1020 
CONTINUE 

CALL  SNI l COR 3 , I AD03 ( 1 , NCCF ) ,2, 8, 11- 
CALL  SN(TE3,AD03(1,NC0F1 ,l,5A,l» 

DC  1090  1=11,15 

T3( I )=S3( I,NCUF) 

JB3=J3(  ItNCOF) 

OC  1105  1=16,13 

B3( I-5)=S3( I ,NCGF ) 

1 C3= J3 ( 2 , NCOF ) 

I SW3= J3 1 3 ,NCOF 1 
GO  TO  13CC 
CONTINUE 

CALL  SNI ICOK A, I ADO A 1 1 «NCCF 1*2,8,11 

CALL  SNI TF A, ADDA (ItNCOF) , 1 , 5A , 1 1 

OG  1110  1=  IA, 16 

fan  1 1C  I-31  = SA5( I ,NCOF 1 

CFPRA=SA5I 15.NC0F1 

GO  TO  l 1 AC 

OC  1130  1=110,12 

FAN Alt  I— 9)  = SA5(I , NCOF 1 

N 15=  INI 5INC0F1 

8 PR 5= X BP  5 (NCOF) 

CALL  SNI ICOR5,1AC05(1,NCCF),2,8,1) 

CALL  SNI  TF5,  ADD5 1 1 ,NCOF)  ,i,5A,U 
OG  1150  1=11,12 

I FAN  1 ( I ) = I SA5I I , NCOF ) 

00  1160  1=15, 17 

1 FAN  1 1 I > = ISA5I I ,NCOF 1 

00  1170  1=11,13 

FAN 21 I)=SA5( ItNCOF) 

OG  1180  1=17,19 

FAN3 ( I— 6 ) =SA5( I , NCCF ) 

FANA=SA5( 13, NCOF) 


NINPUT 

173 

NINPUT 

17A 

NINPUT 

175 

NINPUT 

176 

NINPUT 

177 

NINPUT 

178 

NINPUT 

179 

NINPUT 

180 

NINPUT 

181 

NINPUT 

182 

NINPUT 

183 

NINPUT 

18  A 

NINPUT 

185 

NINPUT 

186 

NINPUT 

167 

NINPUT 

188 

NINPUT 

189 

NINPUT 

190 

NINPUT 

191 

NINPUT 

192 

NINPUT 

193 

NINPUT 

19A 

NINPUT 

195 

NINPUT 

196 

NINPUT 

197 

NINPUT 

198 

NINPUT 

199 

NINPUT 

2C0 

N INPUT 

2 C 1 

N INPUT 

2C2 

NINPUT 

202 

NINPUT 

20A 

NINPUT 

2C6 

NINPUT 

206 

NINPUT 

2C7 

NINPUT 

2C8 

NINPUT 

209 

NINPUT 

210 

NINPUT 

211 

N INPUT 

212 

NINPUT 

213 

NINPUT 

2 1 A 

NINPUT 

215 

NINPUT 

216 

NINPUT 

217 

NINPUT 

218 

NINPUT 

219 

NINPUT 

220 

NINPUT 

221 

NINPUT 

222 

NINPUT 

223 

NINPUT 

22  A 

NINPUT 

225 

NINPUT 

226 

NINPUT 

227 

NINPUT 

228 

NINPUT 

229 

198 


FAN12=S45I 14  »NCOF ) 

0£LT45=S45( 16,NCGF) 

60  TO  13C0 
1200  00  12 10 
1210  AUGN  I ,NCOFJ 

CALL  SN( 1C OR  6, 1 AC 06 ( 1 , NC^F } .5  0 11 

Gc^ro^ijcc'*00611’  ° ^ 

1220  CONTINUE 

CALL  N(PR7tS7{ l 9NCOFJ  ,1,8,1) 

GO  TO  13CQ  ' 

123C  CONTINUE 

N88=IN88(NC0F) 

1240  CONTINUE 

NUM9=INUMlNC0H 

1£J9-IEJ(NC0FJ 

SN (AREAS, S9li,NCCF)  ,1,12,1) 

CALL  SN( IC0R9,  f A0D9( 1,NCGF ) , 2,0,11 

1250  CONTINUE 

00  1260  I=Il, ifl 

1260  PROP  I { II = S10( I ,NCGF I 
GO  TO  13CC 
127C  CONTINUE 

OC  128C  1=11,13 

i^ac  ni3m=sn(i,NcoFi 

NRTR  11  = 1 H3(  liNCOFJ 

CLF11=I 113(2, NCGF) 

IRR 11=1 113(3, NC OF) 

GO  TO  13CG 
1290  CELT  12  = S 12<NC0F ) 

GC  TO  1300 
1293  CONTINUE 

OC  1295  I = I1,H0 
1295  E06VARU)  = S13(I,NCCF) 

IGOR 13=IA0013(NC0F) 

1300  IF(NTVP.N6..U)GC  TC  132C 
00  1310  1=11,13 
1310  NC IC( I )=NC( I ,NCOF ) 

INSHL  C=NC( 4,NCQF ) 

132C  I TYP£= lOQ 
132C  R£AD{ IN, NO  I SIN ) 

C 

IfINCAS.E«,Ii)  ICON! IC)=I TVP£ 

l“t™c!.!?vl)l3e0-UOC'1420-1«C'‘^.l»0,l550.l56(),1570,15,0,1,lo 

1335  CONTINUE 

00  1336  1=11,13 

1336  A JET (1*31 =G. 

1340  CONTINUE 

00  1350  (=11,13 

1350  Sll I?NC0F)=AJ6T(  I) 
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1 
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232 

I 

NINPUT 

233 

NINPUT 

234 

i 

NINPUT 

235 

I 

! 

1 

NINPUT 

236 

NINPUT 

237 

1 

{ 

ninput 

238 

NINPUT 

239 

NINPUT 

24C 

ninput 

241 

NINPUT 

242 

NINPuT 

243 

1 

NINPUT 

244 

| 

NINPUT 

24  5 

j 

NINPUT 

246 

| 

NINPUT 

247 

1 

NINPUT 

248 

( 

NINPUT 

249 

I 

I 

NINPUT 

250 

I 

NINPUT 

251 

I 

NINPUT 

252 

NINPUT 

253 

NINPUT 

254 

NINPUT 

255  : 

NINPUT 

256 

NINPUT 

25  7 ! 

NINPUT 

258  1 

NINPUT 

259  ; 

NINPUT 

260 

NINPUT 

261 

NINPUT 

262 

NINPUT 

262 

NINPUT 

264 

ninput 

ninput 

N INPU I 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 

NINPUT 
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0C  1360  1=14,19 

N INPUT 

287 

1360 

SitI,NG0F)=AJET(I+3) 

N INPUT 

288 

DO  1370  1=11,12 

NINPUT 

285 

137C 

JETlt I,NC0F)=IJET(I) 

NINPUT 

290 

GO  TO  1620 

NINPUT 

251 

I3ec 

continue 

NINPUT 

252 

DC  1390  1=11,13 

NINPUT 

293 

1390 

S2( I »NCOF )=A JET ( I +3) 

NINPUT 

294 

GO  TO  , 1340 

NINPUT 

255 

1400 

continue 

NINPUT 

296 

CALL  SN ( I CUR 3 t IADD3(1,NCCF),2,6,2) 

NINPUI 

297 

CALL  SN(TF3,ADD3ll,NCCF) ,1,54,2) 

NINPUT 

258 

00  1410  1=11,15 

NINPUT 

259 

1410 

S3(  I,NCOF)=T3U) 

NINPUT 

20C 

J3U.NC0F  )=JB3 

NINPUT 

301 

DO  1415  1=16,13 

NINPUT 

302 

1415 

S 3 ( I , NGUF  1 =8  3 ( 1—5) 

NINPUT 

303 

J 3 ( 2, NCOF ) = IC3 

NINPUT 

3C4 

J3(3»NCQF)=ISR3 

NINPUT 

306 

GC  TO  .1620 

NINPUT 

3C6 

1420 

CONTINUE 

NINPUT 

307 

DC  1430  1=14,16 

NINPUT 

308 

1430 

S45 ( I , NCOF)  = FANI 111—3) 

NINPUT 

3C9 

S45< 15, NCOF ) =CFPR4 

NINPUT 

3 1C 

CALL  5N ( IC0R4, I AD04(1,NCCF) ,2,6,21 

NINPUT 

311 

CALL  SN (TF4»ADD 4(1, NCGF)»l, 54,2) 

NINPUT 

312 

GO  TO  146C 

NINPUT 

313 

1440 

CONTINUE 

NINPUT 

314 

IM 5(  NCOF  )=N  15 

NINPUT 

316 

X8P5(NC0F)=8PR5 

NINPUT 

316 

CALL  SN( I COR 5, 1 AD05 (1,KCCF),2,8,2) 

NINPUT 

317 

CALL  SN(TF5,AD05(1,NC0F) ,1,54,2) 

NINPUT 

316 

DC  1450  1=110,12 

NINPUT 

319 

145G 

S45( I , NCOF ) =FANA 1 ( 1—9 ) 

NINPUT 

32C 

146C 

DO  1470  1=11,12 

NINPUT 

321 

147C 

I S45 ( l,NCOF)  = IFANl(I ) 

NINPUT 

322 

00  1480  1=15,17 

NINPUT 

323 

1480 

I S45 ( ( , NCOF ) =IFAN 1(1) 

NINPUT 

324 

DC  1490  1=11,13 

NINPUT 

325 

1490 

S45( I,NC0F)=FAN2( I ) 

NINPUT 

326 

DO  150C  1=17,19 

NINPUT 

327 

1500 

S 4 5 C I,NCQF)=FAN3II-6) 

NINPUT 

326 

S45( 13, NCOF ) =FAN4 

NINPUT 

329 

S45( 14, NCOF ) =FAN I 2 

NINPUT 

33C 

S45 ( 16»NC0F)=D£LT45 

NINPUT 

331 

GC  TO  1 162C 

NINPUT 

332’ 

1520 

CONTINUE 

NINPUT 

333 

CALL  SN ( 1C0R6, 1 ADD 6 (1,NCCF),2,8,2) 

NINPUT 

334 

CALL  SN ( TF6, ADD6 ( 1 ,NCCF) ,1,54,2) 

NINPUT 

335, 

DC  1530  1=11,16 

NINPUT 

336 

1530 

S61 I »NCOF )=ALG I ( 1 ) 

NINPUT 

33  7 

GC  TO  162C 

NINPUT 

338 

1540 

ccntinue 

NINPUT 

339 

CALL  SN(PR7,S7l 1 , NCOF) ,1,8,2) 

NINPUT 

340 

GO  TO  1620 

NINPUT 

341 

155C 

CGNTINUE 

NINPUT 

342'' 

I NB8 ( NCOF )=NB8 

NINPUT 

343- 
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I 
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CALL  SNIFPR8,  S8(l,NCCF),  l,  8.  2) 

NINPUT 

344 

CALL  SNUC0R8,IA008<1,NCCF),2,8,2) 

NINPUT 

345 

CALL  SN( TF8,A008il,NCCF) ,1,54,2) 

NINPUT 

346 

GG  TO  1620 

NINPUT 

347 

1 56C 

CONTINUE 

NINPUT 

348 

INUMINCOF  )=NUM9 

NINPUT 

349 

IE J I NCOF ) =1  £ J9 

NINPUT 

350 

CALL  SNUREA9, S9(l, NCGF)  ,1,12,2) 

NINPUT 

351 

CALL  SN<  1C0R9,IA0D9(1,NCGF) ,2,8,2) 

NINPUT 

352 

CALL  SN ( TF9, ADD9  1 1 »NCCF) ,1,54,2) 

NINPUT 

353 

GO  TO  1620 

NINPUT 

354 

157C 

CONTINUE 

NINPUT 

355 

DC  1580  1=11,18 

NINPUT 

356 

1580 

S10(  I , NCOF ) =PR0P 1(1) 

N INPUT 

357 

GG  TO  1620 

NINPUT 

356 

1590 

CONTINUE 

NINPUT 

359 

00  1600  1=11,13 

NINPUT 

360 

1600 

S 1 1 ( I , NCOF) *T1 13< 1 ) 

NINPUT 

361 

1 113( l , NCOF ) =NR TR 1 1 

NINPUT 

362 

I 11312, NC OF) =LLF11 

NINPUT 

363 

1113(3, NC0F)=IRR11 

NINPUT 

364 

GO  TO  1620 

NINPUT 

365 

16  1C 

S 12 ( NCOF  )=DELT12 

NINPUT 

366 

162C 

IF( NTYP.NE. I 1 )GL  TC  164C 

NINPUT 

367 

00  163C  1=11,13 

NINPUT 

366 

1630 

NC(I,NC0F)=ND1C(I) 

NINPUT 

369 

NC ( 4, NCOF )= INSHLO 

NINPUT 

37C 

164C 

CGNTINUE 

NINPUT 

NINPUT 

371 

372 

900C 

FGRMAT ( 20A4) 

NINPUT 

372 

IF( IUNIT.GT.OIGC  TO  17CO 

NINPUT 

374 

CALL  CCNVRUTYPE,!1,!1) 

NINPUT 

NINPUT 

375 

376 

170C 

RETURN 

NINPUT 

377 

165C 

CONTINUE 

NINPUT 

378 

STORE  JET  EDGE  INTERACTION  CLRREN7  DATA 

NINPUT 

379 

00  1660  1=11,110 

NINPUT 

380 

166C 

S 1 3 < l , NCOF)  = EDG VAR ( I ) 

NINPUT 

3S1 

IA0D13(NC0F)=IC0R13 

NINPUT 

382 

CCNE13  = EDG VAR ( 1) 

NINPUT 

2-83 

EMJ 1 3 = EOG VAR ( 2) 

NINPUT 

384 

FC13  = EDG VAR ( J) 

NINPUT 

385 

T SR  1 3 = EOG VAR ( 4) 

NINPUT 

38c 

SHAM  = EDG VAR ( 5) 

NINPUT 

367 

AJS13  = EDGVAR<  6) 

NINPUT 

388 

DCA13  = EDG VAR ( 7) 

NINPUT 

389 

0HNL13  = EDGVARt  8) 

NINPUT 

390 

CJCL13  = EDG VAR  < 9) 

N INPUT 

391 

FLAP  13  = EOGVAR(iO) 

NINPUT 

392 

GO  TO  1620 

NINPUT 

392 

END 

MNPUT 

3r4 
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,NK,ICLT  ,CFIN,  IUNIT,X,CFREC,SP,NCF 


I'^l 


SUBROUTINE  NOISGIIPRT,  i »NK  , I CUT ,CF  l N , I UN  I 

* • ITVPE } 

COMMON /ISWK/ISHT(3*13) 

CGMMCN/SWITCH/NTYPE,ICUMT,NEKG, ICCF, I DOM! 7} , 
*,  lNSEOW!3),INSHLO 
COMMON/TLRBIN/XXXXXXIS) , ISr3 
COMMON/ ICPATH/NCAS.NCCF, NT YP,IC  *NFN» I ARRAY  12 
COMMON /TMSPL/SPZ (24,17) ,18(2,3,13) 

COMMON/CL ABEL /CH{ 2, 8) 

COMMON/ANGLE /PS  I ( 17 , 1C) , PSI C ( 17 » 1C > ,8E TA  ! 17  , 
COMMON/SOELT/DT 

COMMON  /GCONST/  l N»  1 0 , I T 1 , 1 T2  «FC  ,F l , F2 ,F3  ,F4 

* iC,Il,I2*l3,t4,I5«Ic>,i?,I8«I 

* EPS,UNOEF,BL,tCO,CPR,RPC,ETA 
0 IMtNS  ION  TIT(8,14)  .CHIM2C)  ,Cf  FEU24)  ,SP124 
DIMENSION  TNU(4,2) 

DATA  TNL/4HC0RE ♦ 4h  N0I,4FSE  ,4H  , 

*4FiTURB?  AH INE  ,4HNOIS,4HE  / 

DATA  T !T/4HPRIM,4HARY  ,4FiJET  ,4FAC I S , 1HE  .3 * 1 


1CN1 13) , NLCPT 


,F5,F6,F7,F8,F9,F10, 
9»I10»Pl*P33*P5*P00it 
117) » M 1 » FM1 » 117, A, PI 
,17) 


F , 

2 4HPR IM»4HAKY  .4HAND  , 4HSECC , 4FNCAR  ,4H Y JE,4FT  N0.4HISE  , 

3 4HC0RE , 4H  AND, 4H  T UR  , 4H8  I NE  ,4 F AC l ,2F SE  ,2  * IF  , 

4 4FC0MP , 4HRE  SS,  4H0R  A.4HN0  l,4FMET,4h  FAN.4F1  NCI.2FSE, 

5 4HEXIT,4H  FAN  »4h  NO  I , 2HSE  ,4*  IF  , 

6 4H AUGM , 4HEN TE »4HR— Wl  ,4HNG  J.4FET  A ,4HC I SE  , 2*1 h , 

7 4HBL0W,4HN-Fl,4HAP  J.4HF.1  A ,4FC  ISE  ,3*  IF  , 

9 4HLIFT,4H-FAN,4F  NC l , 2HSE ,4*  IF  , 

8 4HE  JEC  , 4HTUR—  »4F!SUPP  »4HRE  SS  »4FC  R J,4HET  N,4HCISE,1F  , 

X 4HPR0P  * 4HELLE  » 4HR  NG, 3H I SE  ,4  * IF  , 

Y 4HHEL  I ,4HC0PT ,4 HER  N ,4HCI SE  ,4*ih  , 

Z 4HM6AS,4KURED,4F  0AT.4HA  At ,3F ! SE ,3*1H  , 

U4HJET  ,4HE0GE,4H  I NT , 4HERAC ,4F T I C A ,3* IH  , 

W4FT0TA,4HL  N0,4H1SE  , 4H  ( ALL  ,4Fi  CC  A ,4 FFCNE  ,4HATS ) , 2h  / 

DATA  DT/2COO./ 

I SV»=  l 

l F ( IPRT.EC.OJRfcTURN 

WRITE!  lOU'T  , 5 ) I SWT  (NCOF  ,ICUMT  ) 

FORMAT!  IX, 5H I SWT  = , 1 1 G ) 
l TTT= I SWT l NCOF , IDLMT ) 

CGNT INUE 

IF!  IPRT.NE.81GO  ,’C  95 
CONTINUE 

IFILCT.LT. 44)  GC  TC  95 
GC  TO  100 

I F( NK .EQ.3. AND. I PRT.NE.8 )G0  TC  ICC 
IF! ISW.EQ.2)G0  TC  115 
IF! 1/2*2  .EG. I ) GC  TC  115 
CALL  PRINTH! IPRT ,LCT,ICLT) 

IF! ITYPE.NE.3)WRITE( I OUT ,105) < T IT!  K , l T YPE ) , K=  1 , 8 ) 

IF! ITYPE.EQ.3.AND-ISW3.EC.0) WRITE  JICLT , ICS ) IT  IT < K , I TVPt I ; K=1 , 8 ) 
IF!  ITYP£.EQ.3.ANC.ISW3.EC.2)WRIT£ (ICLT ,106) ( TNU! K, 1 ) ,K- 1 , 4 > 

IF!  ITYPE.EQ.3.AN0.I SW3.EQ.3) WRITE  II LLT , 1 C6 ) { TNU I K ,2 ) ,K* 1 , 4 ) 


g^r-'C  * ' 
'IjzL.  r ' 

104 

p /-'-'  : 

106 

" - 

105 

115 

Bfcj 

ite 

SgpRU; ; 

mm 

15C 

IF!  I TYPE . 


, 3. AND. I SW3.EQ.3) WRITE  l ILLT ,106 ) { ’ 


FORMAT  I 52X , 8A4 ) 

LCT-=LCT  + 1 

IF! IPRI.EQ.8iG0  TO  14C 

GC  TO!  12C, 120,12 C,12C,12C, 154, 15 C, 104), IPRT 
CONI INUE 


NO  ISO 

2 

NO  ISO 

3 

NO  ISO 

4 

NO  ISO 

5 

NO  ISO 

6 

NOISC 

7 

NO  ISO 

8 

NO  ISO 

9 

NO  ISO 

1G 

NO  ISO 

11 

NOISL 

12 

NO  ISO 

13 

NCISO 

14 

NCISU 

15 

NO  ISO 

It) 

NCISO 

17 

NCISO 

18 

NCISO 

19 

NO  ISO 

20 

NO  ISO 

21 

NCISO 

22 

NO  ISO 

23 

NCISO 

24 

NO  ISO 

25 

NO  ISO 

2fc 

N01S0 

27 

NO  ISO 

26 

NO  1 SO 

29 

NO  ISO 

3C 

NCISU 

31 

NO  ISO 

32 

NCISO 

3 3 

NO  ISC 

34 

NO  ISO 

35 

NCISO 

16 

NO  I SO 

: 7 

NUISC 

3<t 

NCISO 

35 

NO  ISO 

40 

NOISU 

41 

NCISU 

42 

NO  ISO 

43 

NUISO 

44 

NO  ISO 

45 

NO  ISO 

46 

NCISO 

47 

NO  ISO 

48 

NCISU 

49 

NCISO 

50 

NO  I SO 

51 

NO  I SO 

52 

NO  ISO 

53 

NC  I SO 

54 

NUISO 

55 

NCISO 

5L 

NO  I SO 

67 

NCISO 

5E 

„ ,»? .^"ty -U,„  'w-,-.! 

• ' ■ • #?,5^  • 


( , 


gfj  V m»wi»iw»»i>wrwi!> 


If  l ISW-1)  152,  152,  189 

If(  ITTT.,NE»O.OR.  INSHLD.NE.O)  I SW=  2 

IFUTYPIi.EQ.lJ)  I SV»=1 

WRITE! IOUT, 155) 

LCT=LCT+3 

FORMAT ! 49X, 35HI NDEX  , FREE-FI ELC  SPECTRA  (R  = 1 M)//J 
CALL  PRTSH1 t I UN  I T , X ,LC7  , ICLT  ,21 
GC  TO  125 

CALL  PRTSH1!  I UNI T , X.LCT , ICUT , 1 1 

WRITE! TOUT, 130) ( CFREQ < K1 ) , ( SP ( K1 ,K2J  ,K2= 1 , 17 ) , Kl  = 1 , NCF > 
FORMAT { IX » lPfc 10. 3 , IX » CPF7. 1 * 16F7 . 1 ) 

LCT=LCT*1 

GO  T0(  1A0,1A0,14C,1AC,19C,16C,18C) ,IPRT 

WRITE (IOUT, 170) l ETA  I J 1) , Jl=l , 17 ) ,X ,CH1 I UM 1* 1 , l) 

FGRMAT ( / 2 X, 8 WANGLE  XI/3X.5H (DEG)  ,3X,17F7.C//50X, 

► 1SHSIDELINE  DISTANCE  =,1FE1C.3,A3  /) 

LCT=LCT+t 

RETURN 

CALL  WRPNL (NK , I , IOUT ,LCT ,IPRT ) 

RETURN 

WRITE! IOUT , 185) 

FGRMAT ( /3X»  6HANGLE  S/3X»5h (DEG  ) / ) 

WRITE! IOUT, 186) IPS  1! J, I) ,J  = l,17)  ,!EfcTAtJ,I)*J=l,17), 

* (ETA! J),J=1,17) 

FGRMAT  (4X,3HPSI»5X»17F7«1/4X,4HP'"’A*4X*17F7.1/ 

► 4X,2HXI,6X, 17F7.1) 

CCNTINUE 

OELT=DI*OPR 

WRITE!  I01T,1  87)OELT,X,CH(ILM  T+l  ,1)  ' 

FORMAT! AX, 5HDELTA ,3X ,F7. 1 ,31 X ,2CF S IDEL INfc  DISTANCE  = , 

► IPE 10.3, A3/ ) 

LCT=LCT*9 

IF!  ISW.E0.2JG0  TO  52 

RETURN 

ISW=1 

I SWT ! NCOF , IDLMT  ) -=C 
WRITE!  IOUT, 150) 

FORMAT  !49X»25HPRSiOlCT£D  CCNF  IGLP  AT  ICN  CORRECTIONS  //) 
LCT=LCT+3 

CALL  PRTSH1! I UN  IT ,X,LCT,IGLT ,3) 

WRITE! IOUT, 130) ICFRE0IK1) , ! SPZ I X 1 , K2 ) ,K2=1,17) »K1=1»NCF) 

LCT=LCT+l 

WRITE! IOUT, 185) 

WRITE!  IUUT.19  5) ! P S I! J, I ) , J = 1 , 1 7 ) , l ET A ! J ) , J=  1 , 17 ) 

FORMAT! 4X,3HPSl ,5X,i 7F 7. I /4 X ,2H > I ,6X ,17F7.l) 

GC  TO  200 
END 


NO  ISO 
NO  ISO 
NO  I SO 
NO  I SO 
NOISU 
NO  I SO 
NO  ISO 
NO  I SO 
NO  ISO 
NOISU 
NO  ISO 
NO  I SO 
NO  I SO 
MO  I SO 
NO  ISO 
NCI  So 
NO  I SO 
NO  ISO 
NOISO 
NOISU 
NOISU 
NOISu 
NCI  SO 
NOISU 
NOISO 
NOISO 
NOISO 
NCI  SO 
NCI  SO 
NOISO 
NOISO 
NCI  SO 
NOISO 
NOISO 
NCI  SO 
NOISO 
NGISU 
NO  I SO 
NOISu 
NOISU 
NOISO 
NOISO 
NOISO 
NOISO 
NOISO 
NOISU 
NOISO 
NO  I SO 


m 
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SUBROUTINE 

NSRIO 

NSRIO 

2 

c 

NSRIO 

3 

c 

PURPOSE 

TC  READ  NOISE  SHIELDING  REFRACTION 

NSRIO 

4 i 

c 

INPUT  OATA  AND  SET  UP  CURVES  FOR 

NSRIO 

5 ! - 

c 

DISCHARGE  TURBCMACHIMERY  NCISE  COMPCNfcNT S 

NSRIO 

fc|  ■ 

c 

DATA  IS  STORED  FOR  ALL  COMPONENTS  OF  ALL  THREE 

NSRIO 

7 1 

c 

CONFIGURATIONS  FOR  THE  FIRST  CASE.  THEN  ONLY 

NSRIO 

e 1 

c 

CHANGES  IN  OATA  FOR  A COMPONENT  IN  A CONFIGURATION 

NSRIO 

s ; " 

c 

REPLACE  OATA  IN  THE  FIRST  CASE 

NSRIO 

io  ! 

c 

NSRIO 

n ; 

c 

INPUT 

NSRIO 

12  t 

c 

EMJ 

EXHAUST  FLOW  MACH  NL 

NSRIO 

13  I 

j 

c 

IWED 

AN  ARRAY  INDICATINC-  THE  TYPE  OF  WING  EDGE 

NSRIO 

14 

[] 

c 

t 

DIFFRACTION  SGLUTICNS  TO  EE  INCLUDEO  FOR 

NSRIO 

15 

c 

THE  NOISE  COMPONENT  CONSIDERED 

NSRIO 

Li 

* 

c 

I WED  ( !.  ’=  1 TRAILING  ECGE 

NSKIO 

IT 

c 

, 

1 WfcO ( 2 v = 1 LEADING  ECGE 

NSRIO 

IE 

c 

I WED ( 3 ) =1  TIP  EDGE 

NSRIO 

19  j 

c 

TSTSO 

EXHAUST  FLOW  STATIC  TEMPERATURE  RATIG  WITH 

NSRIO 

2C  ! 

1 

c 

T SO=T AM8  IN  ABSOLUTE  UNITS (DEG  R OR  K) 

NSR  10 

21 

c 

ASF 

ANGLE  OFFSET,  G .*  M A , FCR  ANGULAR  SHIFT  CF  SOURCE. 

NSRIO 

22 

c 

ONE-DIMENSIONAL  ARRAYS  FOR  EMPIRICAL  ADJUSTMENT 

NSRIO 

23 

c 

CPSIU 

CURVES  TO  THEORETICAL  JET  REFRACT l CN  MODEL  WITH 

NSRIO 

24 

c 

FASS 

CPSIC  = CC TANGE NT ( PSIC ) INDEPENDENT  VARIABLE 

NSRIO 

25 

c 

BETA 

FASS  = ALFA  IN  FIGURE  OF  ENGR.  CGC. 

NSRIO 

26 

c 

BETA  * BETA  IN  FIGURE  CF  ENGR.  DOC. 

NSRIO 

27 

j 

c 

NASRO 

NUMBER  CF  POINTS  IN  THE  EMPIRICAL  CURVES- 

NSRIO 

28 

c 

FASS  VS.  CPSIC  ANC  BET*  VS.  CPSIO 

NSRIO 

29  j 

c 

IF  NO  INPUT  CURVES  ARE  TC  EE  INPUT,  SET  NASRO  * 0 

NSRIO 

30  1 

c 

AND  BUILT-IN  CURVES  KILL  BE  USED. 

NSRIO 

31 

c 

USPL 

EMPIRICAL  DIRECTIVITY  CURVE  CF  UNSHIELDED  SPL 

NSR  10 

32 

c 

PSI 

AT  STATIC  CONDITIONS  USED  In  SHIELDING  CALCULATIONS 

NSRIO 

33 

c 

IF  PREDICTED  AND  BUILT-IN  VALUES  ARE  NOT  OESIRED 

NSRIO 

34 

* 

c 

NUSPL 

NUMBER  CF  POINTS  IN  THE  EMPIRICAL  CURVE 

NSRIO 

35 

c 

UP SL  .VS.  PSI 

NSRIO 

36 

c 

INUSP 

INDICATOR  TO  DOCILE  WHICH  EMPIRICAL  CURVE  OF 

NSKIO 

37 

c 

USPL  .VS.  PSI  TC  USE 

NSRIO 

38 

c 

INUSP=C  USE  PREDICTED  VALUES 

NSRIO 

39 

c 

I NUSP= i LSE  BULT-IN  VALUES 

NSRIO 

4C 

c 

INUSP. GT. I USE  INPUT  VALUES  DEFINED  AECVE 

NSRIO 

41 

c 

0IAMT2 

DIAMETER  CF  NCZZLEtM  CR  FT  JSECCNCARY  JET 

NSR  lu 

42 

c 

DSL  1 

DIMENSIONLESS  SHIELD  LENGTH  TO  NOZZLE  EXIT  PLANE 

NSRIO 

43 

c 

0SL2 

PARALLEL  TC  EXHAUST  AXIS  (PRIMARY  AND  SECONDARY) 

NSR  10 

44 

c 

NSRIO 

45 

COMMON  /SWITCH/NTYPE»ITYPE 

NSRICJ 

4fc 

CGMMON/ICPATH/NCAS  tNCCF,MYP,IC 

NSRIO 

47 

COMMON  /TUK8lN/HMl,HM2,HM3,hM4,HM5,HMfc,HM7,HM8,HM9, (SH3 

NSRIO 

48 

COMMON  /GCONST/IN 

NSRIO 

49 

c 

JET  NOISE  SHIELDING  CATA 

NSRIL 

50 

COMMGN/JNSHLO/DI AMT2  »OSU 1 *DSL2 

NSRIO 

51 

r 

V 

WING  SHIELDING  OATA 

NSRIO 

52 

CGMMON/REFRAC/EMJ ,TST SC, l WED (3) ,F ASS (24) »EET A (24 ) ,CPS ICl 24) , NASRO, 

NSRIO 

53 

* ASF » INSF E 

NSRIO 

54 

COMMON/UNSHLD/LSPL 119) ,P S l ( 19 ),  M.  S FL , INUSP 

NSRIO 

55 

DIMENSION 

FPSI(24),FBETa(24) , TP S I (24 ) , TBET A< 24) , CPS  I ( 24 ) , CBET A( 24  ) 

NSKIU 

56 

* »USP IN ( 9) 

»PSI  IN(  9)  ,ur,F/.F(17)  ,PSIAF  (17)  ,USPT  E ( 17)  , PS  IT  B(  17)  , 

NSR  10 

57 

* USPCRI  17) 

»PSICR ( 17) * FAUF124),  T ALF (24)  , CAIF(24) 

NSRIO 

58 

204 


Is*-1 


p-  w.'<  M„  . ■ ^ v-2  ^ 


*'  -s^^'®eea»c»w<««*SW>?*^,!*a!^^eP5^ 


fc<V 
. *k# 


'g 

fe| 

Kk’-w;? 

©W,;£ 

kfeVi'l 


STORAGE  REQUIRED  FOR  SAVING  DATA  FCR  NEXT  CASE 

DIMENSION  ICON!  20)  ,$T01  (3)  ,IS7C1  (3,3)  .STC2 (3 ,3) , 1ST  -2^,3), 

* (S3C(3,3),IS3CC(3,3)  ,ST3C(3,3)  , S I3C A (19 ,3 ) , ST3CB(  -.^,3), 

* ST3CC (10,3),  ST3CD (10,3)  »I  S3T  (3 ,3  ) , ( S3TT  (3 ,3  ) ,ST  3T  1 3 , 3 > , 

♦ST3TA4 19,3),ST3TB(1S,3),ST3TC(1C,3),$T3TG(10,3) , 

*IS4(3,3) , 1S44(3,3) ,ST4A(19,3) , ST4B (19  ,3)  , IS5  (3,3 ) , IS55 ( 3,3) , 

* $T5(3,3),ST5A(  19,3)  ,ST5BU9,3)  , ST5C  (10 ,3  ) ,ST5UI  10*3), 

* ST3CE(24,3),ST3TE(24,3>  tS-1.  5E  <24  ,3 ) 

, 'JUI  VALENCE  (PSIAFt  1)  .PSICfiil)  ,PSI7B(l)i  , (FPS  I < 1 ) ,1  PS  I ( 1 ) ,CPS I ( 1)  ) 
JAMELIST/SHLDAf/EM,',  ' ST  50, IhED  ,F ASS, BET A,CPS  IQ, I NASRO,  ASF, 
*U$PI»PSI*NUSPL»INISV',DIAP72,0SL1,CSL2 

DATA  FOR  EMPIRICAL  ADJUSTMENT  CURVES  TC  JET  REFRACTION  MODEL 
DATA  INASRO  /O/ 

DATA  FPS I /-A., -3. 5, -3., -2- 75, -2. 5, -2. 25, -2.  ,-l.?5 1. 5, -1.25*- 1. , 
1 -.75, -.5,-. 25,  .25, .5, .75*1. ,1.25, 1.5, 1.75, 2. ,2. 5, 3./ 

CATA  FALF  /2* .45, . 53, . 64  ,.75 ,. 87 , 1.02 , 1.22 , l .A? , 1 , 55 , 1. 47, 1.3, 1 . 16 
*, 1.04,. 93,. 93, 1. Cl, 1.1s, 1.17, 1.02,. 88,. 79, 2*. 75/ 

DATA  CALF  /2*. 45, .51, .57, .67, .77, .86, .96, 1.03, 1.07, 1.01, .9, .82, 

* .77,  2*. 75, .8, .91, .95, .92, .85, .76, 2*. 75/ 

CATA  TALF  / 2* .45, . 5, . 53 , .59 , . 67 , . 72, .78 , . 8 72 , .62 , . 55 , . 53 , . 54, 

* .56,. 57,. 61,. 7,. 79,. 82,. 8,. 76,. 75, .75/ 

DATA  FBETA  12*. 95, .92,. 82,. 63  ,.4  1 ,. 1 8 ,-. 07 ,-.28 ,-.4 ,-. 37 ,-. 19, .0  7, 

* .37,. 93, 1.1, 1.13«1.C6, 1.02, 5*1./ 

DATA  CBETA  / 4*. 95 ,. 9 , . 8 , .66, .46  , .28 , .07 ,-.07  , .01 , .27 , . 54 , 1.08, 

* 1.27,  1.32,1.3,  1.16, 1.  1,1.07, 1.C5, -2*1./ 

DATA  TBETA  / 2*.  95,  1.  , 1 .07,  1.  17 , 1 .2  ,1. 1 7 , 1 .04  ,.  87  , .6  , .32  , .26,  .46, 

* .73,1.27, 1.47,  1.55,1.47,1.35,1.24,1.16,1.09,2*1./ 

UNSHIELDEO  DIRECTIVITY  FOR  HIGh-EYPASS  RATIC  TURNECF ANS 
DATA  USP IN/O. ,0. ,-l. ,-3. ,-6. ,-l 1 . ,-17.5 ,-30.  ,-43./ 

DATA  PSIIN/0.,50.,eC.,7C.,8C.,9C.,lOC.,120.,140./ 

CATA  USPAF/- 27 .,-21.5,— 17.5,—  14.5,-12.5,-11.  ,~9.  ,-7. ,-4 . ,-L. 5, 0. , 
*— 1.5,— 5.5,— 1C.,— 13.5,-16.  ,-17./ 

DATA  USPT8/-19. ,-18. ,-17. ,-16. ,-15. ,-14 . ,- 12. ,-10.5 , -7., -2.5,0., 
*-5.5, -11., -1 3. 5, -14. 3, -14. 5, -14. 7/ 

DATA  USPCR/— 20. 5,— 17. 5,— 14.7  ,-13.3  ,—  12.  ,—  10. 2 ,-8.5 , -6. 5,-4., 
*-1.5,0.,- 1.5, -4., -7. 5, -11. ,-13. ,-13.5/ 

DATA  PSIAF/0.,20.,.40.,5C.,60.  ,7C.  ,60.  ,90  . , 100  . , 1 10.  , 120.  , 130  . , 
*140., 150. ,160., 17t.,18C./ 

ChECK  NOISE  COMPONENT  TYPE  AND  EXIT  IF  NCT  INCLUCEC 

IF(  ITYPE.GT.blGG  TO  3CC 

TEST  IF  FIRST  CASE. IF  IT  IS  READ  CATA  ANC  STCRE  FCR  EACH 
COMPONENT, IF  NOT  FIRST  CASE  RETRIEVE  OATA  FCR  COMPONENT  AND 
CONFIGURATION  AND  THEN  GC  AND  RE  AC 

IF(NCAS.NE.  1)G0  TO  4CC 

INUSP=0 

INASRO=G 

ASF  = 13. 

EMJ=Q.0 
T ST  SO3 1 « C 
GO  TO  6CC 
400  IGO= ICON ( IC ) 


NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIU 
NSRIO 
NSRIu 
NSRIU 
NSRIO 
NSRIU 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSK  (0 
NSRIO 
NSRIO 
NSRIU 
NSRIO 
NSKIU 
NSR  10 
NSRIU 
NSRIU 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIU 
NSRIU 
NSRIU 
NSRIO 
NSRIO 
NSRIU 
NSRIU 
NSR  10 
NSRIO 
NSRIO 
NSRIO 
NSRIO 
NSRIU 
NSRIU 
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gssw 

sass&i 
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i F l IGG.GT  . 5 )G0  TO  30C 

GO  TO( 410, 420,430, 44C.45G) ,IGC 

PRIMARY  JET 
4 1C  DSL1  = ST01( NCOF ) 

00  415  I = It 3 

415  IWE0m=IST01U,NC0F» 

GO  TO  60C 

PRIMARY  ANO  SECONDARY 
420  0SL2=ST02( l.NCOF) 
CIAMT2=STC2I2,NCCF) 

CSLi=ST02( 3 t NCOF ) 

DC  425  1= If 3 

425  IWEDI  l)=ISI02(I »NCCF) 

GO  TO  6CC 


TURBINE  OR  CORE 
430  IF(ISR3.NE.2)GO  TO  435 
CORE 

CALL  WSDSTCIIGO  ,INAS 

♦ ST  3C  t 1 rNCOF ) t ST3CA( 1 , N 

* ST3CO(l,NCCF),21 
GO  TO  6CC 


SOSTCI  IGU  f I NASRC  , I S3C  1 1 ,NCCF)»1S3CC11»NCQF)»ST3CEI  l.NCOF), 
t NCOF ) i ST3CA I 1 t NCOF I , ST3Ce  ( l ,NCCF ) ,ST3CC< 1 ,NCGf ) , 

( IfNCCF ) t 2) 


TURBINE 

435  CALL  ViSOSTO I IGO 

♦ S r 3T  < l.NCOF), ST 

♦ ST  3TD ( 1 . NCOF ) » 
GL  TO  6CC 


E 

SOSTOI IGO  .INASRO.IS3T  tl .NCCF), I S3TTI l.NCOF) .ST3TEI l.NCOF), 
, NCOF  ),  ST3TA  U,  NCCF)  , ST3T8  U ,NCCF  ) .ST3TC  { 1 .NCOF)  , 

(1, NCOF), 2) 


INLET  FAN 

440  CALL  ViSOSTO  ( IGO 

♦ S T 5 ( l, NCOF) , ST4A 

* ST50I l.NCOF), 2) 
GC  TO  6CC 


LET  FAN 

LL  ViSOSTO  ( IGO  , I NASRC  , I S4  (1 , NCCF  ) , I S44  1 1 , NCOF  ) ,ST  5E  ( 1,  NCOF  ) , 
51 l.NCOF) , ST4A( l.NCCF) , ST4B ( l , NCCF ) , ST 5C  1 1 ,NCoF) , 

rcni  t nr n r « n i 


EXIT  OR  AFT  FAN 

45C  CALC  WSDSTOI IGO  , INASRC , I S5  1 1 , NCCF)  . I S55 ( 1, NCCF) ,ST5E ( 1 ,NCCF) , 
*ST5«  l.NCOF  ) , SI5A  I l.NCGF)  »ST5B(l,NCCF)»ST5Cll  ,NCGF  ) , 

* ST5DI l.NCOF) ,2) 

REAO  NOISE  COMPONENT  SHIELDING  DATA 


60C  R EAO ( IN , SHLOAT  J 

SAVE  THE  COMPONENT  TYPE 
IFINCAS.EQ. 1) ICON  1 IC ) = I TYPE 
GC  TOI 71C.72C.73C.74C, 750 .ITYPE 

PRIMARY  JET 
7 1 C STOIC NCOF ) =DSL 1 
CO  715  1=1,3 

715  I ST01 1 1 ,NCOF)=I RED { I ) 

GC  TO  30C 

PRIMARY  AND  SECONDARY  JET 
72C  ST02I  l, NCCF ) =D SL2 
ST02(2,NC0F)=DIAMT2 


NSRIO 

11< 

NSRIO 

ir 

NSRIO 

ik 

NSRIO 

n< 

NSRIO 

12C 

NSRIO 

12 

NSRIO 

12; 

NSRIO 

12; 

NSRIO 

12' 

NSRIO 

12! 

NSRIO 

12< 

NSRIO 

12" 

NSRIO 

12f 

NSRIO 

12‘ 

NSRIO 

1 3 ( 

NSRIO 

13 

NSRIO 

13i 

NSRIO 

13; 

NSR  10 

13' 

NSRIO 

1 3 * 

NSRIO 

13' 

NSRIO 

13- 

NSRIO 

13 

NSRIO 

13< 

NSRIO 

14C 

NSRIO 

14 

NSRIO 

14; 

NSRIO 

14. 

NSRIO 

14 

NSRIO 

14 

NSRIO 

14- 

NSRIO 

14 

NSR  IU 

14 

NSRIO 

14 

NSR  10 

15 

NSRIO 

15 

NSRIO 

15 

NSRIO 

15 

NSRIO 

15 

NSRIO 

15 

NSRIO 

15 

NSRIO 

15 

NSRIO 

15 

NSRIO 

15 

NSRIO 

16 

NSRIO 

: . 

NSRIO 

16 

NSRIO 

16 

NSRIO 

16 

NSRIO 

16 

NSRIO 

16 

NSRIO 

16 

NSRIO 

16 

NSRIO 

It 

NSRIO 

17 

NSRIO 

17 

NSRIO 

17 

Wms 
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*A 


ST02 1 3,  NCOF ) -=DSL  1 

NSRIO 

173 

DO  725  1=1,3 

NSRIO 

17A 

725  ISI02I  l,NCOF)=IWEDU) 

NSRIO 

175 

GO  TO  300 

NSRIO 

1 7fc 

c 

NSRIO 

177 

c 

TEST  FOR  CORE  OR  TURBINE 

NSRIO 

178 

730  IFUSh3.NE.21GO  TO  735 

NSRIO 

175 

c 

CORE 

NSRIO 

180 

CALL  WSDSTOI IT YPE, INASRO, I S3C(1,NCCF),'S3CC< 1 »NCGF) ,ST3CE( 

1, NCOF), 

NSRIO 

1£1 

*S13C ( 1 , NCOF ) »ST3CA ( 1 ,NCCF) »ST3CB(1»NCGF)»ST3CC( 1 ,NCCF ) , 

NSR  10 

182 

* ST3CD( 1»NC0F) , 1) 

NSRIO 

183 

GO  TO  15 

NSRIO 

ISA 

c 

TURBINE 

NSRIO 

185 

735  CALL  hSDSTOl I TYPE  * INASRO ,IS3T(1,NCGF),IS3TT(1,NCQF),ST3TE( 

l.NCOF), 

NSRIO 

18c 

*ST3T(1,NC0F),ST3TA(1,NCGF) , ST3TB U .NCOF) .ST3TCC l.NCOF) , 

NSRIO 

187 

♦ ST3T0 ( 1 »NCOF } , 1 ) 

NSRIO 

188 

GO  TO  15 

NSRIO 

185 

c 

NSRIO 

ISC 

c 

INLET  FAN 

NSRIO 

1S1 

7AC  CALL  WSDSTOU  TYPE.  INASRO,  I SAU.NCCF)  ,1  S4A( 1 , NCOF) ,ST 5E( 1, NCOF) , 

NSRIO 

192 

*ST5( l.NCOF ),STAA( l.NCOF)  ,ST4B  ( 1 , NCCF ) ,ST5C 1 1 ,NCOF) , 

NSRIO 

193 

* ST50( 1,NCGF ), 1) 

NSRIO 

19A 

GO  TO  15 

NSRIO 

195 

c 

NSRIO 

196 

c 

EXIT  OR  AFT  FAN 

NSRIO 

197 

750  CALL  WSDSTOU TYPE, INASRO, I S5(1,NCCF), I S55(i,NCCF),ST5E(l, NCOF), 

NSRIO 

198 

♦ ST5( l.NCOF) , ST5AI 1,NC0F) ,ST56 ( 1 , NCCF ) ,ST 5C ( 1 ,NCOF) , 

NSRIO 

199 

* ST50I l.NCOF) ,1) 

NSRIO 

20C 

c 

IF  PRIMARY  AND  SECONDARY  RETLRN 

NSRIO 

201 

15  CONTINUE 

NSRIO 

202 

c 

NSRIO 

203 

c 

TEST  UNSHIELDED  EMPIRICAL  DIRECTIVITY  CURVE  USAGfc 

NSRIO 

2CA 

c 

BRANCH  IF  PREDICTED  OR  INPUT  CURVE  TO  eE  USED 

NSRIO 

205 

I F ( INUSP.NE.  1)GC  TO  ICC 

NSRIO 

206 

c 

NSR  10 

207 

c 

STORE  TEST  DATA  DIRECTIVITY  CURVE  FCR  CCFFCNENT  ITYPE 

NSR  10 

2C6 

c 

FROM  BUILT-IN  CURVES 

NSRIO 

209 

IFl  ITYPE. NE.5)G0  TC  3C 

NSRIO 

2 1C 

NUSPL=l 7 

NSRIO 

211 

00  20  IS=1,NUSPL 

NSRIO 

212 

USPL ( I S ) = USPAF  t I S) 

NSRIO 

213 

20  PSII  IS)=PSIAFUS) 

NSRIO 

2 IA 

GO  TO  100 

NSRIO 

215 

3C  |FUTYPE.NE.A)GO  TO  5C 

NSRIO 

216 

NUSPL=9 

NSRIO 

217 

00  AC  I S= 1, NUSPL 

NSRIO 

218 

USPU  IS)  = LSPIN(IS) 

NSRIO 

219 

AC  PSII IS)  = PSI INI  IS) 

NSRIO 

220 

GO  TO  100 

NSRIO 

221 

■ 5C  IF( ISh3.EQ.0)G0  TC  280 

NSRIO 

222 

IF(ISh3.NE.3)GO  TO  70 

NSRIO 

223 

55  NUSPL*1 7 

NSRIO 

22A 

DC  6C  IS=1, NUSPL 

NSRIO 

225 

USPL ( I S1=USPTBI IS) 

NSRIO 

226 

60  PSII I S )=PSI TB 1 I S ) 

NSRIO 

227 

GC  TO  100 

NSRIO 

228 

7C  NUSPL=17 

NSRIO 

22  9 

207 


OC  8C  IS* 1,NUSPU 

NSRIO 

230 

USPL ( I S )=USPCR (IS) 

NSRIO 

231 

80  PSK IS)  =PSICR( IS) 

NSRIO 

232 

NSRIO 

233 

CHECK  FOR  INPUT  OF  EMPIRICAL 

ADJUSTMENT 

CURVtS  FCR  JET 

REFRACTION 

NSRIO 

234 

MODEL*  IF  NOT  INPUT,  USE  OEFAULT  CURVES 

PER  COMPONENT 

TYPE 

NSRIO 

235 

ICC  NASRO* INASRO 

NSRIO 

236 

IF  INASRO  .NE.  0)  GO  TC 

3 Of. 

NSRIO 

237 

NASRO  = 24 

NSRIO 

238 

I FI ITYPE.EQ.4)G0  TO  30C 

NSRIO 

239 

IF( ITYPE.NE.5IG0  TO  130 

NSRIO 

240 

OC  12C  IS=1, NASRO 

NSRIO 

241 

BETA! IS)  =FBETA( IS) 

NSRIO 

242 

FASS(IS)  = FALFIISJ 

NSRIO 

243 

I2C  CPSIOI IS)=FPSI(IS) 

4 

NSRIO 

244 

GO  TO  300 

NSRIO 

245 

I3C  I F ( ISW3.NE.3)  GO  TO  150 

NSRIO 

246 

OG  14C  IS=1, NASRO 

NSRIO 

247 

BETAIIS)  =T8ETA ( I S ) 

NSRIO 

248 

FASS(IS)  = TAUFUS) 

NSRIO 

249 

14C  CPSIOI I S )=TPS I IIS) 

NSRIO 

250 

GO  TO  300 

NSRIO 

251 

15C  OG  16 C I S=I*NASRC 

NSRIO 

252 

BETA! IS)  =C8ETA( IS) 

NSRIO 

253 

PASS (IS)  = CALF! IS) 

NSRIO 

254 

160  CPSIO! IS)=CPSIIIS) 

NSRIO 

255 

GO  TO  300 

NSRIO 

256 

28C  WRITEI6.29C) 

NSRIO 

257 

25 C FORMAT! IHO, ICX70H00  CORE 

SEPARATE  FRCM  TURBINE  WHEN 

SHIELDING  I NCL 

NSRIO 

258 

(USED  TURBINE  ASSUMEO) 

NSRIO 

255 

GC  TG  55 

NSRIO 

26C 

30C  RETURN 

NSRIO 

261 

END 

NSRIO 

262 

SUBROUTINE  PLOT!  T { X,  Y ,$NOL,FF ATH  ,NCi K,M2  ,M5 ) 


C PURPOSE 
C 

C INPUTS 

C 

C 

C CUTPUTS 
r 


INITIALIZE  PLOTTER  ANO  READ  IN  CATA 

MAXIMUM  DIMENSION  OF  ARRAYS  STORING  FLIGHT  PATH 
OATA  POINTS 

PRINTEO  CONTOUR  OATA  POINTS 
PLOT  OF  NOISE  LEVEL  CONTOURS 
PLOT  OF  SIOLINE  NOISE  LEVEL 


C X»Y  DIMENSIONS  (NOIM)  MUST  e£  AT  LEAST  1 GREATER  THAN  THE  NUMBER  OF 
C FLIGHT  PATH  PGINTS  TO  BE  REAO 
C 

LOGICAL  I WRITE 

DIMENSION  XI  NOIM, M2, P5 1 , Y l N0IM,M2  ,M5) ,FPATH!NCIM,3) .VNCISEI 5), 

♦ AREA!  5) 

* ,SN0L(N01M,3),TITLE(  E),NDISTI3) 

C 36C 

C * , SNDL(NDIM,3),TITL£!  18) , NDI ST (31 
C 

C 36C 

C COMMON  /PLT/  SCALV* YLENM ,X  LENM, CM-F  IN, LABELXIIO), LABELY  (10), 

C 1 AXUNIT ,NLABEL I 2) , SC ALU, I WRITF 

CCMMON  /PLT/  SCALV, YLENM.XLENM.CMFIN, LABELX!  A } , LABELY ( A), 

1 AXUNIT, NLABEL 1 1 ) , SCALU, I WRI TE 
C 

C PLOTTING  6UFFER  MAY  NCT  BE  REQUIREC  FOR  HOUSTON  INSTRUMENT  PLOTTER 
C 

CIMENSION  BUFFER ( IC2A) 

DATA  IBUF/102A/ 

C 

DATA  CM , X IN  /2HCM.2HIN/ 

CMP IN=2.  5ACOI 
REWIND  2 
I HR  I TE=  .FALSE. 

C 

C INITIALIZE  PLOTTER  TO  WRITE  ON  TAFES5 
CALL  PLOTSIBUFFER, IBUF.9S) 

C FACTOR  REQUIRED  ONLY  FOR  BCS  360  RUNS 
C CALL  FACTOR! 2.0) 

C 

C INPUT  FROM  CARDS  GENERAL  PLOTTING  SPECS 
C 360 

C READ  (5, 1CCC,END=9C5)  SCAL  V , XLENM  , YLE NM  ,DUM:.'S,  sXUN IT  , NLABEL 

READ!  5, 100C)  SCALV,  XLENM  , YLE  NF  »OLM  1 S , r.AUN  IT  .NLABEL 

IF  I EOF  15)1  9C5,  19C5 

1905  CONTINUE 
C 36C 

CIOOC  FORMAT ( 3Fi0.C,3X,A2,5X,AA,5X,2AA) 

1000  FORMAT! 3F10.0,3X,A2,5X,AA,5X,AB) 

C 36C 

C REAO! 5, IOC I, END =905)  LABELX, LABELY 
READI5, 1001  ) LABELX, LABELY 

IF  ( EOF ( 5 ) ) 905*  29C5 


PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOT  I T 
PLCTI T 
PLOTIT 
PLOTIT 
PLOT I T 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLGTIT 
PLOTIT 
PLOT  I T 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOT, { 
Pi. v)'  ! I 
" loti  r 
PLOf i T 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOT! T 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLGTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PL  OT I T 
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2505  CONTINUE 
C 36C 

CIOOI  FORMAT ! ICA4 ) 

1001  FORMAT  t A A 101 
C 

C LENGTH  MUST  BE  IN  CM  UNIIS 

1F!0UNITS-.NE.XIN.AND.0UNITS.NE.CM)GC  TO  901 
IFIDUNITS.EQ .CM )G0  TC  2C 
XLENM=XLENM*CMPIN 
YLENM=YLENM*CMPIN 
C 

20  CONTINUE 

C READ  INITIALIZING  DATA  FRCM  TAPE2 
C 36C 

C5C  READI2,2CC3,EN0=9CCI  TITLE 
C 360 

C2003  FORMAT I 18A4) 

2003  FORMAT! 8A10) 

50  READ! 2,2003 ) TITLE 

If-  ( EOF  12))  9CQ  * 1903 
1903  CONTINUE 
C 260 

C READ { 2»  20GC, END=9C2)  NP , NL »NSC ,NC I ST 

READ! 2«2C00)  NP  » NL  »N  SC  » NC I ST 

IF  ! EOF ( 2 ) ) 902,  L5C2 

1502  CONTINUE 

200C  FORMAT! 31 5,5X,A4,6X ,A4 ,6X, AA I 
REA0!2,2CC3)(YNGISE<U,I  = 1,NL) 

2002  FORMAT (5E 15*6,15) 

C 

C READ  DATA  FOR  1 SET  OF  PLOTS  - CCNTCLR  ♦ SICELINE 
C 

DO  ICC  1=1, NP 

C 36C 

c READ! 2* 2022* END  = S02)  FPA TH ll , 1 ) ,FFATF 1 1 ,2 1 »F PATH ! I ,3) , 

READ! 2,2022)  FPATHiI»l>»FFATHI»2)»FPATH!l,3), 

X ( SNDL ( I»K)»K=l*NSD) 

2022  FGRMAT { 6E 15»6 ) 

IF  ! EOF ! 2 ) ) 502,  1900 

1900  CONTINUE 
C 

C READ  OATA  FOR  EACH  NOISE  LEVEL  AT  POINT  I 
C 

DO  ICO  J=l,NL 

READ!2*2002)  X 1 1 , l , J ) , X < I ,2 , J)  , > 1 1 ,1 , J) , Y i I , 2, J) , AREA! J) , I ERR 
100  CONTINUE 
C 

C PLOT  CONTOURS 
C 

CALL  FOTCNT! X, Y , VNCI SE ,FPATH ,ARE A ,NP ,NL ,NC I M ,T ITLE) 

r 

C PLOT  SIDELINE 
C 

CALL  SIDPLT! SNDL ,F PATH (1,31 ,NF,NCIST»TI TIE  »NSC,NCIK) 

C 

C REPEAT  PLCT  LOOP  UNTIL  ENO  CF  OATA 


PLOT  I T 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLUTIT 

PLGTI T 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLCT I i 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 

PLOTIT 


59 

6C 

61 

62 

63 

64 

65 

66 
6? 


'■-A 


mTf 


c 
c 
c 
c 
c 

900 


GC  TO  5C 

NORMAL  RETURN 

EMPTY  PLOT  BUFFER 

CALL  PLOT ( 0*  tO*  »999) 
RETURN 


ft 

C ABNORMAL  TERMINATION 

n 

C 

i§ 

901 

WRITE(6,3000) 

f§ 

3000 

FORMAT! IH0.2CH  ♦** 

p 

WRITE! 6t  3001) 

f§ 

3001 

FORMAT! 1H  ,5X, 

X45HPL0T  SIZE 
GO  TO  999 
902  WKITE!6»  3000) 
WRI TE ( 6*3002 ) 
3002  FGRMATI1H  ,5X, 
128KINSUFFICIENT 
GC  TO  999 

905  hR ITE ( 6 1 3000 ) 

WRITE16, 3005) 
3005  FGRMAT ( 1H  f5X, 
X45H INSUFFICIENT 
999  STOP 
ENO 


FATAL  ERRCR  M*  ) 


UNITS  MUST  BE  SPECIFIED  AS  IN  OR  CM  ) 


DATA  CN  TAPE2  I 


PLOT  SPECIFICATION-  DATA  CN  CAROS  ) 


PLOT  I T 
PLOTIT 
PLOT  I T 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLOT  1 T 
PLOTIT 
PLOTIT 
PLOTIT 
PLOTIT 
PLCTIT 
PLOTIT 
PLOTIT 
PLCTIT 
PLOTIT 
PLCTIT 
PLOTIT 


lit 

117 

lie 

119 

120 
121 
122 

123 

124 

125 

126 
127 
126 

129 
120 

131 

132 

133 

134 

135 

136 

137 

130 
139 
14C 

141 

142 

143 
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subroutine  pnob4(spl,kind,pncb) 

PURPOSE  TO  CALCULA IE  THE  PEPCEIVEC  NOISE  LEVEL  CF  A SOUND 

PRESSURE  LEVEL  SPECTRUM  ACCCRDIKG  TC  REFERENCE  2 
AUTHOR  J.  N.  THOMAS 

MODIFICATIONS  NONE 


METHOD 


USAGE 


INPUTS 


OUTPUTS 
ERRUR  RETURN 


STORAGE 

TIMING 

REFERENCES 


THIS  SUBROUTINE  USES  THE  METHODS  AND  TABLES  IN 
ARP-865  (REFERENCE  2).  THE  SPECTRUM  CAN  BE 
PREFERRED  1/3  CCTAVE,  PREFERRED  CCTAVE,  CR  COMMON 
OCTAVE  BANCS. 

CALL  PNQB4(SPL«KINC»PNCB) 

0 IMENSICN  SPL(l) 

SPL  - ARRAY  CF  24  PREFERRED  1/3  CCTAVE,  8 PREFERRED 
CCTAVE,  CR  8 CCMMON  CCTAVE  SPL  VALUES  IN  DB 
KIND  - = 1 FCR  PREFERRED  1/3  CCTAVE 
= 2 FCR  PREFERRED  CCTAVE 
= 3 FLR  CCMMCN  CCTAVE 

PNCB  - THE  PERCE  I V EC  NCISE  LEVEL  IN  PNCB 

IF  KINO  DOES  NCT  EQUAL  1,2,  OR  3,  THE  PNL  WILL  NOT 
BE  CALCULATED,  ANC  THE  FOLLOWING  MESSAGE  WILL  BE 

PRINTEOC  KIND  ECLAL"  TC  IS  UNDEFINED.  PNCB  IS 

SET  EQUAL  TO  ZEPC  ANC  CCNTPCL  IS  RETURNED  TO  THE 
CALLING  PROGRAM. 

545  BASE  EIGHT 

0. 015. CP  SECONDS  FCR  A 24  VALUE  SPL  ARRAY 

1.  PEART, N. A.,  REVISED  PNL  CALCULATION  PROCEDURE, 
MEMO  6-8580- 9- 238, JUNE  19,1969 

2.  SCO  IE  T Y CF  ALTCKTIVE  ENGINEERS,  AEROSPACE 
RECOMMENDED  PRACTICE  865A,  SAE,  AUGUST  15,1969 


SUBROUTINES  CALLED 

APPLICATIONS  - NONE 
SYSTEMS  - ALGG1C 

DOCUMENTATION  AMEP-S-17C 

♦ **  RESTRICTIONS  *** 

SPL  VALUES  SHOULD  BE  LESS  THAN  15C  CB  . IF  THEY  ARE  NCT, 
NOY  VALUES  ANC  PNDB  VALLES  WILL  BE  I NCCRRECT . 

REAL  LL.MM 
REAL  L , M 

DIMENSION  L( 24,5), Ml  24, 4), SPL (24,171  ,PNCe( 171 
DIMENSION  LLl 120) ,MM(96J 


EQUIVALENCE 

(LL 

( 1)  . 

i L ( 1 1 

.1) ) ,<M( 

1, 

n 

, MM.  ( 

1 

) ) 

DATA 

LL 

/ 49., 

44 

• ♦ 

39. 

34. 

, 30 . , 

27. 

9 

24., 

21. 

» 18  . , 

i 

5*16 

.,15.. 

12. 

,9., 

.5.  , 

>4.  ,5.  , 

6. 

* 

1C. 

17. 

, 21. 

, 

2 

55., 

51 

• t 

46. 

42. 

, 39., 

36. 

9 

33  • t 

30. 

,27  • , 

1 

5*25 

.,23., 

21. 

,16. 

.,15. 

.,14.  ,14 

• f 

15 

. ,17 

,23. 

,29.  , 

3 

64.  , 

60 

• t 

56. 

53. 

t 51., 

48. 

t 

46*  t 

44., 

42., 

l 

5*4C 

. , 38  • , 

34. 

,32. 

. ,3C. 

.,29.  ,29 

• 9 

3C 

. ,31 

• 

,37. 

,41. 

, 

4 

91. Cl 

* 

€5.88 

9 

07 

.32  , 

79 

• 

■s\ 

CO 

79. 

76  , 

PNDB4 

PNDB4 

PND84 

PNDB4 

PNCB4 

PNDB4 

PNCB* 

PNC84 

PNDB4 

PNDB't 

PNCB4 

PNDB4 

PNDB4 

PNUB4 

PNDB4 

PNDB4 

PNCB4 

PNDB4 

PNCB4 

PNDB4 

PNOB^ 

PNDB4 

PNCB4 

PND84 

PNCB4 

PNDB4 

PNDB4 

PNUB4 

PNDB4 

PNCB4 

PND04 

PNDB4 

PNDB4 

PNDBA 

PNCB4 

PNDB4 

PNDB4 

PNCB4 

PNDB4 

PNDB4 

PNDB4 

PNCB4 

PNDB4 

PNDB4 

PNDB't 

PN034 

PNDB4 

PNCB* 

PNDB4 

PNCB4 

PNDB4 

PNDB4 

PN0B4 

PNCB4 

PNCB4 

PNC54 

PNCB'* 


!'•  1 
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*$Uu<- ' 

' fee: , 


,;£&t‘-V 

2&?3«  J':’ 
1%?-*  « 


$?£ '» t^S 

y^,}  i 

rkW'~,*s‘  - K 

I 


1 

75.86  ,73.96 

,74.91  ,94.63  , 13*100.,  44 

.29 

,50.72 

9 

PNDB4 

59 

5 

52. , 51.,  49.,  47.,  46., 

45. ,43. ,42.  ,41 

• 9 

PNDB4 

60 

1 

5*40. » 30. ,34., 

32. ,30. ,25. ,25. ,3C. ,31., 34., 37. 

/ 

PNDB4 

61 

DATA  MM 

/ .079520  , 2*. 068160 

9 

.059640 

9 

PNCB4 

62 

1 

10*. 053013 

, .05964C  , 2*. 053013 

t 

2*. 047712 

9 

PNCB4 

63 

2 

2*. 053013 

, .068160  , .079520 

f 

.0596401  , 

PNDB4 

64 

X 

2*. 058058  , .052288 

f 

.047534 

9 

PNDB4 

65 

1 

2*. 043573 

, .040221  , .037349 

9 

7*. 034859 

9 

PN0B4 

66 

2 

.040221 

, .037349  , 4*. 034859 

9 

2*. 037349 

9 

PNDB4 

67 

3 

.043573 

PND84 

68 

X 

.043478  , .040570 

9 

2*. 036831 

• 

PND  84 

65 

1 

.035336 

, 2*. 033333  , .032051 

9 

.030675 

9 

PNDB4 

70 

2 

6*. 030103 

, 7*. 029560  , 2*. 042285 

9 

PNCB4 

71 

X 15*. 03C1C3  , 9*. 029960  ✓ 

DO  55  JJ  = l,  17 
SUM=0. 

XMAX=0. 

PNOBI J J )-0. 

IFtKlND.LT. 1. OR. KINO. GT. 3)  GC  TC  6C 
IF  (KIND-2)  1,  2,  3 

1 CONTINUE 
NUM=24 
C=  . 15 
KK=0 
INC=1 

GC  TO  10 

2 CONTINUE 
KK=—  1 

4 CONTINUE 
NLM=8 
C*.3 
INC=  3 
GC  TG  10 

3 CONTINUE 
KK=— 2 

GO  TO  4 
1C  CONTINUE 

DC  50  I = l,NIIM 
A = l. 

KK=KK4INC 
DO  20  J=l,4 

IFtSPH  I,JJ).LT.UXK,JI  ) GC  TC  21 
2C  CONTINUE 
J = 5 
K = 5 

GC  TO  22 

21  CONTINUE 

IGNORE  SPU1.JJ1  EF  IT  FAILS  CFF  1 HE  LCHER  END  CF  THE 
IFU.LT.2)  GO  TO  5C 
IFIJ.EQ.2)  A = . 1 
K*J-l 

IF ( K .EG. 2 ) K=3 

22  CONTINUE 

XNOY=  A*  ICo**  t M ( KK*  J- 1 } * (SPL(I»J.!)-L(KK»K)  ) 1 
IF(XNOY.GT.KHAX)  XMAX=XNCY 
St/H^SUM*  XNOV 
5C  CONTINUE 


TABLE,  !.E.,J»1 


PNCB4 
PNDB4 
PNDB4 
PNC  84 
PNCB4 
PN0B4 
PNG84 
PND84 
PNDB4 
PND84 
PNCB4 
PND84 
PND84 
PND  84 
PNDB4 
PN0B4 
PND84 
PNC84 
PNCB4 
PNDB4 
PNDB4 
PND84 
PNDP/4 
PNLB4 
PNCB4 
PNDB4 
PNDB4 
PNDS4 
PN064 
PNC04 
PND84 
PND84 
PND84 
PND34 
PN084 
PNDB4 
PNCB4 
PNC84 
PNDB4 
FNDB4 
PND84 
PNDS4 
PNDD4 
PN0B4 


msmm 

wM0i 
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' 1 

• 'A. 


BARN*  XMAX  * C*  (SIM  - XMAX) 

C PNOB  CANNOT  BE  NEGATIVE  _ „ 

IF(BARN.GT.0.048)  PNOBt JJ)  = (ALCG10{BARN)  )/. 030103  ♦ 40. 

55  CONTINUE 
RETURN 
6C  CONTINUE 

WRITE  (6t 611  KINO 

61  FORMATl ICX»14HKIND  ECLAL  TO  *I4,13H  IS  UKDEFINED  ) 
RETURN 
END 


PNDB4 

PNDB4 

PN084 

PNDB4 

PNDB4 

PNDB4 

PN0B4 

PNDB4 

PN0B4 

PNC84 


rA 

ImZ'M 


mm&\ 

ifi 

is 

MwMf) 
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SUBROUTINE  PNLSUB ( SP . PS , TP ,EP  ,PL  ,71 , NK ,B  , T ,F « I , NOBS , IR ) PNLSUB 

COMMON  /GPRAM/ALTP.ALTR,  SLOPE,  AMACF,  CUM,  SLDl STUO ) , NTENG,  IUNIT  PNLSUb 

* , ISPTRM,  IATMGS,IAIR,LAIRAB(24)  ,MEPP»TEMP(50),TALT(50)  PNLSU6 

* *NPR£S,PRES( 50 ,PALT  ( 50 ) ♦ NHlf. 1 0 , P ALT  (50)  ,RHUMID( 50 ),CTEMP  PNLSUB 

* ,CPRES,CRHUMC,IEGA,lCDR#0TEPf,0PRES,CHUMIC»XKN,ND,FLD(50),  PNLSUB 

* ZNR<  50) ,ZNI ( 50) t L INECT,FAXL I N . I F AGE ,BCG tTCG ,FLR , AALT, EPF  PNLSUB 

DIMENSION  SP(24,17),  PSII7,U),  IF  1 17  > • £P(5),  PL(1>,  TL(5),  PNLSUe 

l IR ( 1C, 17  > PNLSUB 

DATA  UNO  /177700GCCCCCCCCCCCCGB/  PNLSUB 

NL=2  PNLSUB 

IF(NK.EQ.3)NL*1  PNLSUB 

NOBX=NOBS  PNLSU8 

CALL  PNDB4(SP(1»1)»NL,PSU»1>)  PNLSUB 

IFIAMACF-NE.C. )GC  TO  ICC  PM.Sue 

GO  TO  200  PNLSUB 

CONTINUE  PNLSUB 

CALL  EPNLI(PS( l » 1 ) »TP»l7tB»T*F*EF#IEF)  PNLSUB 

IF( IER.EQ.OIGO  TO  30C  PNLSUB 

CONTINUE  PNLSUB 

6P  C 1 I =0'ND  PNLSUB 

EP ( 2 > =UND  PNLSUB 

EP( 3 ) = UNO  PNLSUB 

EP( 4 ) =UNO  PNLSUB 

EP( 5 )=UNO  PNLSUB 

CONTINUE  PNLSUB 

IFCNK.NE.3)  GO  TO  2eC  PNLSUB 

CALL  TCNCOR(SP(l,I),PS(l,ll),PL,IPR)  PNLSUB 

OC  350  N=  1 * 1 7 PNLSU8 

PS(N,  ll)=PS(Nfll)*PSINtl)  PNLSUB 

IF! AMACh.NE.C. )G0  TO  37C  PNLSUB 

GC  TO  375  PNLSUB 

CONTINUE  PNLSUb 

CALL  EPNL  I(PS(1#1II»TP»17»B»T»F»TL»IER)  PNLSUb 

I F { IER.EQ.OIGO  TO  35C  PNLSUB 

CGNTINUE  PNLSUB 

TL ( I ) =UND  PNLSUb 

TL ( 2 ) =UNO  PNLSUB 

TL ( 3 ) =UNO  PNLSUB 

TL( 4 )=UNO  PNLSUB 

TL ( 5 ) =UND  PNLSUB 

CONTINUE  PNLSUB 

CGNTINUE  PNLSUB 

RETURN  PNLSUB 

END  PNLSUB 
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SUBROUTINE  PR INTH (N , LCT , LJ 

COMMON/ ICPATH/NCA$,NCGF,NTYP,IC»NPN,  I ARR]iV{2i 
COMMON /HE AO /H  IN { 20 ) »HCliT  (20)  .CHIN  (20) 

DIMENSION  HD1 (4) ,H02t7» 

DATA  HD  1 /4HPR0G.4HRAM  .4HTEE3 .4H30A  /.  ATE  /4HDATE/ 
DATA  HD2/4HAIRC. 4HRAFT  ,4H  N0I.4HSE  P .4HRECI .4HCTIQ.4KN 
OATA  I6NTRY/C/ 

I F ( IENTRY.EQ. 1)G0  TC  1C 
CALL  OATE(OAY) 

IENTRY=1 
1C  LCT-=5 

WRITE  (L.1C0)  HOI.  ATE,  HD2 , DAY 
100  FORMAT ( 1H1,57X,4A4,5CX,A4/53X,7A4/120X,A10) 

WRITE(Lt 110) NCA  S » HCL  T 

11C  FORMAT ( 10H  CASE  NO.  , l 3 .2 7X ,2CA4  ,1 X , 8H YR /MO/ C A) 

I F ( N.EQ.3 )G0  TO  13C 
IF(N.EQ.7)G0  TO  13C 
WRITEIL,  120 
120  FORMAT (1H  ) 

GG  TO  1000 

13C  WRITEtL,  140CHIN 
14C  FORMAT ( 4GX , 2CA4 ) 

1C0C  RETURN 
END 
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2 

PRINTH 

3 

PRINTH 

4 

printf 

b 

PRINTH 

6 

PRINTh 

7 f 

PRINTh 

6 . 

PRINTh 

9 ; 

PRINTH 

10 

PRINTh 

11 

PRINTH 

12 

PRINTh 

12 

PRINTh 

14 

PRINTH 

IS  ■ 

PRINTH 

It 

PRINTH 

17 

PR  INTH 

18  : 

PR  INTH 

19  = 

PR  INTh 

20  1 

PRINTH 

21  1 

PR  INTH. 

22 

PRINTH 

23  ' 

PRINTH 
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SUBROUTINE  PROP 


PURPOSE 


REFERENCES 


PROGRAMMER 
REQUIRED  DATA 


THE  FCLLCWING  FRCFELLEP  NCISE  PRECICTIGN  PROCED 
BASED  ON  THE  BELCW  LISTED  REFERENCES.  THE  PROCE 
CONSIDERS  TWC  NCISE  CCMPCNENTS.  ( 1 ) THE  VORTEX  N 
BASED  ON  THE  ECLATICNS  IN  REFERENCES  I AND  2. 
(2JDISCRETE  TCNE  NOISE  BASED  ON  REFERENCE  3.  TH 
RESULTING  NCISE  ESTIMATES  HAVE  BEEN  CORRECTED  T 
FREE  FIELD  INDEX  CONDITIONS  (RADIUS  = I METE 

1 F.H.  SCHHIT2,  W.Z. STEPNIEWSKl , J.GI BS.E.HINTE 
A COMPARISON  OF  OPTIMAL  AND  NOISE  ABATEMENT 
TRAJECTORIES  OF  A TILT  ROT CR  A IRCR AFT, NAS A C 
MAY  1972. 

2 F.W. BARRY, B.MAGLICZZl,  NOISE  DETECTABILITY  P 
N METHOD  FOR  LCW  IIP  SPEED  PROPELLERS  { HAMILTON 

STANDARD),  AFAPL-TR-7I-37,  JUNE  1971. 

3 B.MAGLICZZl,  GENERALIZED  PROPELLER  NCISE  EST 
PRCCEOLRE  (HAMILTON-STANDARD, REVISION  C),  II 

M.A.  JAEGER  NCISE  AND  PROPULSION  GROUP  G- 

VAR I ABLE  DEFINITION  UNITS 

ISPRTM SWITCH  FCR  1/3  CR  FULL  O.B.  (0  DR  I) 

T THRLST  CEVEICPEC  BY  PROPELLER.  LBF 

W POWER  GIVEN  TC  THE  PROPELLER 

SHAFT.  HP 

PPM RCT  AT  ICNAL  SFEEC  CF  PROPELLER 

SHAFT.  RPM 

0 PRC  FELL  ER  DIAMETER  FT 

OSUBE CHARACTERISTIC  D I MENS l CN  FOR  THE 

ElAC  GEOMETRY  AT  0.7  SPAN.  FT 

CSIEE=6T*CCS(CL)+CI*ABS<S IN  ATT ANGI 
6T=  ELADE  ThICKNESS 
CL=  CHCRD  LENGTH 
ATT ANG-=  ANGLE  CF  ATTACK 

ASLBB TCTAL  BLADE  AREA  CF  PROPELLER  HT**2 

ASGBB  = B*  INTEGRALIHUB  TO  TIP) 

CF  CL  OELTA-R 

B NUMBER  CF  PRCFELLER  eLACES  NONE 

OELTAE ANGLE  BETWEEN  PROPELLER  AND 

HCPIZCN  DEG. 

SLOPE CL  I PE  GRADIENT  IE  TAN(THETA)  NONE 

DOPSF(JJ) CCPPLER  SHIFT  FACTOR  I 1-ACMN* 

CCS(XI).  IF  NC  DCPPLER  SHIFT 

AM.ACH AIRCRAFT  MACH  NUMBER  NONE 

THEN  DCPSF=I.  NONE 

CAMB AMB  IENT  SPEED  LF  SCUNO 

CAME=  K *SCRT (TSO) 

K=20. 04647  M/SEC  PER  DEG.  KELVIN 
49.0214 2 FT/SEC  PER  OEG.  RANKING 
TSC=  STATIC  TEMP  (REG.  R CR  K) 
AT  ALTITUDE  ZC 

P DISTANCE  FCR  SCUNO  PRCPAGAT  ION 


PROP 
PROP 
PRCP 
PROP 
PROP 
PROF 
PROP 
PROP 
PRCP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PRCP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PRCP 
PROP 
PROP 
PROP 
PRUP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PR  nP 
PROP 
PROP 
PROP 
PRCP 
PRCP 
PROP 
PROP 
PROP 
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BETWEEN  SOURCE  AND  OBSERVER  FT 

l X , Y , ZSUBN ) AIRCRAi-.  COORDINATE  RELATIVE 

TC  THE  OBSERVER.  FI 

BUF ARRAY  OF  CUTOFF  FREQUENCIES  (Hi) 

FOR  THE  SOUND  PRESSURE  LEVEL 
SPECTRUM.  L ENGTH=25 

FRCCLTlIi  = lO**t0.l*(  1 + 15.5))  HZ 

NENG NUMBER  CF  PROPELLER  ENGINES  NONE 


VARIABLES  SET  D UR  INC- 
INITIAL  l ZAT  I GN 


ALPHA ANGLE  BETWEEN  TEE  THRUST  AXIS  AND 

ThE  DIRECTION  OF  THE  AIRPLANES 
MCTICN  DEG. 

ALFHA=D£LTAE-ATAMGRAD) 

SCI ThE  CIRECTIVITY  ANGLE 

ACCSI—  (YCGS(G£LTAE)+ZNSIM DELTAE) 

/ F ) ) DEG. 

VSLBT TIP  SPEED  ET/SEC 

= PI+RPM*DSUBT  / 60 

XMSLBT ROTATIONAL  TIP  MACh  NUMBER 

XMS8TR RELATIVE  PCTATICNAL  TIP  MACH 

NUMBER 

= SCPT  XMSUBT**2+IACMN*CCS( ALPhA) )**2 
< Cl AGNCST l C-  I F XMSUBTR  GT  .9  OR 
.LE.  0 ) 

VSUBTR RELATIVE  TIP  SPEED  ET/SEC 

= CAMB  *X  MSLBTR 

FSLBC C8SERVEC  FUNDAMENTAL  BLADE  PASSAGE 

FREQUENCY  hZ 

= e*  PPM/  I 60*CCPSF ) 

F SUB  V OBSERVED  CHARACTERISTIC  FREQUENCY 

FCR  BROADBAND  VCRTEX  NUISE  HZ 

= C .28 ♦VSUBTR  / ( DSUB E + CCPS F ) 

P SUB  I ARRAY  OF  PRESSURE  SPECTRA  LEVELS 

SPLI ARRAY  CF  SCUNC  PRESSURE  LEVELS  1=1,24 

BRING  IN  INPUT  CARD  VARIABLES  FRCM.  INPUT  ROUT  IN 


COMMON/PROP IN/T, W, RPM, D, DSUBE , A SL BE, B, CELT  A, 

♦ IC0RI0,LINI0,NTF1C, I MA  10  ,LGM  IC,N Wl  10 , 1 0 P 10  , ILAY10.TF  10 ( 10) , 

♦ PCTAIOI 10 ) *PLA1C(  1C) tELOhICyEDh IC  ,RI WIO ( 1G > ,TL 10 ( 10) ,CF 10, FM 10 
CGMMGN/SwiTCK/NTYPE , I TYPE ,NENG, ICCP, IPRT 17 ) , I CN 113 ) , NLCPT 
CONSTANTS  USED  IN  INTERNAL  CALCLLATICNS 


COMMON  /GCONST/ 


* 

* 


IN, IC,IT1,IT2 ,FC,F1,F2,F3,F4,F5,F6,P7,F8,FS,F10, 

IO, 11,12, 13, 14, 15, 16, 17, 18, 19, 110, PI, P33,P5, POO  1 , 
EPS.UNOEF  ,BL  ,ICO,OPR,RPD,ETA( 17) ,MI , FMl, 1 17, A, P l 


VARIABLE  SET  CALCULATED  IN  ThE  FPCGRAM  PROCESSING 


PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PkcP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PkOP 

PROP 

PROP 

PROP 

PROP 

PkOP 

PROP 

PROP 

PROP 

PROP 
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PROP  lie 

COMMON  /GCUMON/  NCF ,NK ,BCF ( 24 1 , T S PL ( 24 , 10 , 17 ) , SPLT ( 24 , 17  ) , PROP  117 

*8UF(25),RETAC17),SPL2U7),TGAGR(24),CCPSF(17)  PROP  118 

COMMCN/SUMSPL/SSPL (24»10»17)  PROP  1 1 S 

COMMON /PNLO/PSPL { 1 7 » 2 C ) »EPNL(5,1C),TEPNL(5»10)  PROP  120 

PROP  121 

FREQUENCY  BANOS  USED  BY  PROGRAM  PROP  1^2 

PROP  123 

CGMMON  /GFREQ/  CFREQ < 24) »UFRE C ( 2 5 ) , PFREC 1 24 ) PROP  124 

PROP  125 

GENERAL  INPUT  PARAMETERS  PROP  126 

COMMON/ANGLE/PSK  17, 10)  ,FSIC(  17, 1C)  ,EETA(  17,10  PROP  127 

PROP  126 

COMMON  /GPRAM/ALTP  ,ALTR, SLOPE, APACE, NOBS, SLDIST110) , ITENG,  1UNIT  PROP  129 

* »ISPTRM,IATMOS»IAIR*UAIRAB(24)»NTEMP»TEMP(50),TALT(50)  PROP  13C 

* ,NPRES,PRC-S<50)  ,PALT(50) , NHL  MC  ,P  ALT  t 50  ) , PHUM I C ( 50 ) , CTEKP  PROP  121 

* *CPR£S,CRHUMG, IEGA,IGDR,CTEMP,CPR£S,CFUMID,XKN,NC,FLD( 50),  PROP  132 

* ZNR(50)»ZNI(50)»LINECT*MAXLIN*IPAGfc,BCG*TCG*FLR»AALT,EPF  PROP  133 

PROP  134 

A IR CR AFT— G8 SERVER  GEOMETRY  GLTPLTS  PROP  135 

PROP  136 

COMMON  /GEOMO/  AP Y ( 10 , 17) ,APZ ( 1C  ,17 ) , PD ( 10 , 17) , DPNO( 10 , 17 ) , PROP  137 

* ei(lC, 17), 62(10,17), TDSU7, 10), TPC(17, 10), IRRUO, 17)  PROP  136 

* ,APP,TP,RHP,APG,TC,RHG,CA,CZ,TSPU7,10)  ,CCV  PROP  129 

PROP  140 

CONVERSION  CONSTANTS  PROP  141 

PROP  142 

CCMMCN/GCON VC/C (2,10) ,SLDISX(1C)  PRCP  143 

CCMMON/TMSPL /SPZ (24,17) ,16 (2,3,  13)  PROP  144 

COMMON /CRSPLS /DOB ( 17) ,PSCR( 17) ,CFE(408)  ,NFSCR  PROP  145 

COMMON /HEAO/H I M2C)*HCUT(2C)  ,CFIM20)  PROP  146 

PRUP  147 

PRCP  148 

PRCP  i'-9 

PROP  150 

PROP  151 

DIMENSION  SCIANGU5)  ,DRINOX(  15)  PROP  152 

DIMENSION  S ( 25) »DA ( 10)  PROP  113 

DIMENSION  HAR( 16C)  PROP  154 

DIMENSION  HARLEV ( 16, 10) ,AMTE  ( 16 ) PRCP  155 

EQUIVALENCE  (HAR ( 1)»HAPLEV(1  ,1) ) PROP  156 

PROP  157 

PROP  156 

PROP  159 

PROP  160 

BUILD  TABLE  FCP  F GF  SCI  CURVES  FOR  PROP  161 

DIRECTIVITY  CCRRECT IGN. (ANGLE  AND  CORRECTION)  PRLP  lc2 

DATA  0RINDX/-7.1,— 4. 2,-1. 6,-1. C*-l. 0,-1. G,—0. 8,-0. 5,-0. 0,0. 5, -0.2,  ' ROP  lc3 

*-1.6,-4.C,-il.5,-2C.6/  PRO1’  ! 6 '• 

DATA  SCIANG/O. 0,0.349, 0,698, C. 872, 1.047, 1.221,1. 396, 1.571,  1.745,  PI  CP  5 

*1.919,2.094, 2,266,2.44,2.752  ,3. 141/  PRO  4 

BUILD  TA8LF  CF  ATMOSPHERIC  ABSORPTION  CGEFF.  PROP  7 

DELTA  K AS  A FUNCTION  CF  K THE  BAND  NUMBER  PRUP  ie8 

DATA  BLOCKS  DEFINING  VARIABLES  RITh  CONSTANT  VALUES  PKUP  169 

PROP  5 70 

PROP  l’l 

CATA  ( HAR  ( 1), 1 = 1, 60/  PROP  172 
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1-  C. 6,-0. 6»— 0.6,— C. 62,-0. 7 »-0.75  » — C • 8 »"l*0)“,l*2(~i*7  »— 2.6,—  3.2,—  3.6  PRUP 

*,-4.6,-5.6,-6.7,  PROP 

2-  14.,- 1 A. ,-14.,— 13. 7,-13.,- 12.1  ,- 1C. 9, -9. 7, -8. 4, -7. 2 ,-6.2, -5. 8, -5.  PROP 

*8,-5. 7, -5. 8, -5. 5,  PROP 

3- 18.2,-18.2,-16. ,-17.6,-17.2  ,-16.6,-16.2,-15.6,-14.6,-13.7,-12.3,-  PROP 

*11. 4, -10. 4,-9. 2, -7. 9,-5. 7,  PROP 

4- 20., -2C.  ,-19.9,-19.8,-19.5,-19.3,-19. ,-18.6,-18.2,-17.6,-16.6,-16  PROP 

*.,-15., -13. 5, -11. ,-4.6,  PROP 

5- 21.9,-21.5,-21.8,-21.6,-21.4  ,-21.2,-21.  ,-20.6,-20.2,-19.6,-18.7,-  PROP 

*18. ,-17. ,-15. 2, -12. 4,-6. 3/  PROP 

DATA  <HAR( II ,1=81,160)  / PROP 

6- 23., -23., -23., -22. 9, -22. 5, -22. 8 ,-22.6,-22.3  ,-22 . ,-2 1 .2,-20 . 2, - 15 . PROP 

*4, -18. 3, -17.  1,- 14. 4, -8.0,  PROP 

7- 24. ,-24. ,-24. ,-23.5,-23.9,-23.7  ,-23  .6 ,-23 .4 ,-22 .8 ,-22 .2 , -2 1 .4,-20  PROP 

*. 8, -20. ,-18. 6, -16. 4, -1C.  , PROP 

8- 25.2,-25.2,-25.2,-25.2,-25.  1 ,-25., -24. 9, -24. 8, -24. 3, -23. 7, -23., -2  PROP 

*2. 2, -2  1.4, -2  0. 2, -18. ,-11.5,  PROP 

9- 26.8,-26.8,— 2o.c ,-26.8,-26. 7, -26. 6,-26. 5,-26. 2»— 25.8,-25.2,-24.2,  PROP 

*-23. 6, -22. 5, -21. 5 -,-15. 4, -13.  , PROP 

0-28.  8,-28.8,-28.8,-28.8,-28.7  , -2 £.6, -28. 5, -2 8. 2, -2 7. 8, -27.2,-2o.2,  PROP 
*-25. 6, -24. 8, -23. 6, -2 1.5,- 15. C/  PROP 

DATA  AM TE/C. 3, 0. 35, C. 4, C. 45, C. 5, C. 55, C. 6, 0.65, 0.7, 0.75, 0.8, 0.825,0  PROP 


.850,0.875,0.9,0.920/ 

PROP 

DATA  NMTE/16/,  MAUGK/1C/,  hSLBC/lCOG./ , CSUEC/L.O/ 

PROP 

PROP 

PROP 

PROP 

PROP 

1CN(  1C  ) = ICNl  10  + 1 

PROP 

OELTA6=OELTA*RPO 

PROP 

CALL  ANGLES! NO 8S,0£LTAE) 

PROP 

ALPHA=OELTAE-ATAN( SLCPE) 

PROP 

VS OB T=P1*RPM* 0*0.016667 

PROP 

XM$U9T=VSUBT/CZ 

PROP 

X = XMSU)T*XMSIBT  + AMACH*AMACF 

PROP 

Y = XM SUIT  * AMACH  * SIMALFFA) 

PROP 

XMS8TR  = (X  * (X*X  + 6. *Y*Y) )**. 1666667 

PROP 

l F( XMS8TR  ,LE.  C.  .OR.  XRSBTP  .GT.  0.93)  CALL 

ERROR (21) 

PROP 

V3U8TR=CZ*XMSBTR 

PROP 

X = X - C. 51*XMSLBT*XRSLBT 

PROP 

Y = C.7  * Y 

PROP 

VEEP  T 7 = CZ  * (X  * (X*X  + 6 .* Y* Y ))**.  1666667 

PROP 

X 1 1= ( VSL8IR*T)**2 

PROP 

X23=(  l./ASUBB) 

PROP 

INCF=NCF+1 

PROP 

0NEPLS=1.+XMSBIR 

PROP 

CNEMYN=l.-XMS8TR 

PROP 

CE£=2.*ALGG(CN£PLS/CNEMYM 

PROP 

L 1=K/WSGBC 

PRO° 

Z2=0/DSU80 

PROP 

CO  25  K=  1 , 10 

PROP 

DAI Ki =T8L 1 11 XMSBTR,AHTE,HARLEVl 1 ,K  ), 1, 16) 

PROP 

DO  9999  I 1=1, MOBS 

PROP 

CALL  L INCCR! SPZ< 1,1) ,C,X,X,X,X, X ,X,X,X,X,PSi 1 1 

,11) ,NCF»  BCF, 

PROP 

X,X,X,X,X,X,X,ICCR1C,IB(1,1,ITYPE)  ,0,X) 

PROP 

DC  8888  J J=  1 , 1 7 

PROP 

PROP 
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CALCULATE  THE  VARIABLE 
ROUTINES 

sci=psi ( jj,ii)*rpo 

FSU80  3 8*RPM/I60.*DCPSFIJJ1 I 

FSU8 V=  0.28*V££PT7/IDSUBE*D0FSFIJJ)1 

CALCULATE  VCRTEX  NCISE 


VARIABLES  TC  BE  USED  BY  BOTH 


X22=I0.1+(  COS{  SC  I 1**2 1 1/0.21696 
OA=lO«*ALOGlCI XI 1*X22*X33/DC  PSF  ( J J ) I +5. 7 
00  15  1=  1 1 INCF 
S(  I J-8UF ( I )/FSU8V 

CALCULATE  THE  SPECTRUM  SHAPE  SSI  II 

00  2C  1=1, NCF 
GA= i.+(ONEPLS*S< 1 + 1 ) 1**2 
GB=l.+<CNEMYN*$m  1**2 
GC=1.+(0NEMYN*SI 1+111**2 
GC=1 • ♦<  CNEPLS*S 1 1 1 1 **2 

SS*10.*AL0G1CI  l./CEE*ALCGUGA*G81/(GC*GC)ll 

CALCULATE  THE  RESULTING  SOUND  PRESSURE  LEVEL  FO 
R VORTEX  NCISE-  AT  500  FT. 

SPLFI  I. JJ)=OA+SS 

CALCULATE  THE  RESULTANT  PRESSURE  SPECTRUM 
TGAGRI I1=10.**IC.1*SPLTI 
CONTINUE 


FISC  I = TBLU1I SCI, SC IANG, GRIND X,1 , 151 

LC  IS  THE  REFERENCE  SCUNC  PRESSURE  LEVEL 
USED  TO  CALCULATE  THE  PARRCMC  TCNES 
XLO=15.5*ALOG10IZll-22.65*ALOGiC IZ21-4C, *ALCG10ID0PSF( JJ 1 1+38.00 
* *IXMS8TR)-2.2*B+F1SCI+137.7 

HC=0.1*XL0 
P1=0. 1*1 XLO+DAI 1C1 1 
H2=— 2. 185434*(0A<91— DAI1C1 1 

FIND  THE  HAPPCMCS  hIThIN  THE  BANC,  IF  ANY 
Nl=  1.+  BUFI1I/FSUB0 
DC  6C  1=1, NCF 
N2=BUFI  I + D/FSUBC 
IFIN2-N1  .LT.  C)  GC  TC  5C 

SUM  THE  HARMCMC  TCNE  ENERGY  WITHIN  EACH  BAND 

DO  45  K=N1,N2 

IF  IK  .GT.  1C)  GC  TO  4C 

DP=iO.**I HC+C.1*CAIK) 1 

GO  TO  45 

XK=K 

DP=10.**{H1)*IC. i*XK)**H2 


mm 


PROP 

c3C 

PROP 

231 

PROP 

222 

PROP 

233 

PROP 

234 

PRGP 

235 

PROP 

23fc 

PROP 

237 

PROP 

238 

PROP 

2->9 

PROP 

240 

PROP 

241 

PROP 

242 

PROP 

243 

PROP 

244 

PROP 

2*5 

PROP 

24t> 

PROP 

24? 

PROP 

246 

PROP 

249 

PROP 

25C 

PROP 

251 

PROP 

252 

PROP 

253 

PROP 

254 

PRGP 

255 

PROP 

25c 

PROP 

257 

PROP 

256 

PROP 

259 

PROP 

26C 

PROP 

261 

PROP 

262 

PROP 

263 

PROP 

264 

PROP 

265 

PROP 

266 

PROP 

267 

PRCP 

266 

PROP 

2cS 

PROP 

27C 

PROP 

271 

PROP 

272 

PRGP 

273 

PROP 

274 

PROP 

275 

PROP 

276 

PROP 

277 

PROP 

276 

PROP 

279 

PF  C> 

2 

PR.> 

2; 

PROP 

21/ 

PROP 

263 

PROP 

2f  * 

PROP 

2c  5 

PROP 

266 

45 

rCAGKl I ) = TGAGKI I J+DP 

PROP 

287 

50 

SPLT(KtJJ)  ■ TGAGR(I)  ♦ FLCAT  (NENG ) 

PROP 

2 88 

IF { SPLT  C I,JJ)  .LE.  0.  1 GC  TO  61 

PROP 

28  9 

SPLT  ( I,JJ)-10.*Al0GlC(SPLTU,JJ))-SP2U»v  > 

PROP 

29C 

GC  TO  62 

PROP 

251 

61 

SPL  T ( 1 1 JJ )»SP2 ( I f JJ) 

PROP 

292 

6 2 

CCNTINUE 

PROP 

293 

S SPL ( l»II»JJ)*PhRSLP(SSPL(I » I 1 * J J ) » SPLT i 1 jJJ  l ) 

PROP 

294 

60 

N 1=N2+  l 

PROP 

295 

8868 

CCNTINLE 

PROP 

296 

IF ( IPRTI 7J.NE.7)  GO  TO  8900 

PROP 

297 

CALL  NO  I SOI IPRTI 7) ,11 ,NK , 1 0,CH I N , I INI T , SIC IS  * ( ! 1 1 #PF«ECt 

PROP 

296 

* 

SPLT ( 1 , 1) ,NCF  , I TYPE) 

PROP 

299 

8*500 

CCNTINUE 

PROP 

3CC 

OC  ,65  NF  * 1 , NCF 

PROP 

301 

00  65  J=l,  17 

PROP 

302 

6 5 

SPLTINF, JlaSPLT(NF,J)-TSPL(NFtlI ,J) 

PROP 

3C3 

IFIIPKTI 3J.NE.31GO  TO  9999 

PROP 

304 

CALL  PNL SUB  I SPLT ( 1,11 , PSPL ( 1 ♦ II)  , T FO U , 1 1) , E PNU 1 , 1 1 ) , SPL2 1 

PROP 

30  5 

♦ 

TEPNLI  I,  U l,NK,BCG,TCG,FLR,II,NC8S»I«RMI,l)) 

PROP 

306 

CALL  NO  ISO!  IPRTI 3) »I I ,NK  , 12  , CH 1 N , I LNI  T , S L C I S X 1 1 1 1 ,PFREC» 

PROP 

3C7 

+ 

SPL  T ( 1 , 1 1 ,NCF , I TYPE  1 

PROP 

30 1 

9995 

CCNT  INUE 

PROP 

305 

return 

PROP 

310 

END 

PROP 

311 

77.7 
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SUBROUTINE  PRTSHK  J,X,LCT,L,K)  PRTSH1 

COMMON /CLABEL/CH (2,8)  PRTSH1 

DATA  CH/4H  M.  ,4H  FT  ,4H  MC,4HC  P I ,4HRC-N ,4HCCB A ,4H/SC. , 4HR J . PRTSH1 

* 4HM.)  ) 1H  ,lHK,lHR,4hATP. ,4HPS I A ,3HMPS ,3HFPS/  PRTSHI 

PRTSHI 

IFU.EQ. 1)1=2  PRTSHI 

IF  (K-2J  1C,  2CC,  3CC  PRTSHI 

LO  CONTINUE  PRTSHI 

WRITE!  L , 100  1 X ,Ch(I,U  PRTSHI 

LOO  FORMAT  I 3 8X » 3SHGB SERVED  SPECTRA  AT  SIDELINE  DISTANCfc=  ,IPEI0.3,  PRTSHI 

* A4//)  PRTSHI 

LCT=LCT+3  PRTSHI 

GO  TO  200  PRTShl 

ENTRY  PRTSH2  PRTSHI 

200  WRITE(L,210)(CH(I,N)  ,N=2,5)  PRTSHI 

210  F0RMAT(2X»9HFR£QUENCY»43X,21HSCUNC  PRESSURE  LEVELS/9H  (KHZ),  PRTSHI 
*46X, ICH(  DB  RE.  2C,4A4/J  PRTSHI 

LCT=LCT+3  PRTSHI 

RETURN  ‘ PRTSHI 

300  WR ITE ( L , 3 10 ) PRTSHI 

310  FORMAT ( 2X,9HFREQUENCY  ,34X,  PRTSHI 

♦37HSCUND  PRESSURE  LEVEL  ATTENLATICN  ICB)  //9H  (KHZ)  /)  PRTSHI 

LCT=LCT+1  PRTShl 

LCT=LCT-*-2  PRTSHI 

RETURN  PRTShl 

END  PRTSHI 
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FUNCTION  PhRSUMISPLl,SPL2) 
AUTHOR  0.  F.  HELDRUM 


PURPOSE 


TO  CALCULATE  A PCRER  SUM 


INPUTS 


SPLI,  SPL2  TRC  SPL  VALLES  REICH  NEEDS  TC  BE 

ADDED  TGGETHER  - ONE  MAY  HE  A SUM. 


OUTPUTS 


PWRSUM  PORER  SLR  CF  SPLI  AND  SFL2  - IF  ONE 

IS  ZERO  THE  CTHEP  WILL  EE  RETURNED  t 
THE  FCRER  SUM.  IF  BCTH  ARE  ZERO  THE 
SUM  RILL  EE  ZERC. 


FUNCTION  SUBPRGM  ALGGIO 


ANSwER=10.0*AL0G1C(1C.C**<  SPLl*O.l)4-i0.0**(SPL2*O.l)  ) 


3CC  FRRSLM=ANSRER 
RETURN 
END 
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t 

f 

% 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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SUBROUTINE  REFRACT  l AMACH  »PS I C»ETA,GLT»R0,R0V»8V,U»V,W»E1»E2»  E3.TH0 
1 ,RGP,THOP) 

TITLE 

JET  REFRACTION  EFFECTS 
PURPOSE 

THIS  SUBROUTINE  COMPUTES  THE  JET  FLCW  REFRACTICN  EFFECTS  BY 
GIVING  THE  APPARENT  SOURCE  PCLAR  CCCPDINATE  WITH  JET  FLOW  REMOVEC 

INPUT  - CALLING  SEQUENCE 

AMACH  AIRCRAFT  MACH  NUMBER 

PSIO  OIRECTIVITY  ANGLE  GRAZING  WING  EDGES 

ETA  DIRECTION  ANGLE  RELATIVE  TO  EDGE 

DLT  NOT  USED  * FORMULA  ASIMWI2I)  USED  INSTEAD. 

RC  MAGNITUDE  OF  VECTOR  OR  INLET  CR  NOZZLE  RELATIVE  TO  EDGE 

RGV  VECTOR  OF  INLET  CR  NCZZLE  RELATIVE  TC  EDGE 

BV  VECTOR  FOR  A POINT  CN  TFE  ECGE  RELATIVE  TO  NOZZLE 

U,V,W  UNIT  VECTCRS  CF  WING  EDGE 

E It  E2f  E3  COORDINATE  SYSTEM  UNIT  VECTCRS  FIXED  TO  ENGINE  SUCH  THAT 
El  IS  PARALLEL  TO  HALF-FLANE 

INPUT  - CC.'MON 

EWGEO  VARIABLE  DIANI 

REFRAC  ALL  VARIABLES  EXCEPT  I WEC  ARE  USED 


OUTPUT 

ROP 

THOP 


MAGNITUOE  OF  APPARENT  SCUPCE  COORDINATE  WITH  JET  FLOW 
REMOVED 

PHASE  ANGLE  CF  APPARENT  SOURCE  COORDINATE  WITH  JET  FLOW 
REMOVED 


NOTE 

ALL  INPUT  AND  OUTPUT  ANGLES  ARE  IN  DEGREES 
REFERENCE 

THE  WEGSTEIN  ! TERAT I CN  SCHEME  IS  USED.  THE  CLDE  IS  EXTRACTED  FROM 
IBM  SYS/360  SCIENTIFIC  SLBRCL  TINE  PACKAGE,  VER.  Ill,  H20-0166-5, 
1568 , P P.215-216 

DIMENSION  ROV<3» ,U<3) ,VI3) ,WI3)  ,EH3) ,E2(3)  ,E3U), 

* RV(3) ,RCAPV(3) »X(5) ,RP  V ( 3) , ROPV 13 ) t BV ( 3 ) 

COMMCN/EWGEO/  SWP TE , S WPL E ,01  FED  ,CD SO , CDX ID ,CCX2D , CDXOC, DCY ID , 

1 DDY2D tDDYOD, DO LD, DIANI 

COMMON /REFRAC /EM  J ,TSTSC,IWED  (3)  ,F A SSI  24)  ,EETA  (24),CPSIC(  24),NASRG, 

* ASF, IWSFE 

DATA  IC,  II,  FO,  FI,  PPD  , DPR  /C  , 1 ,0.  , i 1 . 745329E-2 ,57.291)78/ 

0 A S A OMEGA,  EPS,  MAXIT  / l. E75 , l .2E-5 , 50/ 

INITIALIZATION 


REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
K EFRAC 
RtFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
kEFKAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 
REFRAC 


2 

3 

A 

U 

6 

7 

8 
c 

1C 

11 

12 

13 

14 

15 

16 
17 

ie 

IS 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
3 £ 

39 

40 

41 

42 

43 

44 

45 

46 

47 
46 
49 
5C 
51 


*%  i 

C 

REFRAC 

52 

CEL=DLT 

RtFRAC 

Cj 

DEL  = DPR  * A S I N ( W 1 2 1 ) 

REFRAC 

54 

*5! 

XUJ  = AMACH 

REFRAC 

55 

X 

X 1 2)  = EMJ 

REFRAC 

56 

X 1 3 ) = TSTSO 

REFRAC 

57 

|l§ 

X ( 5 1 = 180.  - PSiC 

REFRAC 

56 

Vi 

4 


225 


SMJ  = X ( 2)  * X(2) 

CR  = SQRT { XI3)  I 
RM  = CR  * XI2)  - XU) 

CTO  = COS(  RPD  * X( 5)  ) 

STO  = SQRTI  FI  - CTOCIC  ) 

IF  (ABS(STO)  .LT.  EPS)  STO  = EPS 
COTP 0 = -CTO  / STO 

ACf  = T8LU11C0TPC,  CPSIG,  FASS,  1,  NASPC) 

CE=COS(ETA*KPO) 

RCP=RC 
T F0P  = THO 

IF( ( EMJ.EQ.AMACH.AND. 1ST  SO. EC. 1. ) .CR. CABS (CE ) .LT .EPS )) RETURN 

T6MP=R0*SIN(ETA*RPD)/CE 

OG  1 J = 1 * 3 

RV(J)  = RCV(J)  ♦ TEMP  * L(J) 

1 CONTINUE 

TEMPl=DOTP(El,U) 

TEMP=DOTP ( B V , E 1 ) 

IF  (AeSITEMPU  .GT.  EPS)  GC  TC  3?.0 
DC  3 1G  J = 1,3 

RCAPVIJ)  = BV(  J ) - TEMP  * E1(J) 

31C  CCNHNUE 
GG  TO  3 AC 

32C  TEMP  = TEMP  / TEMPI 
DG  330  J = 1,3 
RCAPVIJ)  = 8V ( J ) - TEMP  * l(J) 

33C  CONTINUE 

340  RCAPM  = SQRTIDCTPIRCAPV,  RCAPV)) 

GAMO  = 180.  - ACCS ( RCAP V (2 ) / PCAFM)  * CPR 
R = SQRT ( OGTP ( RV.RV)  ) 

X ( A ) = R / DIAN1 

CTTP  = CTO  / ( STC  - C.5  / X(A)) 

DO  = 2.  * X ( A ) / STO 
TM1  = OL  * CTTP 
TM2  = FI  - DU 
C 

C CRITICAL  ANGLE  CALC. 

CP2  = Fl  / (RM  + CR) 

IF(A8S(CP2).GT.1.I  CP2  = SIGM1..CF2) 

SP2  = SQRTIFl  - CP2*CP2) 

DX  = ATANISP2  / (XU)  + CP2 ) ) * DPP 
AC  = X I 5 ) ♦ ACF  * 10X  - (ASF  + X<5))) 

IF  ( X ( 5 ) - AC)  220,  22C,  5 
51  = -11 

K = 2 

DX  = FC 
C 

C FIRST  FUNCTION  EVALUATION 
10  CCTT l = TM1  + TM2  * DX 

CT1  = C0TT1  / SQRT (FI  + CCTT I -CCTT I ) 

ST1S  = fl  - CT  l*CTl 
RAD  = Fl  - SMJ  * ST1S 
IF  (RAD)  20,  2C,  30 
2C  CPI  = -Fl  ' X( 2) 

GC  TO  AC 

30  CPI  = — X( 2)  * ST1S  ♦ CT1  * SCR  T (RAC) 

AC  CP2  - RM  * CPI  ♦ CR 


"3 

S 


REFRAC 

• 59 

"3 

* 

fl 

•1 

Vs 

K 

RETRAC 

60  ; 

J 

REFRAC 

61  ] 

1 

REFRAC 

62  | 

REFRAC 

63  \ 

4 

REFRAC 

64  ) 

« 3 

REFRAC 

65 

REFRAC 

66 

■| 

REFRAC 

67 

fit 

REFRAC 

68  : 

'£i 

REFRAC 

69  i 

<• 

REFRAC 

70  ' 

" 

1 

REFRAC 

71  ; 

‘iiu 

REFRAC 

72  j 

Js 

REFRAC 

73  | 

REFRAC 

74  | 

■V 

REFRAC 

75  1 

•1 

REFRAC 

76  j 

1 

REFRAC 

77 

-V 

REFRAC 

78  j 

•.Vs 

REFRAC 

79 

REFRAC 

80 

'i 

s 

Hi 

REFRAC 

81 

■i 

REFRAC 

82 

REFRAC 

83 

•>/< 

REFRAC 

84 

j 

REFRAC 

85  , 

REFRAC 

86  i 

| 

REFRAC 

87  j 

- 

1 

REFRAC 

88  ; 

t 

REFRAC 

89  i 

- ^ 

* 

REFRAC 

9C  j 

< 

i 

REFRAL 

91  i 

. $ 

REFRAC 

92  ! 

REFRAC 

93  t 

j 

REFRAC 

94 

i 

REFRAC 

95 

$ 

REFRAC 

96  ‘ 

■•I 

REFRAC 

97 

rA 

REFRAC 

98 

% 

REFRAC 

99 

REFRAC 

IOC 

dS 

REFRAC 

101 

REFRAC 

102  ; 

'M 

REFRAC 

103  j 

■j 

REFRAC 

104  ' 

REFRAC 

105  j 

m 

vm, 

REFRAC 

1C6  i 

REFRAC 

107 

■M 

m 

REFRAC 

108 

i 

REFRAC 

109 

s 

j 

j 

REFRAC 

110 

REFRAC 

111 

! hi 

| 

REFRAC 

112 

8 

REFRAC 

112 

REFRAC 

114 

III 

REFRAC 

115 

{§§ 
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IF 

ICP2)  50,  6C,  50 

REFRAC 

116 

50  CP2 

= CPI  / CP2 

REFRAC 

117 

SP2 

= FI  - CP2*CP2 

REFRAC 

118 

IF 

I SP2 ) 60,  6C»  7C 

REFRAC 

119 

6C  CP2 

= -FI  / IRM  ■>  CR) 

REFRAC 

12C 

CP2 

= .5  * (CP2  + C7CJ 

REFRAC 

121 

SP2 

= FI  - CP2*CP2 

REFRAC 

122 

IF 

ISP2)  65,  65,  7C 

REFRAC 

123 

65  COTT  = -OMEGA 

REFRAC 

124 

GG 

TO  180 

REFRAC 

125 

7 C SP2 

* SORT  < SP2) 

REFRAC 

126 

COTT  * IX(I)  + CP2)  / SP2 

REFRAC 

127 

8C  IF 

(I)  90,  110,  160 

REFRAC 

128 

REFRAC 

129 

WEGSTE INS  ITERATION 

REFRAC 

130 

90  00 

= COTT  - OX 

REFRAC 

131 

IF 

1A8SIDU)  - EPS  * ABS(COTT))  180,  180,  100 

REFRAC 

132 

100  ov 

= -DU 

REFRAC 

133 

ox 

= COTT 

REFRAC 

134 

I 

= 10 

REFRAC 

135 

REFRAC 

136 

SECOND 

FUNCTION  EVALUATION 

REFRAC 

137 

GC 

TO  1C 

REFRAC 

138 

11C  CY 

= OX  - COTT 

REFRAC 

139 

I 

= I l 

REFRAC 

140 

IF 

(ABS(OY)  - EPS  * ABS(CGTT))  180,  180,  120 

REFRAC 

141 

120  K 

* K + 11 

REFRAC 

142 

IF 

(K  - MAXI T ) 13C,  13C,  18C 

REFRAC 

143 

130  IF 

(OY)  14C,  18C,  14C 

REFRAC 

144 

1 AC  OV 

= DV  / OY  - FI 

REFRAC 

145 

IF 

(DV)  15C,  18C,  1 5 C 

REFRAC 

146 

150  00 

= DU  / OV 

REFRAC 

147 

OX 

= OX  ♦ 00 

REFRAC 

148 

OV 

= DY 

REFRAC 

149 

REFRAC 

15C 

TURD 

TO  MAXIT  FUNCTION  EVALUATIONS 

REFRAC 

151 

GO 

TO  10 

REFRAC 

152 

16C  OY 

= OX  - COTT 

REFRAC 

152 

RAD 

= ABS(CX)  * EPS 

PEFRAC 

154 

IF 

(ABS(OU)  - RAO)  170,  17C,  12C 

REFkAC 

155 

170  IF 

(ABS(DY)  - 1C.*RAD)  180,  18C,  120 

REFRAC 

156 

lee  ox 

= COTT 

REFRAC 

157 

IF 

(DX)  19C,  2CC  , 2 1 C 

REFRAC 

158 

19C  OX 

= 180.  *■  DPR  * ATAMFl  / DX) 

REFRAC 

159 

GO 

TO  220 

REFRAC 

160 

200  OX 

= 90. 

REFRAC 

161 

GC 

TO  220 

REFRAC 

162 

210  OX 

= OPR  * A TAN ( F l / DX) 

REFRAC 

163 

220  OX 

= X(  5)  + ACF  * (OX  - (ASF  ♦ X(5))) 

RCFRAC 

164 

221  CT 

= COS( RPO  * DX) 

R E FR AC 

If  5 

ST 

= SORT (FI  - CT*C T ) 

REFRAC 

1'  6 

RAO 

= X(l)  * ST 

REFRAC 

1 7 

RAO 

= FI  - RAD*R AO 

REFRAC 

1<»8 

IF  (RAO)  223,  223, 
222  CP2  = -FI  / X(l) 

GO  TO  227 

225  CP2  = -Xll)  * ST  * 


SCRT(RAC) 


REFRAC 

RCFRAC 

REFRAC 

REFRAC 
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227 

IFIABSICP21.GT.1.)  CP2  = SIGM1..CF2) 

REFRAC 

173 

SP2  = SQRT (F1-CP2*CP2) 

REFRAC 

174 

IF! A8S I SP2l.LT.EPS) SP2=EPS 

REFRAC 

175 

c 

REFRAC 

176 

c 

NEW  SOURCE  AXIAL  LOCATION  VECTOR  GRAiING  WING  EDGE. 

REFRAC 

177 

RPV( l)  = RV( 1> 

REFRAC 

178 

RPVI2)  = -R  * STC  * CP2  / SP2 

REFRAC 

175 

RPV( 3)  = RVl  3) 

REFRAC 

180 

c 

REFRAC 

181 

c 

CALCULATE  EFFECTS  FOR  PRESENCE  CF  THE  WING,  RELATIVE  FLOW 

REFRAC 

182 

c 

TURNING  AND  DUCTING  AND  CGHPLTE  OUTPUT  COORDINATES 

REFRAC 

193 

c 

REFRAC 

184 

RCAPVI2)  = RCAPVI2)  + IRPVI2I  - PVI2)) 

REFRAC 

185 

COSGl  , = -RCAPVI2)  / SQRT  (Dr.TF  (PCAPV,  RCAPV)) 

REFRAC 

186 

GAM1  = ACOS(COSGl)  * OPR 

REFRAC 

187 

8ETAX=TBLUl(COTPC,CPSIC,BETA,l,NASRO> 

REFRAC 

186 

8 ETA X = AMINKBETAX,  ODYOQ*-COYCC  - 0.088) 

REFRAC 

189 

SINGl  = SQRTIFl  - CCSG1*CC5G1) 

REFRAC 

190 

IF(A0S( SING  I J.LT.EPS) SINGI=EFS 

REFRAC 

191 

CCTG1=C0SGI/S1NG1 

REFRAC 

192 

DL=.5*01ANI*BETAX 

REFRAC 

193 

SGPD=SIN( (GAM1+0EL)*RPC) 

REFRAC 

194 

IF  (ABS(SGPO)  .LI.  EPS)  GC  7C  620 

REFRAC 

195 

SCEL  = W ( 2 ) 

REFRAC 

196 

CLEL  * SQRTIFl  - HI2)*W<2)) 

REFRAC 

157 

SGMG0=SIN I IGAM1-GAM0)*RPC) 

REFRAC 

198 

DL=(0L*SING1*C0EL-RCAPM*SDEL*SGRG0)/SGPD 

REFRAC 

199 

CL=DL*COTG 1 

REFRAC 

200 

GO  TO  83C 

REFRAC 

201 

82C 

CL=0 .0 

REFRAC 

202 

83C 

CONT IN Ufa 

REFRAC 

203 

c 

REFRAC 

204 

c 

MOOIFY  COMPONENTS  CF  KPV  IN  DIRECTION  CF  FLOW  AND  NORMAL  TO 

REFRAC 

2C5 

c 

HALF-PLANE  FOR  EFFECT  CF  WING  PRESENCE,  I.E.  ADD  TERMS  (CL,  CL) 

REFRAC 

20t 

c 

REFRAC 

2C7 

PI  = DOTPIRPVjE 1) 

REFRAC 

208 

P 2 = 00TP(RPV,E2)+CL 

REFRAC 

209 

P3  = COTP IRP V»£3)+0L 

REFRAC 

2 1C 

00  85C  J = 1 » 3 

REFRAU 

211 

RPVIJ)  = P l*El l J ) + P2*E2 I J ) + F3*E3IJ> 

REFRAC 

212 

85C 

CGNTINUE 

REFRAC 

213 

TEMP  = OGTPIRPV,  Ui 

REFRAC 

214 

DC  860  J=  1 * 3 

REFRAC 

215 

ROPVIJ)  = RPVIJ)  - TEMP  * UIJ) 

REFRAC 

216 

86C 

CONTINUE 

REFRAC 

217 

c 

REFRAC 

218 

c 

COMPUTE  APPARENT  SOURCE  POLAR  CCCPCINATES  RE.  H.P. 

REFRAC 

219 

ROP  = SQRTIUOTPIROPV,  ROPV)) 

REFRAC 

22  0 

TFOP  = OPR  * ACCSIDCTPIRCFVfV)  / ROP) 

REFRAC 

221 

c 

REFRAC 

222 

RETURN 

REFRAC 

223 

END 

REFRAC 

224 

228 
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SUBROUTINE  RESCAL (NUMBER ,ARRAYJ 
AUTHOR  0.  F.  MELDRUM 


PURPOSE 


INPUTS 


OUTPUTS 


TO  RESCALE  THE  INOEPENO  VARIABLE  FCR  ThE  BASIC  DATA 
CURVES  FOR  OISCRETE  IGNES  AND  BRCACBANC  TO  A LOG 
SCALE. 


NUMBER 

ARRAY 

ARRAY 


NUMBER  CF  POINTS  TO  RESCALE. 
ARRAY  CF  VARIABLES  TC  RESCALE. 

LOG  CF  THE  INPUT  ARRAY. 


FUNCTION  SUBPRGM  AL0G1C 


DIMENSION  ARRAY (NUMBER ) 

CO  ICO  1=1, NUMBER 
100  ARRAY ( I ) =AL0G10 ( ARRAY ( I ) ) 
RETURN 
END 


RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 

RESCAL 


SUBROUTINE  SOSPLP I DI STX ,NPSI X , PS  I X .MAXPS I ,NCF ,USPL ,NPS 1 , PS  I . 

I DITSPU 

TITLE 

SHIELDING  ATTENUATION 
PURPOSE 

THIS  SUBROUTINE  COMPUTES  THE  SHIELDING  ATTENUATION  GIVEN  THE 
SHIELDED  MEAN  SQUARE  PRESSURE  PEP  FLIGHT  POSITION  AND 
FREQUENCY  SUMMED  OVER  THE  EDGES  AND  X-CCCRCINATE 

INPUT 

OISTX  AIRCRAFT  COORDINATE  DISTANCE  X 
NPSIX  NUMBER  OF  PSIX 

PSIX  ARRAY  OF  DIRECTIVITY  ANGLES  AT  NHICF.  USPL  ARE  GIVEN 

MAXPSI  COLUMN  DIMENSION  OF  USPL 

NCF  NUMBER  OF  FREQUENCIES  BCF 

USPL  UNSHIELDED  SPL  VERSUS  PSIX  AND  FREQUENCIES  IN  BCF 

NPSI  NUMBER  OF  PSI 

PSI  ARRAY  OF  DIRECTIVITY  ANGLES  AT  NHICF  DLTSPL  APE  GIVEN 

OUT  SPL  UPUN  INPUT,  THIS  IS  ARRAY  GF  PS2  VERSUS  FREQUENCY  ANO 

OUTPUT 

DLTSPL  UPON  OUTPUT,  THIS  IS  THE  SHIELDING  ATTENUAT ICN  VERSUS 
FREQUENCY  AND  PSI 


CGMMON/EhGEO/OM Y (12)  ,IES 

DIMENSION  PSIXI l ) » LSPL I MAXPS 1 , l ) ,PSI (1) , CITS  PL ( 24, I ) 

C = 0. 

IF(0ISTX.NE.0..ANC.IES.EC-0)C=3- 

LCOP  GN  FREQUENCY  AND  OIRECTIVITY  ANGLE  PSI 

DC  IOC  I F= l, NCF 
DO  100  IPSI=1,NPSI 

COMPUTE  UNSHIELD  SPL  AT  THIS  FREQUENCY  ANC  PSI  BY  INTEPPGU AT  ION 
USPLI  = TBLOL(PSI  (IPSU  ,PSI  X ,USFL  (1 , IF  ) ,2  , NFS  I X ) 

COMPUTE  TOTAU  SHIELDED  SCUND  PRESSURE  ANC  SUBTRACT  FROM  UNShlEL 
TC  FORM  THE  SHIELOEO  ATTENUAHCN 

SSPU  = 0. 

PT2  = OL  T SPL ( IF , IPS  I ) 

I F ( PT2.GT.0.  ) SSPL  = IC.*ALCG1G{  PT2  ) - C 
OLTSPH  IF,  IPSI  ) = USPLI  - SSPU 
IOC  CONTINUE 

RETURN 

END 


SDSPLP 
SDSPLP 
SDSPLP 
SOSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
PSI  SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SCSPLP 
SDSPLP 
SDSPLP 
SCSPLP 
SDSPLP 
SOSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SOSPLP 
SCSPLP 
SDSPLP 
SDSPLP 
SOSPLP 
DEC  SCSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 
SDSPLP 


230 


£-*“1 


V*~  **  \ •,  w 

, .'  *r  ’k'u’ 


SUBROUTINE  SHATTN ( IMACH,CZ ,NCF ,BCF ,N?S I X ,FSI X, MAXPS I ,USPL , ISPTRH,  SHATTN 
1 DI STX,APY,AP2»ALTR,NPSI »PS 1 ,DELT3» ITYPE, OLTSPL  ) SHATTN 

SHATTN 

TITLE  SHATTN 

WING  SHIELDING  CALCULAT1 CN  MODULE  SHATTN 

SHATTN 

PURPOSE  SHATTN 

THIS  SUBROUTINE  CALCULATES  KING  SHIELDING  DELTA-SPL  WHICH  CONSISTS  SHATTN 
OF  THE  FOLLOWING  SU8-TASKS  CR  MODULES  SHATTN 

MULTIPLE  EDGES  SHATTN 

JET  REFRACTION  SHATTN 

UNIFORM  FLOW  SHATTN 

EDGE  DIFRACTION  SHATTN 

* SHATTN 

INPUT  - CALLING  SEQUENCE  SHATTN 

AMACH  - AIRCRAFT  MACH  NUMBER  FRCP  CCMMON  GPRAM  SHATTN 

CZ  - AMBIENT  SPEEO  OF  SCLNO  AT  AIRCRAFT  ALT ITUOE  SHATTN 

FROM  COMMON  GEOMC  SHATTN 

NCF  - NUMBER  CF  FREQUENCIES*  8 CR  24  SHATTN 

BCF  - 1/3  0.  B.  OR  FULL  0.  B.  GEOMETRIC  MEAN  CENTER  FREQUENCIES  SHATTN 

FROM  COMMON  GCCMON  SHATTN 

NPSIX  - NUMBER  CF  DIRECTIVITY  ANCLES  IN  PSIX  BELOW  AT  MOST  MAXPSI  SHATTN 
PSIX  - DIRECTIVITY  ANGLES  IN  DEGREES  AT  WhICH  USPL  ARE  DEFINED  SHATTN 
BELOW  SHATTN 

MAXPSI  - COLUMN  CR  VARIABLE  DIMENSION  CF  USPL  SHATTN 

USPL  - UNSHIELDED  SPL  VERSUS  PSIX  AND  BCF  MATRIX  IN  THAT  OROER  SHATTN 

AT  STATIC  CONDITIONS.  THESE  MAY  BE  OBTAINED  FROM  INPUT,  SHATTN 

TABLE  CR  PREDICTED  VALLES  SHATTN 

ISPTRM  - FILTER  BAND  WIDTH  INDICATOR  FROM  CCMMCN  GPRAM  SHATTN 

= 0 USE  .1  FOR  1/3  OCTAVE  BANDS  SHATTN 

1 USE  .3  FOR  FULL  OCTAVE  BANDS  SHATTN 

DISTX  - AIRCRAFT  COORDINATE  DISTANCE  X FROM  COMMON  GPRAM  FOR  SHATTN 

THIS  OBSERVER  POSITION*  I.E.  A VALUE  FROM  SLDIST  SHATTN 

APY  - ARRAY  GF  17  AIRCRAFT  COORDINATES  Y FRCM  CCMMCN  GECMC  FOR  SHATIN 
THIS  OBSERVER,  A RCK  FROM  AFY  SHATTN 

APZ  - ARRAY  OR  17  AIRCRAFT  COORDINATES  Z FRCM  COMMON  GECMC  FOR  SHATTN 
THIS  OBSERVER,  A RCK  FRCM  AFZ  SHATTf. 

ALTR  - OBSERVER  HEIGHT  FRCM  CCMMCN  GPRAM  SHATTN 

NPSI  - NUMBER  OF  DIRECTIVITY  ANGLES  PSI  BELOW  (SHOULD  BE  17)  SHATTN 

PSl  - DIRECTIVITY  ANGLES  RELATIVE  TO  ENGINE  INLET  PHI  FOR  SOUNC  SHATIN 
PROPAGATING  TG  THE  OBSERVER  (CEG)  SHATTN 

DELT3  - ENGINE  INCLINATION  ANGLE  RELATIVE  TC  HORIZIUN  (DEG)  SHATTN 

ITYPE  — * 4 FOR  INLET  FAN  NCISE  SHATIN 

NOT  FCR  DISCHARGE  TUPECMACHINERY  NCISE  SHATTN 

SHATTN 

INPUT  - COMMON  SHATTN 

EWGEO  - ENGINE/KING  GEOMETRY  VARIABLES  SHATTN 

REFRAC  - NOISE  COMPONET  REFRACTION  VARIABLES  SHATTN 

SHATTN 

OUTPUT  SHATTN 

DLTSPL  - ARRAY  OF  SHIELOING  DEL  IA-SPL  VERSUS  BCF  AND  PSI,  24  BY  17  SHATIN 

ShATTN 

DIMENSION  BCF 1 1 ) ,PS  I X ( I ) ,USPL  IMA XF SI  , 1) » AP Yl 1 ) ,APZ (1) , PS  1 1 1 ) , SHATIN 

l DLTSPL 1 24 , 1 ) SHATTN 

COMMON/EWGEO/  SWPTE*SWPLE,OIHED,CCSD  ,DCXIC,DCX2D,0CX0D,DDY1D,  SHATTN 

1 D0Y2D,00Y0D,C0LD,0IAM  ,IES  SHATTN 

COMMON/RE FR AC /EMJ ,TSTSC»IWED(3) ,FASS (24) ,BET A (24) ,CPSIC( 24),NASRG,  SHATTN 


2 

3 

4 

5 
£ 
7 
E 
9 

10 

11 

12 

13 

14 
-.5 
16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 
5* 

53 

54 

55 

56 

57 
56 


■it 


eS 

I 


I 


> 

£ 

\ 

I 

% 


t 

i 


:r-^inf' 


^SSSifilE^^ 


E ?. 

* ASF  » IWSFE 

SHATTN 

59 

K l ' C 

SHATTN 

60 

K -:  1 

DIMENSION  U(3),V(3I,EI(3J,£2(3),E3(3), 

RCV(3)tZECN(17)»PN(3)iW(3) 

SHATTN 

61 

P r i 

* ,AFI3).BVI3) 

SHATTN 

62 

||  - i c 

SHATTN 

63 

B i C 

TEST  TO  SEE  IF  FLIGHT  EFFECTS  FCR  WING  SH 1 ELC I NG  ARE  NCT  TO  BE  USEO. 

SHATTN 

64 

m ' 

AMACH  = IMACH 

SHATTN 

65 

||  .’  / 

IF  I IWSFE  . NE . CJ  ARACH  = C. 

SHATTN 

66 

R . c 

SHATTN 

67 

P j c 

INITIALIZE  OLTSPL  TO  ZERC  FCP  ACCLRULATICK  OF  PS2 

SHATTN 

68 

H ) C 

SHATTN 

69 

k ;■  _ 

DO  9C  I P = 1 , 1 7 

SHATTN 

7C 

ft 

DO  90  IF= It 2 A 

SHATTN 

71 

B .,  •. 

OLT SPL 1 IF  * I P ) = C. 

SHAT  T N 

72 

H: 

9C  CONTINUE 

SHATTN 

73 

|J.  c 

SHATTN 

74 

1 < c 

I-;:  c 

LOOP  ON  THE  EDGES  THAT  ARE  TLRAEC  CN 

SHATTN 

75 

SHATTN 

76 

00  ICCO  IEDGE  = I t 3 

SHATTN 

77 

C 

IF ( t WED ( I EDGE ) . EC. 0 ) GC  TC  ICCC 

SHATTN 

78 

SHATTN 

79 

1 C 

CGMPUTE  THE  ENGINE/EOGE  GEOMETRY 

SHATTN 

80 

1 C 

SHATTN 

81 

•} 

CALL  EEGEOMI IEDGE.1TYPE, 

SHATTN 

82 

1 

l U,V.V,E1,E2,E3,RC,THC,B0V, 

BV.CLT.ALP.ALPO.AF) 

SHATTN 

83 

t c 

SHATTN 

84 

1 ■ c 

LOGP  ON  OISTX,  ALWAYS  EXECUTE  THE  LCCF 

CNCE  ANC  WHEN  CISTX  IS 

SHATTN 

85 

1 C 

NOT  ZERO.  SET  NEGATIVE  AND  RE-EXECUTE 

SHATTN 

86 

1 c 

ShATTN 

87 

£ 

1 

p 

X = DISTX 
DO  9CC  I X = 1 » 2 

SHATTN 

SHATTN 

88 

89 

S5 

yA 

I F t IX.EQ.l)  GO  TO  2 IC 

SHATTN 

90 

IFIX.EQ.O.JGG  TO  9CC 

SHATTN 

91 

P 

IF(  IES.NE  «0 )G0  TO  9CC 

SHATTN 

92 

X = -X 

SHATTN 

93 

K 

210  CONTINUE 

SHATTN 

94 

fe  c 

ShATTN 

95 

P c 

LCOP  ON  THE  FLIGHT  PATH  POSITION 

SHATTN 

96 

1]  c 

SHATTN 

97 

4 

DC  80C  IPSl=lfNPSI 

SHATTN 

9 8 

1 c 

SHATTN 

99 

^ r 

CORRECT  AIRCRAFT  HEIGHT  FCR  OBSERVER  HEIGHT 

SHATTN 

IOC 

1 „ C 

SHATTN 

101 

1 :'. 

ZE3N ( IPS l ) = APZ ( IPS I ) - ALTP 

SHATTN 

102 

g ' - r 

j?i  , 

f&  ,^.\ , 1 4- 

^ •\:r  ‘ ^ 

SHATTN 

103 

COMPUTE  EOGE/OBSERVER  GEOMETRY 

SHATTN 

104 

SHATTN 

105 

CAUL  EOGEOMI  X .APYCIPSI)  tZECMIFSI) 

.DELT3,U.V,W,TH0,DLT,ALP, 

SHATTN 

106 

|#:i 

L ETA.TH.PSIC.PN) 

SHATTN 

107 

lS  c 

SHATTN 

108 

1 c 

W c 

TEST  FOR  INLET  FAN  INO  REFRACTION) 

SHATTN 

109 

SHATTN 

110 

n*k 

IF! I TYPE .NE. A) GO  TC  3CC 

SHATTN 

111 

RGP=RO 

SHATTN 

112 

& 

thop=tho 

SHATTN 

113 

§M 

GC  TO  400 

SHATTN 

114 

mm  c 

SHATTN 

115 

4 


•a 

/> 
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COMPUTE  JET  FLOW  REFRACTIGN  EFFECTS 

300  CALL  REFRACT<AMACH,PSI0,ETA,CLT,P0,RCV,eV,U,V,*,EltE2,E3,TH0, 

I RGP.THCP) 

COMPUTE  UNIFORM  FLGW  EFFECTS 

400  CALL  UNIFLW(AF,U, V,  ti . AMACH  ,R CP , THCP  , IH,ETA,PSI( IPS II . ALP» DL I. 
1 GAM,R0PP, THOPP,THP»EIAP,TLE tFSI0,PSI0P) 

SET  FILTER  BANDWIDTH  ANO  LGCP  Ch  FFECUENCY 

8W  - • 1 

IFI  ISPTRM.EQ.DBli*. 3 
DO  700  IF  = 1 » NCF 

COMPUTE  EDGE  DIFFRACTION 

CALL  EDGEOI(NPSIX,PSI X.BCFI  IF)  . US  PL  II  , IF)  ,CZ  > TKP, 

1 GAM,RCPP,THCPP,ETAP,FSIO tPSlOP.BW.TLE, 

2 PS2) 

SUPERPOSITION  OF  EDGE  SCLUTICNS  AND  X LCCP  ALSC 
OLTSPLI  IF'tIPSI  > = OLTSPL  ( IF  f I PS  I )'  ♦ PS2 


END  ALL  FOUR  LGGPS 

70C  CONTINUE 
8CC  CONTINUE 
900  CONTINUE 
ICCC  CONTINUE 

COMPUTE  TOTAL  SOUNO  PRESSURE  LEVEL  ANC  TFE  ATTENUATION  DUE  TO 
WING  SHIELDING  FOR  EACH  FRECLENCY  ANC  FLIGHT  PATh  POSITION 

CALL  SDSPLP(DIST>,NPSIX,PSIX,MAXFSI,NCF,USFL,NPSI,PSI, 
l DLTSPU 

RETURN 

END 


SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

ShATTN 

SHATTN 

SHATTN 

SHATTN 

ShATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 

SHATTN 
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SUBROUTINE  SHELUX,K,N) 
SO  1204  SHELL  PS-481 


C AUTHOR  R.H.HAVIG 

C 

C FORTAN  IV  SUBROUTINE  SHEL 

C X IS  THE  ARRAY  TO  BE 

C N IS  THE  LENGTH  CF  X 

C K WILL  BE  AN  INOEX  A 

C****  TYPE  X AND  TEMP  AS  1NTEGE 

DIMENSION  X(  1 ) »K ( 1) 
INTEGER  K 

C IBM  SYS36G  ♦ 37C 
C REAL*8  X,  TEMP 

IF (N.LE.O)RETURN 
C ASSIGN  INTEGERS  1 THRU  N 

DC  1000  J=1,N 

1000  K(JJ=J 
M=N 

1CIC  M=M/2 

IF  <M)  1070, 107C.1C2G 
1020  NM=N-M 

00  1060  J=1,NM 
IC3C  I=J 

1C4C  L-l+M 

IF  ixm-XIL))  1060, 106C 
C EXCHANGE  XI I)  WITH  X(L) 

1050  TEMP=Xll) 

X ( I ) = X ( L ) 

X (L ) = TEMP 

C EXCHANGE  K 1 I 1 WITH 

NTEMP=Ki I ) 

K(I)=ML) 

K(D=NTEMP 

1 = 1— M 

IF  { I—  1 ) 1060,1040, 1C4C 
1 06C  CONTINUE 

GO  TO  1010 
1G7C  CONTINUE 

C WRITE  (6,  ICCHKI  I)  ,1  = 1, N) 
900C  FORMAT! 5( 3X, 15)  ) 

RETURN 

END 


SUB  DEV  GRP  670511 


IV  SUBROUTINE  SHELL  CRDEPS  ARRAY  X IN  ASCEND I 
IS  THE  ARRAY  TO  BE  ORDERED 
IS  THE  LENGTH  CF  X 

WILL  BE  AN  INDEX  ARRAY  FCR  ORDERING  DEPENDENT 
AND  TEMP  AS  INTEGER  IF  X IS  INTEGER  ARRAY 
ON  XI 1), Kill 


l NIC  ARRAY 


IN  ASCENDING  MANNER 


ARRAYS 


1070, 107C.1C2C 


J= 1 , NM 


1060, 106C, 1050 
WITH  X ( L ) 


WITH  Kill 


SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 

SHELL 
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SUBROUTINE  SHELXH! Y»K,DUM,M 
AUTHOR  R.H.  HAVIG 

PURPOSE  TO  GRDER  ARRAY  Y ACCCROING  TO  THE  INDEX  OF  THE  K ARRAY 
THIS  SUBROUTINE  IS  A MODIFIED  VERSION  OF  THE  SHELLX  VERSION  1 
PS-481  THE  WORKING  ARRAY  DIM  IS  PASSED  THROUGH  TEH  CALLING 
SEQUENCE 

INPUTS  Y = THE  ARRAY  TC  BE  CROEREC 

K = INDEX  ARRAY  USEC  TC  CRDER  Y ARRAY 
DUM  = WORKING  ARRAY  WIT  LENGTH  EQUAL  TC  Y ARRAY 
N = LENGHT  OF  ARRAY  Y,KfDUK 
Y = ORDERED  ARRAY 
DIMENSION  Y(l)fK(l) «0UM 1 1) 

INTEGER  K 
00  1000  J = 1»N 

L=K{ J ) 

1G0C  DUMl J)*Y(L ) 

00  1010  J=  1 * N 

1CIC  Y ( J ) =DUM{ J ) 

RETURN 

END 


ShELXH 

SHELXH 

SHELXH 

SHELXH 

SHELXH 

SHELXH 

SHELXH 

SHELXH 

SHELXH 

SHELXH 

SHELXH 

SHELXH 

SHELXH 

SHELXH 

SHELXH 

SHELXH 

SHELXH 

SHELXh 

SHELXH 

SHELXH 

SHELXH 
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SUBROUTINE  SHLO  SP  ( AMACH  , ALTR  , I SP  TPM  . C2 1 SLC ISI , I08S  , APY,  APZ , OOPSF , 
‘ SPLT,NCF,8CF,SPZ,PSI,ITYPE,DELT3#ISW3) 

purpose  to  ado  tg  the  sfl  evaluated  for  each  cf  the 

NOISE  COMPONENTS  AFT  .CORE , I NLET , AND  TURBINE 
THE  ATTENUATION  OLE  TO  WING  SH IELD INGI ECW  ONLY) 

THE  SHIELDING  ATTENLATICN  SPECTRUM  IS  DETERMINED 
BY  A CALL  TC  SLBRCLTlNE  SHATTN. 

THE  ATTENUATION  IS  CCPPLER  SHIFTEDtANO  SUMMEO 
WITH  THE  CONFIGURATION  CORRECTION  TO  GIVE  THE 
TOTAL  CORRECTION  WHICH  IS  THEN  APPLIED  TO  THE 
BARE  ENGINE  SPL 

INPUT  APPLICABLE  TC  SHLDSP 


COPSF 

ISPTRM 

ITYPE 


ARRAY  OF  DOPPLER  SHIFT  FACTORS 

=0  FOR  24  PREFERRED  1/3  OCTAVE  BANDS 

=L  FOR  8 PREFERRED  1/1  CCTAVE  BANDS 

NOISE  COMPONENT  INDICATOR 

=4  INLET  FAN 

•=5  AFT  FAN 

=3  CCRE  OR  TURBINE 

INDICATES  WHEATHER  CCRE  OR  TURBINE 

=2  CCRE  NOISE  ONLY 

=3  TURBINE  NOISE  CM Y 

NO.  CF  RECUENCY  BANOS  8 CR  24 

THE  ITH  OBSERVER  REFERENCE 

A MATRIX  CF  UNSHI ELDED  SFL  SPECTRA  AT 

FLIGHT  INDEX  CCNCITICN 

CONFIGURATION  CORRECTIONS  AT  FLIGHT  CGNCITIUNS 


INPUT  APPLICABLE  TC  WING  SHIELDING  ATTENUATION 
AMACH  AIRCRAFl  MACH  NC 

CZ  AMBIENT  SPEED  CF  SOUND  AT  A/C  ALTITUDE  ZC 

0ELT3  ENGINE  ATTITUDE  ANGLE  RE  TC  HORIZON 

SLD 1ST  SiDE  LINE  OX  SI . PEL.  TC  THE  OBSERVER 

APY  A/C  CGROINATES  RELATIVE 

APZ  TG  EACH  OBSERVER  POSITION 

ALTR  Q8SERVER  HEIGHT  A6CVE  GRCUNC 

NPSl  NO  GF  DIRECTIVITY  ANGLES 

PSI  DIRECTIVITY  ANGLES  RE  TC  ENGINE  INLET  C.L. 

BCF  L/3  GR  l/I  OCTAVE  BAND  GEOMETRIC  MEAN  FREQUENCIES 


INPUT  FRGM  LABELED  COMMON  UN  SHLO 


USPLA 

FSI 

NUSPL 

INUSP 


EMPIRICAL  DIRECTIVITY  CURVE  CF  UNSHIELDED  SPL 
AT  STATIC  CONDI TICNSIBUILT-IN  VALUES) 

NUMBER  OF  PCINTS  IN  THE  EMPIRICAL  CURVE 
INOICATCP  TO  OECICE  THE  DIRECTIVITY  CURVE  TO  USE 
THAT  IS  IF 

INL3P=C  USE  PREDICTED  VALUES 
INLSP=I  USE  BUILT-IN  VALUES 
INLSP.GT . 1 USE  INPUT  VALLES 


CONFIGURATION  CORRECTIONS  AND  SHIELDING  ATTUENUATICN 


SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLOSP 

SHLDSP 

SHLOSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLOSP 

SHLOSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLOSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLOSP 

SHLDSP 

jHLDSP 

SHLDSP 

SHLDSP 

SHLOSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 


IC  ‘ 

11 

12  ; 

13  I 

14  ! 

i*  i 
16  . 
17  : 

16  i 

is  : 
2C  t 

21 

22 

23 

24 

25  . 

26 

27 

28  ; 
29  : 

3C  i 

31  : 

32  ‘ 

33  . 
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A MATRIX  OF  SHU ‘.CEC  SPECTRA 

A MATRIX  OP  INSKI  £ LCCJ  SPECTRA  Vi ITH  DOPPLER 
EFFECTS  REMOVED  GENERALLY  PREOICTEO  BUT 
COULD  BE  INPUT  CR  PACE  UP  CF  BUILT-IN  VALUES 


UNSHIELDED  DIRECTIVITY  CURVE  DATA 
CCMMON/UNSHLD/USPLA ( IS) ,FSI  ( 15)  .MSPUINLSP 

DIMENSION  OUM(  15)  » YCO 117)  ,7-CC ( 17  ) , PS  I XC  19 ) ,USPL(  19 ,24)  ,K  INI  19), 
*OLTSPL(24,17),APY(lO,17)  ,APZ ( 1C , 17  *. , S'>LT  (2* , 17 ) ,SPZ( 24 , 17 ) ,F J(  24  ) , 
*SLOlST(  10).D0PSFU7)  ,BCF  124)  ,PSI  (17,10) 

DATA  NPSI,MAXPSI/17, 15/ 

DATA  FJ/1.,2.,3.,4.  ,5. ,6., 7. , 8.  , 5. , 10. , 1 1. , 12. 1 13. » 

*14.,  15.,  16., 17., 18., 19. ,20., 21. ,22. ,23-, 24./ 

ZERO  OUT  MATRIX  AND  SET  VARIABLES 

CALL  ZERQ(LSPL,408) 

EN=4. 

IF(  1TYPE.EQ.3.AND.ISN3.EC.2)EN*2. 

BANDWIDTH  IN  1/3  OCTAVES 
BN=  1 . 

IF(  ISPTRM.NE.C)BW=3. 

CISTX=SLOIST( IOBS) 

STORE  COORDINATES  FCR  EACH  OBSERVER  TO  TRANSFER  TC  ShATTN 
CO  50  K=l,NPSI 
YCO( K )-AP Y( I CBS  , K) 

5C  ZCO(K)=APZ( I CBS ,K ) 

TEST  FGR  WHICH  DIRECTIVITY  CLRVE  TC  USE 

IF(  INLSP.NE.OGO  TG  450 

USE  PREDICTED  VALUES  REMCVING  CCFFLEF  EFFECT 

NPS IX*NPS I 
DG  100  K= 1 , NPS1 X 
0ELTAL=10.*ALUG1C(DCPSF(K) ) 

C£LTA8=DELTAL/BW 

PSIX(K)=PSI(K,IGBS) 

DC  LOO  J = l ,NCF 
F JC8=  FJ ( J ) -DELTAB 
SPLJ=T8LU1(FJ0B*FJ»SPLT ( l,K)  , I , NCF ) 

USPL(K, J)=SPLJ*EN*DELTAL 
100  CONTINUE 

SORT  THE  DIRECTIVITY  ANGLE  IN  MCNCTCMCA1LY  ASCtNDING 
ORDER  AND  CORRESPONDINGLY  ACJLST  THE  PRECICT6C  UNSHIELDED  SPL 

CALL  SHELu (PSIX, KIN, NPSIX) 

DO  200  J = I ,i 'r F 


SHLDSP 

SHLDSP 

SHLOSP 

SHLDSP 

SHLOSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SM.CSP 

SHLDSP 

SHLCSP 

SHLDSP 

SHLDSP 

SHLOSP 

SHLDSP 

SHLOSP 

SHLDSP 

SHLOSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLCSP 

SHLDSP 

SHLOSP 

SHLDSP 

SHLDSP 

SHLOSP 

SHLCSP 

SHLDSP 

SHLCSP 

SHLDSP 

SHLCSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLOSP 

SHLOSP 

SHLDSP 

SHLCSP 

SHLDSP 

SHLDSP 

SHLCSP 

SHLDSP 

SHLDSP 

SHLOSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLDSP 

SHLOSP 
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CALL  SHELXHILSPLIL  ,J)  , KIN,  OLR  , NFSIX) 

20C  CONTINUE 

ADJUST  FOR  ECUAL  OIRECTIVITY  ANGLES 

MPS I =NPS I X- 1 
DC  300  !SI=2,MPSl 

IF1PS1XI  ISI-n.NE.PSlXIISII  )GC  TC  30C 
PSIXI I SI  i =PS  I X C 1 SI  ) + I.E-3*(PS!X(ISI+ll-PSlXlISm 
30C  CONTINUE 

IFIPSIX1MPSI  ).NE.PSIX(NP5,I)JGC  TC  65C 

PSIX  IMPS  I )=PSIX(MPSI J— l.E-3*  t PSI X ( RPSI I -PSI X ( MRS I-L ) ) 

GC  TO  65C 

BUILD  MATRIX  WITH  EITHER  BUILT-IN  VALUES  Cfi  INPUT  VALUES 

450  NPS I X=NO$PL 

CC  500  K=  1 ,NPS I X 
50C  PSIX(K)=FSIUJ 
OC  6CC  J=  1 »NCF 
DC  6CC  K=  1 » NP SI  X 
6CC  USPL(K,J)=OSPLA{K) 


CALC. BARE  ENGINE  SPL  USING  PRECICIED  SPL 


fc 5 C DC  70C  K=  I, NPSI 
DC  700  J = 1 ,NCF 

7CC  SPLTI J,K)=SPLT( J ,K ) +SPZ I J.K) 

ENTER  PACKAGE  TO  CALCULATE  ATTENUATION 

DUE  TO  WING  SHIELDING  DLTSPL ( MAX  24,17).  THIS  MATRIX 

INCLUDES.  FOR  EACH  OBSERVER  FCSITICN  GREATER  THAN  0.  THE  SUMMED 

EFFECTS  OF  BtfTi-r  STAR Bfl ARC  ANC  PCPT  NCISE  SOURCE  COMPONENT  OVER 

THE  OCSIREU  WING  EDGES  " --  . 

call  shattn<amach,cz,ncf,bcf,npsix,psix,maxpsi7uspT;  - 

* ISP TRM,D I STX,VCO,ZCO,ALTR, NPS I, P SI, UELT3.IT YPE, DLTSPL) 

DCPPLER  SHIFT  THE  SHIELDING  A TT  6 K A T l C.\  , AND  ACC  TC 
CONFIGURATION  CORRECTION.  THE  TOTAL  ATTENUATION 

is  then  auoed  to  the  bare  engine  sfl  tc  give  the 

THE  SHIELDED  SPL 

CO  1000  K=  1 , NPS I 

OELTAL  = 10.*ALOGIC(DODSF(K)  ) 

DELTAB=DELTAL/8W 
OC  1CCC  J = 1 , NCF 
c JD3=  F J ( J ) +DELTAB 

DSPLJ=TBLU(FJDB.FJ,DLTSPLII  ,K)  ,I,NCF) 

SPZ  ( J.K  )=DSPLJ*SPZ ( J,K) 

SPLTI J,K)=SPLT( J,K)~ SPZ  C J,K) 

1000  CONTINUE 
RETURN 
ENO 


. - — 

SHLDSP 

116 

SHLDSP 

117 

SHLDSP 

118 

SHLDSP 

1 IS 

SHLDSP 

120 

SHLDSP 

121 

SHLDSP 

122 

SHLDSP 

123 

ShLDSP 

124 

SHLDSP 

125 

SHLDSP 

126 

SHLDSP 

12 1 

SHLDSP 

128 

SHLDSP 

125 

SHLDSP 

13C 

SHLDSP 

131 

SHLDSP 

132 

SHLDSP 

133 

SHLDSP 

134 

SHLDSP 

135 

SHLDSP 

136 

SHLDSP 

137 

ShLDSP 

136 

SHLDSP 

135 

SHLDSP 

140 

SHLDSP 

141 

SHLDSP 

142 

SHLDSP 

143 

SHLDSP 

144 

SHLDSP 

145 

SHLDSP 

146 

SHLDSP 

147 

SHLDSP 

148 

SHLDSP 

145 

SHLDSP 

15C 

SHLDSP 

151 

SHLOSP. 

152 

ShLDSP 

m ■ 

SHLDSP 

154 

SHLDSP 

155 

SHLDSP 

156 

SHLDSP 

157 

SHLDSP 

158 

SHLDSP 

155 

SHLOSP 

160 

SHLDSP 

161 

SHLDSP 

162 

SHLDSP 

163 

SHLDSP 

164 

SHLDSP 

165 

SHLDSP 

166 

SHLDSP 

lo7 

SHLDSP 

168 

SHLOSP 

165 
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SUBROUTINE  SIOPLT  C VN.DI  ST.NP  ,NDI  ST  » TI  HE  *NSO  ,N0  IM ) 


AUTHGR 

PURPOSE 


K.D.  JOHNSON 

TO  GENERATE  PLOT  GF  500  FCCT  SIDELINE  NOJSE  LEVEL 
VS.  01  STANCE  ALONG  RUNWAY 


METHOD 


SCALE  TC  UMTS/CP,  CRAW  AXIS  ANC  PLOT  CURVE  OF 
CONNECTING  POINTS 


INPUTS 


ARRAY  CF  NOISE  LEVEL  VALUES 

ARRAY  CF  CORRESPONDING  DISTANCE  VALUES 

NUMBER  CF  POINTS  TC  EE  PLOTTED 


INPUTS  VIA  COMMON 


SCALV 
YLENM 
XLENM 
AXON  IT 
NLABEL 


LSEK  SELECTED  SCALE,  USED  IF  NGN-ZERO 
MAXIMUM  LENGTH  OF  Y AXIS  (GRAPH)  (CM) 
MAXIMUM  LENGTH  CF  Y AXIS  (GRAPH)  (CM) 
UNITS  FOP  DISTANCE 
UMTS  FOR  NOISE  LEVEL 


DIMENSION  FOR  INPUT  ARRAYS 


LOGICAL  IWRITE 


DIMENSION  VN(NDIM,3) ,01  SI (NDIM) , NCI ST (3)  .TITLE (18) 
DIMENSION  VN(NDIM,3)tOIST(NDIM)fNCIST(3)tTITLE(  8) 


COMMON  /PLT / SCALV, YLENM, XLENM,CMFIN, SFACE(20> , NXUNI T, NLABEL (2) 


COMMON  /PLT/  SCALV, YLENM, XLENM, CM F IN ,SF ACE (8 ) ,NXUNI T , NLABEL 
I ,SCALU, IWRITE 


DIMENSION  LABELXUi)  , LAB6LY  (9  ) 
DIMENSION  LABELXI5) ,LABELY(A) 


DATA  LABELX/4AHNQISE  LEVEL  AT  XXXXAAAA  STDECihfc  AAAAAAAA/ 
DATA  LABELX/50HNCISE  LEVEL  AT  XXXX  A A A A SIDELINE  - AAAAAAAA 
* / 

DATA  LA8ELY  /36H0 1ST ANCE  ALONG  FLIGHT  TRACK  - / 

DATA  LABELY  /AOHOI STANCE  ALCNG  FLIGHT  TRACK  - / 

DATA  BLANK/ IH  / 


CEFINE  BORDERS  IN  CENTIMtTERS 
S10E=2. 

T0P=2. 

8CTTM=3. 


SET  POINT  SYMBOL 


I SYM  = 2 


FIND  APPROPRIATE  NOISE  LEVEL  SCALE  ANC  LENGTH  CF  AXIS 


SICPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIOPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SICPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SICPLT 
SICPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPL  T 
SIOPLT 
SICPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIOPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIOPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
SIDPLT 
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IK  l WR  t TE ) GO  TO  1C 

S10PLT 

59 

C 3fcC 

S10PLT 

6C 

< 

C WRITtifc,  1000)  INLABEt(l)  .1=1.2)  .MUiMT  .(NDiST(t),  NXUNIT  . 1=  1 * NSO) 

SIDPLT 

61 

WRITEI6, 1000)  NLABEL  , NXUM T . { NO 1ST (1) .NXUN1T , 1= 1, NSO) 

SIOPLT 

62 

' 

1000  FGRMATl 1H1 . 5 AX. 2 1HSI0ELI NE  NCISE  LEVELS .///31X.21HFLIG FT  TRACK  DIS 

SIDPLT 

63 

: i 

♦IANCE.21X, 13HN0 1 SE  LEVEL  l ,A8,1HI , /40X. A4  *20  X ,3 ( A4 , 1X.A4.6XJ//) 

SIDPLT 

64 

t j 
i ' 

1 ; 

DC  3 1=1, NP 

SIOPLT 

65 

WRITE (6, 1001)  DISTII) ,<VN(I ,0)  ,J=1  ,NSD) 

SIOPLT 

66 

:• 

10C1  FORMAT (3GX»1PE15«3,9X,0PF15.1,2F  15.1) 

SIOPLT 

67 

5 CONTINUE 

SIOPLT 

66 

i 

10  XLEN=FLCAT 1 1 NT ( XLENM-TCP-BCT IP ) ) 

SIOPLT 

69 

Y 

C 

SIDPLT 

70 

v 

C FIND  LENGTh  OF  YAXIS,  Y SCALE  SAFE  AS  CCNTCUP  PLCT 

SIOPLT 

71 

. ' •< 

C 

SIDPLT 

72 

YLEN  = FLOATt INK YLENH-2.* SIDE) ) 

SIDPLT 

73 

CALL  SCALE (QIST  .YLEN.NP.l) 

SIDPLT 

74 

, ^ 

I * 

CELTAY=DISTINP+2) 

SICPLT 

75 

t ; 

YMJN=01ST(NP+1) 

SIDPLT 

76 

OELTAY=SCALU 

SIDPLT 

77 

IF  (YMIN  .6Q.  C.)  GC  TO  15 

SIDPLT 

78 

•4 

YM IN  = 06LTAY  * FLOAT ( IF  I X ( 1 YPI N — DELTAY)  / OELT AY ) ) 

SIOPLT 

75 

4 

15  CCNTINUE 

SIDPLT 

00 

00  2GC  KK  = l , N SO 

SIDPLT 

01 

i 

CALL  SCALE  ( VM  l »KK  ) .XLEN.NP.l) 

SIOPLT 

82 

f 

0ELTAX  = VMNP+2,KK) 

SIDPLT 

83 

s 

XMIN=VN(NP+1  ,KK) 

SIDPLT 

84 

l 

XMIN  = FLOAT( I FI  XI ( XMIN-DE LTAX > /Ct L T AX > ) *UEITAX 

SICPLT 

85  , 

: 

C 

SIDPLT 

86  i 

C POSITION  PLOTTER  ON  PAGE 

SIOPLT 

87  : 

C 

SlOPl  T 

88 

iS 

CALL  PLOT (0. ,-10.  , — 3 ) 

SICPLT 

89 

w 

YP= 1 . /CMP  IN 

SIDPLT 

90 

$ 

CALL  PLOT (0.  ,YP »-3) 

SIOPLT 

9 i 

4 

XP=  S IDE /CMP  I N 

SIOPLT 

9? 

YP=BOTTM/CMP IN 

SIDPLT 

53  , 

j 

CALL  PLOTIXP, YP.-3) 

SIDPLT 

54  ' 

C 

SIDPLl 

55 

C DRAW  Y AXIS 

SICPLT 

56  ; 

£ 

NC  = 36 

SIDPLT 

97  ; 

C LABELYI9)  = NXLNIT 

SITPLT 

98 

CALL  STRtSQV!  NXLNiT  rli.4  .LABEL  Y ,3  1 ) 

SICPLT 

96 

] 

CALL  CM  AX  I $(  0.  , 0.  , LABEL  Y ,~NC  , YLEK.0TO  rTr-IN-rOCU  AY  > 

SICPLT 

IOC 

4 

C ' 

S I DPL-r 

-10) 

VI 

C CRAW  X AXIS 

SICPL  T 

10^  , 

g. 

NC=44 

SICPLT 

1C3 

1 

C 36C 

SICPLT 

104 

Si 

C L AB6LX { 3 ) =ND I ST<  KK ) 

SIDPLT 

1C5 

jf 

C LAB6LX(6)=NXUNIT 

SICPLT 

106 

s 

C 00  25  1-1,2 

SICPLT 

107 

s 

C25  LABELX(9+I)  = NLAtiELU  ) 

SICPLT 

108 

s? 

i 

C 

S IDPL  I 

109 

I 

CALL  STRKOVINXUNI T , 1 , 4 , LABEL  X ,2 l ) 

SICPLT 

lie 

£ 

CALL  STRMQVINQIST (KK)  , l , 4 , LABE  LX  , 16 » 

SIDPLT 

111 

| 

CALL  STRMG VI NLABEL  ,1,8, LABEL  X, 37  ) 

SIDPLT 

112 

CALL  CMAX  I S(0.,0.,  LABELX.NC.XLEN.SC.  .XMN.OELTAX) 

SICPLT 

113 

fj 

C 

SIDPLT 

114 

C PLOT  POINTS 

SIOPLT 

115 

1 

\ 

f 


* rf’  r * "&  '*'  ■ ~-  **  ^ ■*?-  ***-  '•»  f* 

•" V *;;';<  ‘ 

v - * , *«£?„ 

- ’ » ^♦'^' 


far  "&*  *1?**!* 


^ ♦ * ‘ -L— . ««,e.a>^^*;gg3aS3cgt!cmttiMttBgd^^ 


j9 


OELTAX=DELTAX*CMPIN 

SldPLI 

116 

DELCM=OELTAY*CMPIN  

S I DPL  r 

117 

OISTM=, YLEN*DELTAY+YMIN 

— 310SLT 

118 

c 

S IDPL  T~ 

--ns. 

C GOTO 

FIRST  POINT  hi TH  PEN  UP 

S I DPL  T 

120 

r 

SIOPLI 

121 

XP=(DISTl 11— YMINl/OELCr 

S I DPL  T 

122 

YP=( VN{ 1,KK)-XMIN)/DELTAX 

S I DPL  T 

123 

CALL  PLOT ( XP  » YP ,3 ) 

SIOPLI 

124 

C 

S I DPL  T 

125 

C PLOT 

CURVE  AS  SERIES  OF  CCNNECTEC  SYPECLS 

SIDPLT 

126 

C 

SIOPLI 

127 

00  100  1=1, NP 

SIDPLT 

128 

X P*  DISTU) 

SIOPLI 

129 

If JXP.GT.OISTMJGC  TO  1C5 

SIDPLT 

13C 

XP=(  XP-YHIN) /OELCM 

SIDPLT 

131 

YP=t VN( I»KK)—”MINl/DELTAX 

SIDPLT 

132 

CALi.  SYMSOLl XP,YP,.06,ISYM,C.C,-21 

SIDPLT 

133 

100 

CONTINUE 

SIDPLT 

134 

C 

s i dpl  r 

L35 

C DRAW  TITlE  AT  TOP  OF  PAGE 

SIDPLT 

136 

C 

SIDPLT 

137 

105 

XP=*XLEN+1.) /CMP  I N 

SIDPLT 

138 

C 

1=18 

SIDPLT 

139 

1=0 

SIDPLT 

140 

125 

IFCHTLEUKNE. BLANK)  GO  TC  13C  • 

SIDPLT 

HI 

1 = 1-1 

S IDPL  I 

142 

IF  C T oCT.O  ) GO  TO  125 

SIDPLT 

143 

no 

If ( I.EQ.O)  GO  TO  135 

SIDPLT 

144 

c 

1=1*4 

S IDPL T 

145 

1=1*10 

SIDPLT 

146 

YP  = .5  * 1YLEN  / CMPIN  - .16  * FLCATID) 

SI DPL  1 

147 

CALL  SYMBOL! YPfXPf. 16, TIT LEfC.C'I) 

SIDPLT 

135 

CONTINUE 

SIDPLT 

149 

C 

SIDPLT 

1 5 C 

C MOVE 

1 TO  NEW  PAGE 

SIDPLT 

151 

C 

SIDPLT 

152 

XP=( YLEN+SIDEI/CMPIN+  2. 

SIDPLT 

153 

YP=— BQTTM/CMPIN 

SIDPLT 

154 

CALL  PLOT ( XP , YP 3) 

SICPLT 

155 

23C 

CONTINUE 

S I DPL  T 

156 

C 

SIDPLT 

157 

return 

SIOPLT 

156 

END 

SICPLT 

159 

“ ‘v"  '■  _ 


SUBROUTINE  SCRRTR ( A, B , C , L .DEPNO T .DIM, K > ARG ) 

DIMENSION  All), BID, CIIJ  ,DE PNO T (1)  ,K i 1 > .CUM < 1 ) , ARGI 1 ) 

INTEGER  K 

IBM  SYS36C  *■  37C 

R EAL *8  ARG,  OTI,  0T2,  DT3 

EQUIVALENCE  ( Tl,DTI) , (T2.DT2),  (T3.CI3J 

CFT ERMINE  SCALE  FACTORS  FOR  SINGLE  PASS.  THREE  VARIABLE  SCRT  USING 
FOUR  SIGNIFICANT  DIGITS 
DTI  = 0, 


l . L 

AtJSIAlI)  ) 
ABS (8(1)1 
ABSICU)) 


IC  CONTINUE 
T I = 1 

r 2 = l 

T 3 = I 


= I0.**IINT(5.0  - ALOGlCUi/Fl)  ) ) 

= 1 C.** ( INT (— ALOG ICIT2/FL) ) i 

= I C .*♦ ( IN T (-5. C - ALQG1CI T3/FL) ) ) 


DEFINE  NEW  INDEPENDENT  VARIABLE. 
VARIABLES  A,  b,  C. 

DC  2C  I = l.L 
ARGI  I)  = A(()*DT1  ♦ BID* 

2C  CGNTINUE 

CALL  SHELL (ARG . K .L ) 

CALL  SHE l XHIOEPNOT.K.UIM.L) 
CALL  SPELAHI A.K.DUM.L) 

CALL  SHELXMQ.K.DUM.L) 

CALL  SHELXHIC.K.DUM.LJ 
RETURN 
ENO 


CCNTAIMNG  SCALED  VALUES  UF 


BID *072  ♦ CII)*CT3 


SCRRTR 
SORRTR 
SORRTR 
SCRRTR 
SCRRTR 
SCRRTR 
SCRRTR 
SORRTR 
SORRTR 
SORRTR 
SORRTR 
SORRTR, 
SORRJE.* 
SCRaTR 
SCRRTR 
, 'SORRTR 
SORRTR 
SCRRTR 
SCRRTR 
SLRRIR 
SORRTR 
SCRRTR 
SORRTR 
SORRTR 
SCRRTR 
SCRRTR 
SCRRTR 
SCRRTR 
SORRTR 
SORRIR 
SORRTR 
SCRRTR 
SCRRTR 
SCRRTR 
SCRRTR 


SUBROUTINE  SGRTXIX,Y,NI 

SORTX 

2 

c 

SORTX 

3 i 

c 

author  d.g.dunn 

SORTX 

A ' 

c 

SORTX 

5 | ,* 

c 

THIS  ROUTINE  SORTS  POINTS  IX, Y)  M TM  RESPECT  TC 

SORTX 

6 j • ‘ 

c 

INDEPENDENT  VARIABLE  tX).  AFTER  SORTING  THE 

SORTX 

7 > 

c 

(X)  ARRAY  RILL  BE  MCNCTCNIC  AND  CftCEftit  » 

KMC 

SORTX 

e 1 

c 

VALUE. 

SORTX 

S 

c 

SORTX 

1C  i 

DIMENSION  X(  I ) « Y ( 1 ) 

SORTX 

11  • 1 

KK=N-l 

SORTX 

12  ! 

DG  2 K=I,KK 

SORTX 

13  ! 

KL=K+1 

SORTX 

14  3 

DG  2 J=KL»N 

SORTX 

15  ■>; 

IF(X( JI-XIK) ) l,2#2 

SORTX 

it  i 

1 

T=X{ J ) 

SORTX 

1? 

X(J J=X(K) 

SORTX 

is 

X 1 K 1 =T 

SORTX 

is 

T -Y { J J 

SORTX 

20 

Y ( J ) = Y ( K J 

SORTX 

21 

Y <K  » =T 

SORTX 

22  i 

2 

CCNT INUE 

SORTX 

23  :fi 

RETURN 

SORTX 

24  4 

END 

SORTX 

25  S "I 

«+ys»s^* 


WwP~^"' 


r^^TTT:i£l^SKV*P***stt  = 


s\ ^^ysT^es^atacwsX^V^^  'f^*t 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  SPECAN 

PIRPOSE  EMPIRICAL  PREDICTION  CF  THE  SGUNE  PRESSURE  LEVEL 
FOR  AN  AUGMENTCR  SLCT  NOZZLE  WITH  JET  FLAP 

SUBROUTINE  SPECAN  DETERMINES  THE  VARIABLES  TC  CALCULATE 
THE  CHARACTERISTIC  FREQUENCY  ANO  THEN  DEVELOPS  ARRAYS  OF 
SPL  SPECTRA  FOR  EACH  FLIGHT  PATH  OBSERVER  COMBINATION, 

THE  INPUT  DaTA  TO  THE  SUBROUTINE  IS  PROVIDED  ThRCUGH 
LABELLED  COMMON  STATEMENTS, AND  DATA  STATEMENTS 


INPUT 


MO 

TSO 

GRAD 

P 

X,Y,Z 

GAMA 

TT 

NPR 

CELT 

AO 

DE 

FRQ 

NFS 

NOBS 


OUTPUT  SPL 


AIRCRAFT  MACH  NO 

STATIC  TEMP.  AT  ALTITUDE  ZO 

CLIMB  GRADIENT  ITAMTHETA) 

PROPAGATION  PATH  DISTANCE  ISCURCE  TC  OBSERVER) 

AIRCRAFT  COORDINATES  RELATIVE  TO  OBSERVER 

RATIO  CF  SPECIFIC  HEATS  FCR  EXHAUST 

TCTAL  TEMPERATURE  AT  NOZZLE  EXIT 

NCZZLE  PRESSURE  RATIO 

FLAP  ANGLE  RELATIVE  TC  HORIZON 

NOZZLE  DISCHARGE  AREA 

EFFECTIVE  DIAMETER  - HYDRAULIC  DIAMETER 
ARRAY  CF  GEOMETRIC  MEAN  FREQUENCIES 
FCR  THE  SCUNO  PRESSURE  LEVEL  SPECTRUM 
NC.  CF  FREQUENCY  BANDS 
NC.  OF  SIOELINF-  OBSERVER  POSITIONS 

CGLS.  CF  SCUNC  PRESSURE  LEVEL  SPECTRA 
FCR  EACH  POINT  CN  THE  FLIGHT  PATH  SEGMENT 
FORMING  AN  ARRAY  FCR  EACH  CBSERVER  POSITION 


CGMMCN/AUGWNG/GAMA ,TT ,NPR,DELT ,AC#OE , 

* IC0RE»LIN6,NTF6» IMA6,LGM6 ,N Ufa , 1 CP6 , I L A Y6 ,TF6 { 10) , 

* PCTA6(  10 ) , PLA6  (10)  , ELCH6  , ECH6  , P 1 Vi6  C 10  I ,T  L6  1 10 ) , CF6 , FM6 
COMMON /GCCMGN/NCF  ,NK,FRG(24)  , TSPL (24 , 10 , 17 ) , SPLT (24 , 17 ) , 

1 BUF ( 2 5 ) »RETA(  17) , SPL2 ( 17) ,TGAGP (24) ,CCPSF (17 ) 
CGMMGN/GEGMO/ Y ( 10 , 17 ) , Z ( 1C  , 1 7 ) , P ( LG , 17 ) ,CPND (10 , 17 ) , 

* 01(lC,17),621lC,l7),IOS(i7,lC),TFD(17,lO>,IPR(LO,17) 
♦,APP,TSO,RHP,APO,TC,RHO,CA,CZ,TSF(I7 ,10 ) ,CCV 

COMMON/GPRAM/AL  TP,ALTR,GRAC,MO ,NOBS«SLC I ST ( 10) , NT ENG, I UN IT , 

* OUMX  X (49  3) ,BCC,TCG,FLR,AAL1,EFF 
COMMON /SUMSPL/S SPL (24,10,17) 

CCMMGN/PNLD/PSPL ( 17,20 » EPNL ( 3 * lC),TtPNL (5,LCI 
COMMON /ANGLE /PS  I U7,IC)  , PS  I G ( 17, 1C),  BETA  (17,10 
COMMClN/HEAO/HIN  (20  ,HGUT  (20  ,CHIN(20) 

COMMON/ G FREQ /CFRECI 24) ,UFREC 125 ) ,FPREC(24) 

COMMON/ SWITCH/NTYPE,! TYPE,NENG, ICCF, IPRT (7) ,ICM 13) , NLCPT 
COMMON/GCON  v'C/C  ( 2,  10 ) , SLO I SX  ( 10 ) 

CCHMON/TMSPL/SP 2(24,1 7) ,16(2,3,12) 

COMMON /CRSPL  S/DC8117) v P SCR ( 1 7 ) , D f B { 4 C 8 ) .NPSCR 

C IMENSION  XPSI ( 7)  ,YBETA(4)  ,ZAU  (?  ,4) ,ZAl (7)  ,ZA2 (7,4) , 
IXFIF0(20),SPL0A(2G),C8SS(24) 

REAL  MO, NPR  »MJE 

DATA  XPSl/100.*ii0.»12G. , 130. , 14C . , 1 SO. , 160. / 

OATA  YBETA/0.,30.,6G.,SC./ 

OATA  ZAC/ 117. I, 117. 2, l 18. 6, llE. 7, 122. 9, 118. 8, l 18. 2, 


SPECAN 

2 

■1 

SPECAN 

3 

SPECAN 

4 

§ 

SPECAN 

5 

SPECAN 

6 

SPECAN 

7 

1 

SPECAN 

E 

% 

SPECAN 

c 

El 

SPECAN 

10 

SPECAN 

11 

KlJ 

SPECAN 

12 

B I 

SPECAN 

13 

B51 

SPECAN 

14 

1 

SPECAN 

15 

1 

SPECAN 

16 

SPECAN 

17 

SPECAN 

18 

d 

SPECAN 

19 

1 

SPECAN 

2C 

SPECAN 

21 

SPFCAN 

22 

SPECAN 

23 

B 

SPECAN 

24 

1 

SPECAN 

25 

1 

SPECAN 

2fa 

SPECAN 

27 

1 

SPECaN 

28 

§| 

SPECAN 

25 

SPECAN 

30 

SPECAN 

31 

SPECAN 

32 

SPECaN 

33 

% 

SPECAN 

35 

$■ 

SPECAN 

35 

1 

SPECAN 

36 

SPECAN 

37 

3 

SPECAN 

38 

i 

SPECAN 

25 

n 

SPECAN 

50 

| 

SPECAN 

51 

SPECAN 

52 

SPECAN 

53 

i 

SPECAN 

55 

§ 

SPECAN 

4 5 

i 

SPECAN 

4 fa 

1 

SPECAN 

47 

S 

SPECAN 

48 

»: 

SPECAN 

45 

SPECAN 

5C 

M 

SPECAN 

51 

1 

SPECAN 

52 

1 

SPECAN 

53 

1 

SPECAN 

54 

SPECAN 

35 

i 

SPECAN 

56 

1 

SPECAN 

57 

■ 

SPECAN 
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1 
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c 

c 


c 

c 

c 

c 

c 

c 

c 


1 12 1.4, 122. 0,122.3 '120.7.126.1,122.4,121.4, 

2 120.4, 122. 3, 124. 1, 123. a,  127. 6, 123. 4, 119. 8, 

3 118. 9, 1 19.9 ,121.1 ,120.9 ,128.6, 122.8,119.5/ 

DATA  ZA 1/15. 7, 19. 3,29. 5, 34.3,25. 3 ,21.1,20.5/ 

DATA  ZA2/ 5 1.3, 53. 1,50.4, 53.4,46.0  ,51.5,53.3, 

1 52.2,52.5,50.7,52.3,46.2,46.3,45.4, 

2 61.6,58.0,55.2,56. 7,48.8,47.3,51.7, 

3 63.6,64.8,64.9,61.7,48.3,49.5,51.8/ 

DATA  XFIFO/-2. ,-1.699, -1.398, -1.222, -1.046 ,-.757, -.699, -.602, 

♦ -. 523, -.456, -.398, -.301, -.222 ,-. 097,0. ,. 1 14, . 1 76, .30 1, . 519, 1 .0/ 

OAT A SPLOA/— 31..-25. ,-19.5,-16.5,-13.9,-10.  ,-9.25, -9 . ,-9. , 

1 -9.25,-9.5,-10.35,-11.  15,-12.85  ,-14. 5,-17., -18. 75, -22. 5, 

2-30. ,-47.25/ 

ICN( 6)=ICNI6)+1 


OELTR=DELT*. 01745 

ANGLE  BETWEEN  FLIGhT  PATh  ANC  FLAP  ANGLE 
ALFA  =DELIR  -AT AN IGR AD) 

C SAL  =COS ( ALFA  ) 

TOTAL  TEMP. OF  FREE  STREAM  REL.  TC  EXHAUST 
T T0=  TS0*(l.*-.2*(M0*CSAl  )**2) 

TRAT=  TT/TTO 
GAMM 1 = GAMA—  1. 

0=  NPR**( GAMM 1/GAMA) 

STATIC  TEMP.CF  EXHAUST 
TS=  TT/Q 

MACH  NO  OF  JET  EXHAUST 
MJE=  S0RT(2./GAMMl*<q-l.J) 

VEL  REL  TO  NOZZLE  CF  JET  EXHAUST 
V JE  = MJ£*SGRT( 1716.5*GAMA*TS) 

VEL( AIR )REL.  TO  NCZZLE 
VO=MO*49.C2*SQRn  TSC) 

VEL  OF  JET  REL  TC  AMBIENT  AIR 
VJR=$QRT<  VJE*VJE-2.*VJE*VC*CSAL+  VC* VC) 

CHARACTERISTIC  FREQUENCY 
FG=  VJR/DE/TRAT 

EVALUATE  CONSTANTS  CF  FUNCTIONAL  VALUES 
C1=ALOG10(TRAT) 

C2=ALCGIC(NPR) 

C3=10.*AL0G1C( . 188*AC) 

TEST  FOR  1/3  OCTAVE  BAND  FRECLENCY  CP  PREFERRED 
TENL3=C.C 

IF(NCF.E0.8)TENL3=4. 77 
f-INO  OCTAVE  BAND  SPECTRUM  SHAPE 
20  DC  5G  NF=  1 ,NCF 
F IFO=FRQ(NF)/FG 
AFIFC=AL0G10IFIF0) 

OBSSINF )=TBLU1I AF I FO , XF I FO , SPLC A ,1 ,20)*T£NL3 
59  CONTINUE 

CALL  ANGLES(NOBS»DELTR) 
f 8PF=0.3*FO 
OG  3C0  1=1, NOBS 

CALL  LINCORI SPZI 1, 1) , IMA6,LGM6,E1CH6,EDH6,NWL6,R1W6,TL6, 

* 1LAY6,FM6, IDP6,PS1 (1,1 ) ,NC F ,Ffl C ,PL A6 ,CF6, PCTA6 ,NTF6 ,TF6, DOPS F, 

* SPL2,IC0R6,IBIl,l,l TYPE) ,LIN6,FEFF  ) 
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59 

60 
6 1 
62 

63 

64 
6 5 
66 

67 

68 
69 
7C 

71 

72 

73 
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80 
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87 
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220 


240 


3CC 


0C  200  J=l,17 
TABLE  LOOK  UP 

A0=TBLU2IPSI ( J,I ),BETAI J,I) » XPSI , YEE IA ,2A0 ,1  ,1 ,7 ,4,7 ,4 ) 

A l=TBLUl (PS  I < J»  I ),XPSI,ZA1,1,7I 

A2=TBLU2(PSI  ( J,  II  , BETA!  J ,1 ) , XPSI  , YEETA  , Z A2  a » 1 .7 ,4.- 7,4) 

OVERALL  SOUND  PRESSURE  LEVEL 

0A=A0+A1*C1+A2*C2+C3 

OBTAIN  SOUNO  PRESSURE  LEVEL  SPECTRUM 

SPECTRA  FOR  AUGMENT CR  SLCT  NOZZLE  WITH  JET  FLAP 

DO  IOC  NF  = 1 1 NCF 

SPLTINF, J)=OA+OBSS(NF)-SPZ(NF,J) 

SSPL ( NF « 1,  J)=PWRSUM(SSPLINF,I , J) ,SFLT INF ,J) 1 

3 CONTINUE 
3 CONTINUE 

IFI IPRT( 7)«N£«7)GO  TO  220 

CALL  NO  ISC ( IPRTI7) , I ,NK, 10, CHIN , I LNI T , SLCISX I li , PEREC. 

* SPLT (lfl)rNCFflTYPE) 

CONTINUE 

DC  24C  NF=1»NCF 
DC  240  J = 1 » 1 7 

SPLT! NF,J1=SPLT(NF,J)-TSPL INF ,1 ,j) 

IF(IPRT(3).NE.3)GC  TG  3CC 

CALL  PNLSUBI SPLT (1,1) ,PSPL (1,1) ,1  PC (1,1) ,EPNL ( 1 » l ) , SPL2, 

* TEPNLI  1,1) , NK, BCG,  TCG,  FLR*  I,  NCeS,  I RR  (I,m 

CALL  NCI  SOI  IPRTI  3)  ,1  ,NK  , 12  ,CH  N ,1  LM  T , SLC  I SX  (I)  , PFREC , 

* SPLT!  1,1),NCF,ITYPEI 
CONTINUE 

RETURN 

END 
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116 

117 

118 
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123 
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If" 


/v.V 


SUBROUTINE  SQUASH l A ,M ,B , L) 

SQUASH 

2 

c 

VALUES  MUST  BE  MONOTONI CALL Y INCREASING  IN  THE  A ARRAY 

SQUASH 

3 

i 

c 

M MUST  BE  GREATER  THAN  CNE 

SQUASH 

A 

* J 

c 

A = INPUT  ARRAY 

SQUASH 

5 

jR* 

c 

M = LENGTH  OF  INPUT  ARRAY 

SQUASH 

6 

c 

B = THE  RESULTANT  ARRAY  OF  DISTINCT  VALUES  WHICH  CAN 

SQUASH 

7 

c 

BE  PLACED  IN  THE  A ARRAY  IF  CCRE  SI2E  IS  GF  CONCERN 

SQUASH 

8 

'{ 

t 

c 

L = THE  NUMBER  OF  OISTINCT  VALLES  IN  e 

SQUASH 

5 

■s. 

DIMENSION  A ( I) ,611) 

SQUASH 

1C 

i A 

[ g 

J=1 

SQUASH 

ii  ; 

! 

S(l)=Am 

SQUASH 

12  ; 

; -$ 

UG  100C  1=2, M 

SQUASH 

13  ! 

i ■*? 

IF  ( Alii  - EQ„  A ( I— 1 ) ) GC  TC  iOCC 

SQUASh 

1A  ! 

1 -j 

IF  '.Alii  .LT.  3 ( J ) ) GC  IC  101C 

SQUASH 

15  i 

i 3 

J=J+l 

SQUASH 

It  j 

i * 

6<J)=A(I> 

SQUASH. 

17 

'V 

i :j 

1000 

CONT  INUE 

SQUASH 

ie 

$ 

: ,< 

101C 

CONT INUE 

SQUASH 

19 

,»S 

L = J 

SQUASH. 

20 

RETURN 

SQUASH 

21 

END 

SQUASH 

22  ! 
i 

, £ 
i 

.s$ 

i 

1 


1 

'ts 

% 


p 

te 

m 

1 

w*'~ 

fe:- 

S’*",.". 

K 

fe 

W'X'- 

Sfi 

m 

m 

i! 
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•m 


subroutine  switchinepr, 


NLRC,  NALFA,  AARRAY , BARRAY) 


SWITCH  CHANGES  NL  = FILRG,  ALPHA,  EPR)  IKK  A SET  CF  FUNCTIONS... 

LOGIO(RO)  = FIEPR , ALPHA)  FOR  EACH  DESIRED  CONTOUR 
INDICATED  BY  THE  ARRAY  ANL(J). 

NEPR  NUMBER  OF  EPR  VALLES  IN  AEPR 

NLRO  NUMBER  OF  LRO  VALUES  IN  ALRO 

NALFA  NUMBER  OF  ALPHA  VALLES  IN  AALFA 

NL  NUMBER  OF  VALUES  OF  NL  IN  ANL 

ANL  ARRAY  OF  VALLES  OF  SPECIFIC  NCISE  CONTOURS 

AALFA  ARRAY  CF  VALUES  CF  ALPHA 

ALRO  ARRAY  OF  VALLES  GF  LCG  PC 

AEPR  ARRAY  OF  VALUES  OF  EPR 

AARRAY  ...  NOISE  LEVELS  FOR  FURC,  ALPHA,  EPR) 

BARRAY  ...  LOGIOIRO)  FOR  FIEPR,  ALPHA)  AT  EACH  ANL I J ) 


ARRAY  ...  LOGIOIRO)  FOR  FIEPR,  AL 
DIMENSION  AARRAY INLRO, NALFA, NEPR) 
DIMENSION  BARRAYINEPR,N'ALFA,NL) 
CGMMQN/CONTNT /AEPR 16 ) , A LRO (9) , AALFA (6) 
COMMON /LEVELS /ANL I 5) 


DO  1CIO  L=1,NE 
DC  101C  M=1,NA 
00  1010  J*  1 , NL 

BARRAY I L »M, J ) = 

101C  CONTINUE 


L= 1 ,NEPR 
M=l, NALFA 
J* 1 , NL 

,J)  = TBLU1 I ANL I J ) 


AARRAY! I ,M,L)  * ALRO, 


NLRO) 


BARRAY  REPRESENTS 
RETURN 
END 


LOGIOIRO)  = FIEPR,  ALPHA)  FOR  EACH  ANLIJ) 


SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

swirch 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWlTCh 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWlTCh 

SWITCH 

SWITCH 

SWITCH 


FUNCTION  TBLU1(XX,X,Y,MD,NI 

SC0934  T8LU1  PS-473  LU»  PAUL  661013  7094 

TABLE  LOCKUP  AND  INTERPCLAT ICN 

dimension  vm.xm 
INTEGER  SEARCH 

X ALWAYS  INCREASING  ICR  DECREASING) 

NC  = MO 

IFIS£ARCHIXX,X,NO«N,I)  .£Q.  OGC  IC  43 
RETURN  EXACT  VALUE 
T9LUI  = Y 1 1 ) 

GO  TO  51 
INTERPOLATE 

43  TBLU1  = TERPl(XX#X,Y,NOt I) 

51  RETURN 


SIS 


/--«***  * 


FUNCTION  TBL  02 1 XX, Y Y ,X , Y ,F2 , PCX , NC Y , NLX , NL Y ,NFX,NFY) 

TBLU2 

1 

c 

S00936  T8LL2  PS-473  IL,  PAUL  661013 

7094  6600 

TbLD* 

3 H] 

c 

TABLE  LOOKUP  AND  INTERPOLATE  — 2 INDEPENDENT 

VARIABLES 

TBLU2 

4 ||f 

DIMENSION  F2(NFX,NFY) , SI  20) , X (1) , Y < l ) 

TBLU2 

5 p 

INTEGER  SEARCH 

T6LU2 

6 

c 

FIND  PUS  I T ION  IN  X AND  Y 

TBLU2 

8 j|| 

NCX  = MDX 

TBLU2 

NCY  = MDY 

TBLU2 

9 s| 

11  = SEARCH(XX,X,NOX,NLX,I) 

TBLU2 

1C  a* 

11  = 11  * II  ♦ 1 •*  SEARCH  <YY,Y,NCY,NLY,JI 

VBLU2 

1 1 af 

c 

100 — NEITHER  EXACT,  5C— Y EXACT,  6C— X EXACT  , 10 — ECTH  EXACT 

TBLU2 

12  S? 

GO  T0<  ICC, 60, bO, 1C) ,11 

TBLU2 

li  gs 

c 

X IS  EXACT  MOVE  THAT  RCh  TO  < AND  LSE  TEHPl 

TELU2 

i4  it 

c 

A MAX  OF  19  MAY  BE  USED  IN  SCME  CASES  FCP  NCY 

TBLU2 

15  it 

6C 

IX  = MINGINOY , 19) 

TBLU2 

12  = IX  •*•  J 

TBLU2 

17  ll 

CO  l 11  = J,  12 

TBLU2 

18  3? 

IT  = 11  - J 

TBLU2 

19  h 

1 

S(  IT+  1 ) = F2(  I, II) 

TBL  02 

2C  p 

TBLU2  = TERPKYY.YI  J),S,IX,1) 

T BLUE 

ll  ft 

22  ii 

GO  TO  100C 

TBLU2 

c 

Y IS  EXACT  USE  TERPl 

TBLU2 

23  If 

5C 

TBLU2  = TFKPl(XX,X,F2ll,J) , ND  X , I J 

TBLUc 

24  I* 

GO  TO  ICCC 

TBLU2 

25  |I 

IOC 

TBLU2  = TERP2(XX,YY,X,Y,F2,NCX,NCY,NFX,NFY,I ,J) 

TBLU2 

26  p 

ICCC 

RETURN 

TBLU2 

27 

1C 

TBLU2  - F2(I , J) 

TBLC2 

28  Its 

GC  TO  100C 

T bLU2 

29  gi 

END 

TbLU2 

3C  5« 

\j* 


ii 
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FUNCTION  TBLU3(X1,Y1,21,X,Y,Z«F3  ,NCX  , MC  Y ,MCZ  , NLX  , NLY  , NLZ  , 
1 NF  X ,NF Y »NFZ ) 

TABLE  LCLKLP  ANC  JMEPPCLAYICN 
SOC938  TBLL3  PS-473  LLS  PAUL  6olOI3  7094 

DIMENSION  X(l),  Yd),  Z'.l),  F 3 < NF X ,NFY  ,NF Z ) , SI20.20) 
INTEGER  SEARCH 


6600 


IN  TABLES 


1 — Y EXACT,  en  2 — L EXACT 


NCX  = MO  X 
NCY  = MDY 
NCZ  = MOZ 

FIND  POSITION  OF  X,  Y,  AM)  Z 
IX  = SEARCH! XI, X »NOX ,NLX , l ) 

IY  = SEARCH!  YL,Y,NOY  , MY, J) 

I Z = SEARCH!  Z 1 ,2  »M)Z  , MZ  , K) 

CONSICEK  IX  BIT  PATTERN 

MIT  C SET— X EXACI,  bIT 
IX  * IX  ♦ IY  ♦ IY  + I Z*4  ♦! 

GO  TO  ( 1 1,  1,2,21,22, 15, 2C, 12) ,1 X 
NCNE  EXACT 

11  T8LU3  = TERPJI Xl,Yl,Zl,X  ,Y,Z  ,F3 »NCX,ND7»NCZ*NFX,NFY,NFZ»  I , J , K ) 
1000  RE  TORN 

ALL  EXACT -••-STRAIGHT  TABLE  LLCKLP 
T BLOT  = F 3 ( l , J , K ) 

1CCC 

Z ARE  EXACT 

TBLOJ  = Tl:KPl(Xl»X,F3(l*J»K)  , NO  X , M 
GO  TO  1000 

Y ARC-  EXACT  — MOVE  F3(I,J,*) 


1? 


GO  TO 
Y AND 


2 C 


21 


14 


X AND 

IX  = MINC! 19 , NO  Z ) 

I Y = K + IX 

DC  14  IZ  = K. , IY 
IXA  = 1Z  - K + 1 
S<  IXA,  1)  = F 3! I , J,I Z) 

TBLU3  = TFRP1(Z1*2  !K)  ,S,  IX, 1) 

GC  TO  10C0 

X ANC  Z ARC  EXACT  — NCVE  F3!I,*,M 


15 


IX  = MINC! NO Y, 19) 

!Y  = J + I" 

DO  16  IZ  = J,  IY 
IXA  = IZ  - J + l 
16  S!  IXA, 1)  = F 3 ( I , I Z • X ) 

T0LU3  = IFKPKYl.YIJ)  ,S,lX,l) 

GL  TO  10CC 
Z IS  EXACT 

T BID  3 = TFRP2(Xl,Yl,X,Y,F3!l,l,K)»ND>,NDY,NFX,NFY,l,J) 
GL  TO  1000 

X IS  EXACT  — MOVE  F3 ( I ,*,*) 

IX  = MINOtNOY, 19) 

M I NC ( NO  Z , 1 9 ) 

J ♦ IX 


22 


1 


IY 
I J 
IK 
DC 
DO 


K + I Y 
IZ  = J, 
I I = K, 
IXA  = IZ  - J 
1X8  = I I - K 


I J 
IK 
+ 1 
+ 1 


S!  IXA,  1 XB)  = F3<  I , I Z , II) 

TBLU3  = TERP2(Y1,Z1*Y(J)  ,Z(K)  , S , 1 > , I Y, 20, 20, 1,1) 
GC  TO  1000 


TBLU3 
TBLU3 
TBLL‘3 
TbLU3 
TBLU3 
TBLU5 
TBLU3 
TBLU3 
i TBLU3 
. 7BLU3 
TBLU3 
TBLU3 
TBLU3 
TBLU3 
TBLU3 
T BL’Ji 
TLLU3 
TBLUi 
TBLU3 
TBLU3 
TBLU3 
TBLU3 
T BLUB 
T bL03 
TBLUi 
1 bLU3 
TBLUi 
TbLU3 
TBLU3 
TBLU3 
TBLU3 
TBLU3 
TULU3 
TBLUi 
TBLU3 
TBLU3 
TBLUi 
TBLUi 
TBLU3 
TBLUi 
TBLU3 
TBLU3 
TbLUi 
TBLUi 
TBLU3 
TBLU3 
TBLU3 
TBLU3 
TBLU3 
TBLUj 
T0LU3 
T6LU3 
TBLU3 
TBLUi 
TBLU3 
T BLU3 
TbLUi 


2 

3 

4 

5 

6 

7 

8 
9 

1C 

11 

12 

13 

14 

15 
U 

17 

18 
19 
2C 
21 
22 

23 

24 

25 
2b 

27 

28 
29 
3C 

31 

32 

33 

34 
33 

36 

37 

38 
iS 
4C 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

C ** 


4 


i 

1 i 


t % 


'ji 

33 

54 

55 
5l 

57 

58 


**'***'■  \ ’ * "5*  yffiSiffi 


■^sesw^Ks^V^1*-  ■ '^rjw^wwjawwfc 


^ ********  tfJSW 


te 


Y IS  EXACT  — MOVE  F3(»tJ»*) 

2 IX  = MINC(19,NDX) 

U * MIN0(19,N0Z) 

11=  I + IX 
IK  a K ♦ IZ 
00  4 JI  = I.  II 
00  4 JK  *•  K,  IK 
IXA  = J».  - I + 1 
1X8  = JK  - K + 1 
4 S<  TXAtlXB)  * F3(  JI iJ» JK) 

TBLU3  = TERP2IXlt2l*X(I)tZCK)*S»K0>«KDZ»2O»2O»I*l) 

GC  TO  1000 

END 


T81U3 
TBLU3 
TBLU3 
TBIU3 
TBLU3 
TBLU3 
TBLU3 
TBLU3 
T BLU3 
TBLU3 
TBLU3 
TBLU3 
TBLU3 


SUBROUTINE  TEE227 1 IMODE »M.N) 

TEE227 

2 

C 

PROGRAM  TEE227A( INPUT »OUT PUT  , TAPE 5 INPUT, TAPE6  OUTPUT) 

TEE227 

3 

c 

ThIS  PROGRAM  HAS  BEEN  GENERATED  AS  A MEANS  CF 

TEE227 

A 

i 

c 

CIRCUMVENTING  THE  NEED  FCR  INPUT  TC  T6E227  WHICH  IS  IQ 

TEE227 

5 

l 

J 

c 

BE  RUN  UNDER  CONTROL  OF  A REAL  TIME  SINULATCR  CN 

TE6227 

6 

! , 

c 

THE  SIGMA  7. 

TEE227 

7 

| n 

C 

THE  A NUMBERS  REPRESENTED  GN  EACH  LINE  CF  THE  OATA 

TEE227 

6 

f 

c 

STATEMENT  ARE  THE  OUTPUT  CF  NCISE  LEVEL,  ENGINE  PRESSURE 

TEE227 

9 

J ■ 

c 

RATIO,  ELEVATION  ANGLE,  LCG1C  C*  RANGE,  GENERATED  BY 

TEE22  7 

1C 

• 

c 

THE  NOISE  PREDICTION  PRGGRAM,  TLE187  PER  INPUT  CASE 

TCE227 

II 

i A 

c 

AND  PLACED  ON  FILE  TAPE2C , WHICH  HAVE  BEEN  PROCESSED 

TEE227 

12 

■ 

c 

BY  THE  TEE187C  POSI-PROCESSCR.  THE  PCST-PRCCESSCR 

TEE2c7 

13 

1 

c 

INCORPORATES  THIS  CATA  CLRING  Th£  GENERATION  CF  THE 

TEE2c7 

1 A 

c 

MAIN  PROGRAM  CF  TEE227,  THE  NCISE  CCNTCUR  PROGRAM 

TEE22? 

15 

| 

« j 

c 

WHICH  THE  POST-PROCESSOR  HAS  CLTFL1  IN  SCURCE  CCCING  CN 

TEE227 

16 

c 

FILE  TAPE22 

TEE227 

17  ; 

1 

CCMM0N/CCLNT/N6PR , M 

T6E227 

18  j 

! 

CCMMCN/CGNTNT/AEPR<6) ,ALKG(9),AALFA(o) 

TEE227 

19  i 

DIMENSION  A 1 C ( 72 ) 

TEE227 

2C  | 

EQUIVALENCE  (DATM  l),ALCll)) 

TEE227 

21  ! 

DIMENSION  All!  72) 

T t £22  7 

22 

■i 

EQUIVALENCE  ( UA  TN  ( 72),A1L(D) 

TEE227 

23 

DIMENSION  A 12(72) 

TEE227 

2 A 

- 

EQUIVALENCE  ( OA  TN ( IA5),A12(U) 

TE6227 

25 

* 

DIMENSION  A 1 3 ( 72 ) 

TEE227 

26 

EQUIVALENCE  IDATN(  217)  ,A13 

TEE227 

27 

i DIMENSION  A 1 A ( 72) 

; EQUIVALENCE  (DATM  289  ) ,A1A  ( 1 ) ) 

j DIMENSION  A 15 ( 72 ) 

: EQU  l VALENCE  (DATM  36  1 ) , A15  ( 1 ) > 

0 IKENS ION  A lfc< 72) 

EQUIVALENCE  (DATM  A33),A16(1)» 
DIMENSION  A I 7 ( 72 ) 

EQUIVALENCE  (DATM  5C5),A17(1)> 
CIMENSIGN  Aie<72) 

EQUIVALENCE  (DATM  577>,A18(1)) 
DIMENSION  A I9( 72 ) 

| EQUIVALENCE  (DATN(  6A9 ) , A1 9 ( 1 ) ) 

j DIMENSION  A 20  1 72 ) 

i EQUIVALENCE  ( DA T M 72l),A20(l)) 

! /'  DIMENSION  A2l(72) 


EQUIVALENCE  (DATN ( 793),A21I1)J 
DIMENSION.  A 2 2 ( 72) 

EQUIVALENCE  (DATM  865),A22(1)) 

DIMENSION  A23( 72 ) 

EQUIVALENCE  (DATM  937),A23<1)) 

CIMENSIGN  A2A( 72) 

EQUIVALENCE  (OA TN  ( ICC9 i , A2A  ( 1 ) ) 

DIMENSION  A 2 5 ( 72 ) 

EQUIVALENCE  (DATM  1C81) ,A25<1) > 

DIMENSION  A26( 72 ) 

EQUIVALENCE  (DATN ( 1 1 53 ) , A26 ( 1 ) ) 

DIMENSION  A27I72) 

EQUIVALENCE  (DATN ( 1225 ) , A2 7 ( l ) ) 

DIMENSION  DATM  1256) 

C IMENS I ON  01 (32 A) ,D2(32A) ,03(32A),DA (32A) 
DATA  AlO  / 


865 ) t A22 ( 1 ) ) 
937 ) , A23 ( 1 ) ) 


TEE227 
TEE2<i  7 
TEE227 
TEE227 
TEE227 
TEE227 
TEE227 
TEC227 
TEE22  7 
TEE227 
TEE2^7 
TEE227 
TEE227 
TEE227 
T EE227 
TEE227 
TEE227 
TEE227 
TEt22  7 
TLE227 
TEE227 
TEE227 
TEE227 
TEE227 
TEE227 
TEE227 
TEE227 
TEE227 
TEE227 
TEE227 
T fc  622  7 
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>T*tS  ■*■  ■r'->  ^r*s=*j(^  **• 


1 1.1256 

2 ‘ 9.5306 

3 1.1C1E 

4 1.1166 

5 9.341E 

6 '612686 

7 3. 3866 

8 i. 1376 

9 7.3486 

* 1.110E 

* 7.934E 

* 4.695E 

* 8.988E 

* 8. 140E 

* 1 • 02  IE 

* 8.449E 

* 1.1866 

* 3.9886 
DATA  All  / 

1 9.1266  i 

2 9.270E  ( 

3 1.033E  i 

9 9.  7376  ( 

5 1.047E  ( 

6 9.943E  ( 

7 9.87  IE  { 

8 1.C77E  ( 

9 1.0C3E  ( 

* 1.140E  C 

* 9.8596  C 

* 8.0066  C 

* 9.897E  0 

* 1.002E  0 

* 1.019E  0 

* 1.0566  C 

* 8.0036  0 

* 8.79CE  0 

CATA  A 12  / 

1 1.2CCF  0 

2 7.503E  0 

2 8.1816  0 

9 7.857E  0 

5 8. 6956  0 

f>  7.99CE  0 

7 9.190E  0 

8 3.328E  0. 

9 8.C68E  OJ 

* 9.4206  0: 

* 8.2996  OJ 

* 8.9306  01 

* 9.147E  0] 

* 9. 50 IE  01 

* 8.81CE  01 

* 1.017E  02 

► 1.030E  02 

* 5.179E  Cl 

CATA  A13  / 


2.0C0E  CCi 
1.80CE  00, 
1.6CCE  00, 
1.60CE  00, 
1.2CCE  OC, 
1.2CC6  00, 
l.CCCE  00, 
1.60GE  00, 
1.6CCE  00, 
1 • 6CGE  00 , 
1.2CCE  OC, 
l.OCCE  CO, 
2.0CCE  OC, 

1. CCCE  OC, 
1.8CCE  OC, 
1.6CCE  00, 

2. CCCE  OC, 
l.CCCE  00, 

1.8CCE  OC, 
i.ecoE  oo, 
1.8CCE  OC, 
1.80CE  OC, 
1.8CCE  OC, 
1.2CCE  OC, 

1. eccE  cc, 

1.4C0E  00, 
1.8CCE  OC, 

2. CCCE  OC, 
1.4CCE  OC, 

1. CCCE  CC, 
2. OCOE  OC, 
2.00CE  00, 

2. CC06  OC, 

i.ecoe  oo, 

1. CCCE  00, 
1.6CCE  00, 

2. CCCE  00, 
l.CCCE  00, 
1.8CCE  OC, 

1. CCCE  00, 
1.2CC6  CC, 
1.4CCE  OC, 

2. C0CE  OC, 
1.8CC6  OC, 
1.2CCE  00, 
1.4CCE  CC, 
l.CCCE  CC, 
1.4CCE  CC, 
1.6CCE  OC, 
1.6CCE  00, 
1.2CCE  OC, 
1.4CCE  CC, 
1.4CCE  00, 
1.2CCE  CC, 


7.181E 

1.448E 

7.181E 

1.448E 

5.000E 

4.500E 

C.O 

3.COOE 

C.O 

4.50CE 

3.000E 

3.000E 

5.000E 

4.500E 

C.O 

1.448E 
7. 18  IE 
0.0 

3.C0CE  i 
4.500E  i 
3.000E  l 
3.0006  < 
4.500E  < 
8.000E  { 
4.5006  ( 
3.00CE  ( 
5.00CE  ( 
1.446E  C 
C.C 

3.000E  C 
3.C0C6  C 
4.500E  C 
9.C0CE  0 
7.1816  0 
1.448E  0 
4.5006  0 

1.4486  0 
C.C 

7. 18 IE  0 
7. 18  IE  0 
7 . 18 IE  0 
4.500E  0 
C.C 

1.4486  0 
4.500E  0 
1.448E  0 
9.000E  0. 
C.C 
C.O 

7.181t  OC 
5.0UCE  01 
3.0006  OJ 
4.500E  01 
7.1816  OC 


2. 3016  00, 

T6E227 

59 

3.2046  00, 

TEE227 

6C 

2.000E  00, 

TEE227 

61 

2.0006  00, 

TEE227 

62 

2.3016  OC, 

T 6622 7 

63 

3.806E  00, 

T 6622  7 

64 

4.107E  00, 

TEE227 

65 

2.0006  00, 

166227 

6 6 

3.8066  00, 

T6E227 

67 

2.3016  00, 

TEE227 

68 

2.9036  00, 

I 66227 

69 

3-806E  00, 

TEE227 

70 

3.806E  00, 

TEE227 

71 

2.000E  00, 

T 6622  7 

72 

2.6026  00, 

TEE227 

73 

3.505E  00, 

T 6622  7 

74 

1.699E  00, 

TEE227 

75 

3.8066  00/ 

T 6622  7 

76 

TEE227 

77 

3.505E  00, 

TE6227 

76 

3.5056  00, 

TEE227 

79 

2.9036  00, 

T6E227 

8C 

3.204E  00, 

T6E227 

81 

2.9036  00, 

TEE227 

£2 

1.699E  00, 

T E 622  7 

83 

3.2046  00, 

TFE227 

84 

1.6996  00, 

T6E227 

85 

2.301E  00, 
2.000E  00, 
2.000E  00, 
3. 204 E 00, 
3.204E  00, 
3, 204E  00, 
2.6026  00, 
1.699 E 00, 
3.5056  00/ 

1.699E  00, 
1.6996  00, 
3.8066  00, 
1.6996  00, 
2 . 301  £ 00, 
3.5056  00, 
3.2046  00, 
3.806E  00, 
2.903E  00, 
2.6026  00, 
2.0006  00, 
2.602E  00, 
2.9036  00, 
2.903E  00, 
2.6026  00, 
2.301 E OC, 
2.301E  00, 
4. 107E  00/ 


T6E227 

TEE227 

TEE227 

TEE227 

T6E227 

T66227 

TEE227 

T66227 

TEE227 

T H *'  \t  7 

TE1./27 

T 66227 

TE6227 

T66227 

T 66227 

T 6622  7 

TC6227 

T 6 622  7 

T66227 

T 6622  7 

T6E227 

TEE227 

T E £22  7 

TEF227 

f 6E227 

TFE227 

TEE 22? 

TE62^7 

T 6 622  7 

TFE227 
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1 1.15CE  02, 

2 1.170E  02, 

3 5.5336  01, 

4 6.5296  01, 

5 9.0486  01, 

6 9.182E  01, 

7 1.0636  02, 

8 9.0306  01, 

9 9.384E  01, 

* 1.0086  02, 

* 9.9616  01, 

$ 7 . 7466  0 1 , 

$ 8.5356  01, 

* 5.7816  01, 

* 1.C46E  02, 

* 7.7016  01, 

* 6.7876  01, 

* 1.1496  02, 

OATA  A 14  / 

1 7.8486  01, 

2 5.5446  01, 

3 1.0236  02, 

4 1.0446  02, 

5 6.7236  01, 

6 1 . 0616  02, 

7 1.1346  02, 

8 7. 2556  Cl, 

9 1.0426  02. 

* 9.7306  01, 

* 9.4296  01, 

* 7.8286  01, 

* 6.2876  01. 

* 6.4946  01, 

* 6 . 4466  01 , 

* 1.1066  02, 

* 9.2836  01, 

* 1.C57E  02, 

DATA  A15  / 

1 1.0736  C2, 

2 5.6666  01, 

3 5.9466  01, 

4 7.7266  01, 

5 0.3416  01, 

6 4.4886  Cl, 

7 9.5446  01, 

8 9.6906  01, 

9 9.8ME  01, 

t>  1.2306  02, 

* 1. 0906  G2, 

* 1.0766  02, 

* 1 . 1646  02 , 

* 7.9236  01, 

* 6*7866  01, 

* 6.6286  01, 

* 1. 1266  02, 

* 8.4296  01, 

DATA  A 16  / 


2.CCC6  CC, 
1.8CCE  00, 
1.2CC6  OC, 
1.2CCE  OC, 
1.20CE  00, 
1.2006  00, 
1.8CCE  00, 
1.8CC6  00, 
1.8CGE  00, 
1.6CCE  CG, 
1.4CCE  CO, 
1.6CC6  CO, 
1.80CE  00, 
1.200E  OC, 
1.4CGE  00, 
1.6CC2  00, 
l.CCCE  CC, 

1. 8006  00, 

1.6CCE  00, 
L.CG06  00, 
1.6CCE  00, 
1.6CCE  CC, 
l.CCCE  OC, 
1.6G0E  00, 
1.8CCE  OC, 
1.4CC6  00, 
1.4CC6  OC, 
1.6CCE  00, 
1.8CC6  00, 
i.eoce  oo, 
l.CCCE  00, 
l.OCCE  00, 
1.4CCE  CO, 
1.4CCE  CC, 
1.4CC6  OC, 
1.6CCE  00, 

1.6CC6  00, 
1.20CE  00, 
1.4CCE  00, 
1.8CCE  CC, 
1.20CE  OG, 
1.00C6  00, 
2.CCCE  00, 
2.CCC6  00, 
1.2CCE  00, 
2.CCC6  CC, 
2.C0CE  OC, 
1.6CCE  00, 
1.8CCE  00, 
1.8CCE  00, 
1.40CE  00, 
1.CCG6  CC, 
1.6CC6  00, 
1.8CC6  00, 


C.O  « 

7. 18  IE  00, 
3.000E  01, 
1.448E  01, 

3.0006  01, 
4.500E  01, 

9.0006  01, 

C.O  » 

7.1816  00, 

7 . 18 IE  00, 
1.448E  Cl, 
9.C00E  01, 

3.0006  01, 

7.1816  00, 

9.0006  01, 

7.1816  00, 

9.0006  01, 

7. 18 1 E OC, 

1.448E  01, 

7.1816  00, 
1.44C6  01, 

3.0006  01, 

7.1816  00, 

7'.  18 IE  00, 

c.-o  « 

3.0006  01, 

7.1816  00, 

c • c * 

5. COCE  01, 
C.O  , 

1.448E  01, 

3.0006  01, 
1.448E  01, 
9.000E  01, 

7.1816  00, 

4. 5006  01, 

5.0006  Cl, 

4.5006  01, 
C.O  t 

1 .4486  01  , 
C.C  , 

1.448E  01  , 

7.1816  00, 

1.4486  01, 

1.4486  01, 
9.000E  01, 
C.O  * 

1.4466  01, 

1.4486  01, 
3.000E  01, 

4.5006  01, 
4.50CE  01, 
5.000E  01, 
C.O  , 


1.699 E 00, 
1.6996  00, 

4.1076  00, 

3.5056  00, 

2.3016  00, 

2.3016  00, 
2.903E  00, 
3.2046  00, 
3.2046  00, 
2.6026  00, 
2.301E  00, 
4.107E  00, 

3.8066  00, 

3.8066  00, 

2.3016  OG, 

3.8066  00, 

2.9036  00, 

2.0006  00/ 

3.8066  00, 
3.204E  00, 
2.602E  00, 
2.O02E  00, 

2. 602E  00, 

2.3016  00, 
1.699E  00, 
3.806E  00, 
1.699E  00, 
2.6026  00, 

3.5056  00, 

3.8066  00, 
2.903E  00, 

2.9036  00, 

4.1076  00, 
1.6996  00, 

2.6026  00, 

2.6026  00/ 

2.6026  00, 

4.1076  00, 

4.1076  OC, 

4.1076  00, 

2.3016  00, 
3. 806 E 00, 
3.204E  00, 
3.204E  00, 

2.3016  00, 
2.000E  00, 

2.3016  00, 
2.301E  00, 
2.000E  00, 

4.1076  00, 
4.  1076  00, 

2.9036  00, 

2.3016  00, 

3.5056  00/ 


i 


i 


T 6 622  7 

T 6622  7 

T 6622  7 

T 6622  7 

TE6227 

T 6622  7 

TEC227 

T 66227 

T 66227 

T 66227 

1 66227 

1EE227 

TEE227 

TEE227 

166227 

166227 

16E227 

TEE227 

TE6227 

166227 

166227 

T 6622  7 

166227 

1EE227 

TEE227 

TEE227 

1 66227 

TE6227 

TEE227 

1 66227 

T 6622  7 

TE6227 

TEE  22  7 

T6E227 

T 66227 

T6E227 

TEE227 

TE6227 

166227 

TE6227 

TE6227 

1E6227 

T 6622  7 

166227 

TE6227 

T6E227 

T 66227 

TEE227 

T6E227 

TE62^7 

T 66227 

TEE227 

TEE227 

IE  622 7 

TEE227 

TEE227 

T 66227 


i 


116 

117 

118 

119 

120 
121 
1 22 

123 

124 

125 

126 

127 

128 
12S 

1 30 

131 

132 

133  | 

134  ! 

135  i 

136 

137 

138 

139 
14C 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 
155 
160 
161 
162 

163 

164 

165 

166 
It  7 
166 
169 
17C 

171 

172 


i 


mi'-m 
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1 

1.124E 

02 , 

1.8C0E 

OC, 

1.AA8E 

01, 

2.301E 

00, 

T EE 22  7 

173 

2 

7.886E 

01, 

2.OC0E 

00, 

I.AA8E 

01, 

A.107E 

00, 

TEE227 

17  4 

3 

8.C93E 

Cl, 

2.0CCE 

OC, 

3.C0CE 

01, 

A.107E 

00, 

TEE227 

17b 

3 

4 

1.056E 

02, 

l.ACCE 

00, 

1.A48E 

01, 

1.699E 

00, 

TEE 22  7 

176 

i 

5 

9.AA3E 

01, 

1 . 2 CCE 

CO, 

1.AA8E 

01, 

1.699E 

00, 

TEE227 

177 

j 

6 

1.097E 

02, 

1.6CCE 

00, 

3.C0CE 

01, 

2. 301 E 

00, 

TEE227 

178 

J 

7 

1.CC6E 

02, 

l.ACCE 

00, 

C-0 

* 

1.699E 

00, 

TEE227 

179 

3 

8 

1.185E 

02, 

1. 8CCE 

00, 

3.G00E 

01, 

2.000E 

00, 

TEE227 

180 

9 

6.299E 

01, 

l.ACCE 

CO, 

7. 181 E 

CO, 

A.107E 

00, 

TEE227 

181 

i 

* 

8-066E 

01, 

1.8CCE 

CC, 

A.50CE 

01, 

A.107E 

00, 

TEE227 

182 

i 

* 

9.650E 

01, 

1.20CE 

OC, 

3.00CE 

01, 

1.699E 

00, 

TEE227 

183 

j 

* 

9.78AE 

01, 

1.200E 

00, 

A.500E 

01, 

1.699E 

00, 

T EE  22  7 

164 

t 

* 

8.783E 

01, 

1.8CCE 

00, 

7. 18  IE 

CO, 

3.505E 

OC, 

TEE227 

18b 

* 

8.929E 

01, 

1. 8CCE 

CO, 

1.AA8E 

01 , 

3. bObE 

00, 

TEE227 

186 

j 

* 

1 .0666 

02, 

1.6CCE 

CC, 

C.O 

, 

2.000E 

30, 

TEE227 

18/ 

•t 

j 

* 

9.787E 

01, 

2.GCCG 

OC, 

C.C 

, 

2.903E 

00, 

TEE227 

186 

* 

* 

8. 3866 

01, 

2.C00E 

00, 

9.000E 

01, 

A.107E 

00, 

TEE227 

1 89 

j 

* 

5.69CE 

01, 

l.GCCE 

00, 

1.AA8E 

01, 

3.20AE 

00/ 

TEE227 

19C 

/ 

CATA 

, A 1 7 / 

TEE227 

191 

d 

1 

6.946E 

01, 

l.ACCE 

CC, 

9.000E 

01, 

A.107E 

OC, 

TEE227 

192 

1 

i 

A 

2 

6.383E 

01, 

1.2CCE 

OC, 

7. 18  IE 

00, 

3.505E 

00, 

TEE227 

193 

3 

6 .90  IE 

01, 

l.ACCE 

00, 

7.181E 

00, 

3.806E 

00, 

TEE227 

194 

4 

7.GA8E 

01, 

l.AOCE 

00, 

1.A48E 

01, 

3.806E 

00, 

TEE227 

19b 

■J 

| 

5 

5.897E 

01, 

l.CCCE 

00, 

3.000E 

01, 

3.20AE 

00, 

TEE227 

196 

a 

6 

1.165E 

02, 

2.CCGE 

OC, 

7-.  18  IE 

00, 

2.000E 

00, 

TEE227 

197 

7 

4.589E 

01, 

l.OCOE 

00, 

0.0 

, 

3.505E 

00, 

TEE227 

196 

-i 

8 

7.8 10E 

01, 

1.2CCE 

CC, 

C.O 

* 

2.602E 

00, 

7EE227 

199 

1 

K 

i 

4 

9 

8.162E 

01, 

1.20CE 

CC, 

7.1816 

00, 

2.602E 

00, 

TEt22  7 

2CC 

* 

8.695E 

01, 

2.00CE 

00, 

3.COOE 

01, 

3.806E 

00, 

TEE227 

201 

* 

7.5A8E 

01, 

l.ACCE 

CC, 

9.00CE 

01, 

3.006E 

00, 

TEE227 

2C2 

3 

* 

8. 828E 

01, 

2.CCCE 

GO, 

A.500E 

01, 

3. 80bE 

00, 

T6E227 

202 

1 

* 

6.90  IE 

01, 

l.CCCE 

CC, 

C.O 

, 

2.301 E 

OC, 

T EE227 

2C  A 

<* 

4 

* 

1 . 22  IE 

02, 

2. CCCG 

OC, 

3.00CE 

01, 

1.699E 

00, 

TEE227 

2C5 

as 

1 

* 

R.656E 

01, 

1.6CCE 

CC, 

3.C0CE 

Cl, 

3.505E 

00, 

T6E227 

2Cc 

4 

■a 

( 

* 

1.150E 

02, 

1.6CCE 

OC, 

A.500E 

01, 

2.000E 

00, 

T6E227 

2C7 

* 

6.029E 

01, 

1.2CCE 

OC, 

C.O 

» 

3. 505b 

00, 

TEE227 

2CE 

1 

t 

* 

1 .23 AE 

02, 

2. CCCE 

CC, 

A.5O0E 

01  , 

1 .699  E 

00/ 

TEE227 

209 

DATA 

A18  / 

TEE227 

71 

i 

| 

1 

l .2  50E 

C2, 

2.CCCE 

OC, 

9.C00E 

01, 

1.699E 

00, 

TEE227 

cl  l 

2 

1.21AE 

02, 

l. 80CE 

CO, 

9. 0006 

01, 

2.000E 

00, 

TEE227 

12 

! 

3 

1.C87E 

02, 

2. CCCE 

CC, 

1.AA6E 

01, 

2.6021 

00, 

TEE227 

213 

h 

A 

8.226E 

01, 

1. 8CCE 

OC, 

9.C00E 

01, 

A.107E 

00, 

TEE227 

214 

4 

5 

1.1C8E 

02, 

2. CCCE 

00, 

3.000E 

01, 

2.602  E 

00, 

TEE227 

7.5 

v 

6 

6.63GE 

01, 

1.2CCE 

CC, 

C.C 

, 

3.20AE 

00, 

TEE227 

216 

J 

7 

6.98AE 

01, 

1.2CCE 

CC, 

7. 18  IE 

00  , 

3.20AE 

00, 

TEE227 

217 

< 

8 

8.668E 

01, 

1.8CCE 

CC, 

A.500E 

01 , 

3.806  E 

00, 

TEE227 

218 

= 

9 

8.828E 

01, 

1. 8CCE 

OC, 

9.COOE 

01, 

3.806E 

00, 

TGE227 

219 

i 

* 

7.226E 

01, 

1. 80CE 

OC, 

C.O 

, 

A. 107E 

00, 

T h fc  2 2 7 

22C 

i 

* 

7.579E 

01, 

1.8CCE 

OG, 

7. L81E 

OC, 

4.107E 

00, 

TEE227 

221 

t 

* 

1-2186 

02, 

1.8C0E 

OC, 

4.500E 

01, 

1.699E 

00, 

TEE227 

222 

J 

-5 

* 

1.23AE 

02, 

1. 8CCE 

OG, 

9.000E 

01, 

1.699E 

00, 

TEE227 

7.  i 

* 

1 . 18  AE 

02, 

1.8CCE 

CC, 

1.AA8E 

01, 

1 .699 1 

00, 

TEE227 

27A 

1 

* 

1 . 12  IE 

02, 

2.CC0E 

OC, 

A.500E 

01, 

2.602E 

00, 

T l:E  72  7 

27b 

* 

1.137E 

02, 

2.C0CE 

00, 

9.C0CE 

01, 

2.602E 

00, 

TEE227 

226 

i 

* 

5.928E 

01, 

1.2CCE 

CO, 

1.AA8E 

01, 

3.806E 

00, 

TEE227 

777 

* 

9.77CE 

01, 

l.ACCE 

CC, 

A.500E 

01 , 

2.602E 

00/ 

TEE227 

CATA 

A 19  / 

TEE227 

27  ■ 

1 
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1 8.7C1E  01. 

2 9.930E  01. 

3 1.079E  02 , 

4 1.180E  02, 

5 1.U4E  02. 

6 7.58  IE  01, 

7 1.02 IE  02, 

8 7.386E  01, 

9 7.739E  01, 

* 1.036E  02, 

* 1.166E  02. 

* 5.190E  01, 

* 4.341E  01, 

* 1.086E  02, 

* 1.015E  02, 

* 8.55CE  Cl, 

* 1.205E  02, 

* 8.210E  01, 


1.4CC6  00, 
1.400E  00, 
2.CCC6  00, 
2.CC0E  CO, 
1.8CCE  00, 
1.2CCE  CC, 
1.40CE  00, 
2.CCCE  00, 
2.CCCE  00, 
1.4CCE  00, 
1.60CE  00, 
1.0CCE  OC, 
1.0CCE  OC, 
1.4G0E  OC, 
1.6CCE  00, 
1.6CCE  00, 
1.8CCE  OC. 
l.OCCE  GO, 


CATA  A20  / 
L 8.188E 

> 8.348E 

5 7.227E 

1.1746 
7.337E 
7.471E 
7.63CE 
5.32fcE 
4.826E 
8.344E 
» 8.503E 


01, 

01, 

Cl, 

02, 

01, 

01, 

01, 

01, 

01, 

01, 

01, 


1. 6CCE  CO, 
1.60CE  00, 
1.2C0E  00, 
1.8CCE  00, 


1.2CCE 

1.2CCE 

1.20CE 

1.20CE 

1.2CCE 

l.OCCE 


00, 

CC, 

OC, 

00, 

00, 

00, 


l.OCCE  GO, 


* 

8.847E 

Cl, 

1.4CCE 

OC, 

* 

I.C57E 

02, 

1.400E 

OC, 

* 

7.255E 

01, 

l.OOCE 

00, 

* 

1.070E 

02, 

1.4CCE 

OC, 

♦ 

8.9436 

01, 

2. CCCE 

CC, 

* 

4.226E 

01, 

l.COCE 

CC, 

* 

4.3866 

01, 

1. CCCE 

OC, 

CATA 

A21  / 

1 

7.988E 

01, 

2.C00E 

00, 

2 

1.145E 

02, 

1.8CCE 

00, 

3 

7.4CIE 

01, 

l.OCCE 

00, 

4 

7.7506 

01, 

1.4CCE 

CC, 

5 

9.089E 

01, 

2.0CCE 

00, 

6 

9.296E 

01, 

2.C00E 

00, 

7 

8.3416 

01, 

2.CC0E 

00, 

3 

1.2016 

02, 

2. CCCE 

00, 

9 

1.214E 

02, 

2. CCCE 

OC, 

* 

6.746E 

01, 

1.6CCE 

OC  , 

* 

9.4306 

01, 

2.00CE 

CC, 

* 

9.5896 

01, 

2. CCCE 

CC, 

* 

1.157E 

02, 

1.6C0E 

00, 

* 

1. 174E 

02, 

2. CCCE 

00, 

* 

8.055E 

01, 

1.6CCE 

OG, 

* 

6.736E 

01, 

1.2CCE 

CO, 

* 

9.39  IE 

01, 

1.6CCE 

00, 

* 

9.550E 

01, 

1.6CCE 

CC, 

OATA  A22  / 


7.181E  00, 
5. CODE  01, 
5.000E  01, 
1.448E  01, 
0.0  , 
7.181E  00, 
7. 181 E 00, 
C.O  , 
7 . 18 IE  00, 
1.448E  01, 
9.000E  01, 
C.C  , 
7.181E  00, 
5.000E  01, 
9.000b  01, 
C.C  , 
3.00CE  Oi, 
3.000E  01, 

4.500E  01, 
5.00CE  01, 
C.O  , 
5.C00E  01, 
3.000E  01, 
4; 500E  01, 
5.C0QE  01, 
1.44EE  01, 
C.O  , 
4.500E  01, 
9.000E  01, 
1.448E  01, 
3.G0CE  01, 
7 . 18 IE  00, 
4.500E  01, 
7. 18  IE  00, 
4.500E  01, 
9.000E  01, 


C.C  , 

3.C00E  01, 
1.448E  01, 
C.O  , 
1.4486  01, 
3.000E  01, 
7.1816  OC, 
3.000E  01, 
4.500E  01, 
C.C  , 
4.500E  01, 
9.000E  01, 
3. CODE  01, 
4.500E  01, 
3.000E  01, 
3.C00E  01, 
4.5006  01, 
8.C00E  01, 


2.903E  00, 
2.602E  00, 
2.903E  00, 


2.000E 

00, 

2.000E 

00, 

2.903E 

00, 

2.000E 

00, 

4.107E 

00, 

4. 1076 

00, 

2.000E 

OC, 

2.000E 

00, 

3.2046 

00, 

3.8066 

00, 

2.000E 

00, 

2.903E 

00, 

3.2046 

00, 

1.699E 

00, 

1.699E 

00/ 

3.806E 

00, 

3.806E 

00, 

2.903E 

00, 

2.301E 

00, 

3.204E 

00, 

3.204E 

00, 

3.204E 

00, 

4. 107E 

00, 

4.107E 

00, 

1.699E 

OG, 

1.699E 

00, 

2.903E 

00, 

2.0006 

00, 

2. 301 E 

00, 

2.000E 

00, 

3.505E 

00, 

4.107E 

00, 

4. 1076 

00/ 

3.8066 

00, 

2.3016 

00, 

2 .30 1 E 

OC, 

3. 204  E 

00, 

3.505E 

00, 

3. 505E 

00, 

3.806E 

00, 

2.000E 

00, 

2.0006 

00, 

4.107E 

OC, 

3.505E 

OC, 

3.505E 

00, 

1.699b 

00, 

2.3016 

00, 

3. 806E 

00, 

3.505E 

00, 

3.204E 

00, 

3.204E 

00/ 

TEE227 

TEE227 

TEE227 

TEE227 

T EE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEC227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEfc227 

TEE227 

166227 

TEE227 

T6E227 

T £622  7 

TEE227 

TEE227 

TFE227 

T £6227 

TEE227 

TE6227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

1EE227 

TEE227 

TEE227 

TEE227 

TEE227 

TE6227 

TEE227 

T 6622  7 

TEE227 

TEE227 

TEE227 

TfcE227 


23C 

231 

232 

233 

234 

235 

236 

237 

238 

239 
24C 

241 

242 

243 

244 

245 

246 

247 

248 

249 
25C 
2sl 
252 
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9. 054E  01, 
I 8.75CE  01, 

9.647E  01, 
7.149E  01. 

- 8.3 ICE  01, 

, 7.949E  01, 

- 7.13CE  01, 

I 1.092E  02, 

) 8.  10 >iE  Cl, 

6.870E  01, 
« 7.210E  01, 

« 7.370E  01, 

- 5.7876  0.1 , 

< 6.141E  01, 

« 1.390c  02. 

< 1.158E  02, 

► 6.135c  01, 

< 8.517E  01, 

DATA  A23  / 

L 1.1C5E  02, 

► 1. 12 IE  02, 

\ 9.854E  01, 

* 7.503E  01, 

j 1.190E  02, 

b 5.296E  01. 

7 3.739E  Cl, 

3 9.  188E  01, 

3 5.430E  01, 

► 7.C77E  01, 

► 9. 46 IE  Cl, 

► S.815E  01 

► 8.25C6  Cl 

* 9.34.7E  01, 

* 8.739E  01 

» 9.093E  01 

* 7.299E  01 

► 1.074E  02 

OAIA  A24  / 

1 8.65CE  Cl 

2 7.653E  Cl 

3 8.9G4E  01 

4 6.870E  01 

3 9. OSCE  01 

6 6.548E  01 

7 l.ClAE  02 

8 1.086E  02 

9 4.943b  01 

7.586E  01 
6.653E  01 
1.C49E  02 
1.122E  02 
8.457E  Cl 
1.063E  02 
1.130E  02 
4.828E  01 
4.988E  01 

DATA  A25  / 


1.4CCE 
1.4CCE 
1 * 60CE 
1.4C0E 
1.2CCE 
1.600E 
1.20CE 

1. eooE 

1.4 COE 
1.0CCE 
l.OOCE 
l.OCCE 
l.OOCE 
i.OCCE 
1.4CCE 
1.8CCE 
1.2 COE 
1.2CUE 

1.800E 
1.8C0E 
1.6CCE 
1 . 4CCfc 

2. C0GE 
l.OCOE 
l.OOCE 
1.4CCE 
i.OCCE 
l.OCCE 
1.4CCE 
1.4CCE 
1.4CCE 
1.4CCE 
1.20CE 
1.2CCE 
l.OCCE 

i.eccE 

1.2CCE 

l.OCCE 

1.6CCE 

1.2C0E 

1.6CCE 

1.40CE 

2.000E 

1.6CCE 

1. CCCE 
1.6CCE 
1.4CCE 

2. C0CE 
1.60CE 
1.4CCE 
2.CCC6 
2.CCCE 
i.OCCE 
l.OOOE 


3.000E  ' 
5.000E  i 
1.448E 
C.C 

1.448E 

C.C 

1.4485 

3.00CE 

7.181E 

1.448E 

4. 5006 

5.000E 

C.O 

7. 18  IE 
4.500E 
4.500E 
3.000b 
3.000E 

4.500E 

5.000E 

3.000E 

7.181E 

S.0C06 

3.000E 

7.1816 

4.500E 

4.500E 

3.000E 

C.C 

7.181E 

1.448E 

5.000E 

C.O 

7.181E 

C.C 

C.C 

4.50CE 
7. 18  IE 
7. 18  IE 
4.5CQf 
1.448E 
C.O 

7.181E 

C.O 

7.1C1E 

4.50GE 

3.000b 

3.000E 

7.181b 

3.00CE 

4.500E 

C.O 

4.50CE 

S.OOCE 


2.903E 
3.204E 
2.903E 
3.505E 
2.602E 
3.S05E 
3.204b 
2.602E 
3.204E 
2.602E 
2.602  E 
2.602c 
2.903  E 
2.903E 
1.699E 
2 .30  IE 
3.806E 
2.602E 

2.602E 
2.602E 
2.903E 
3.505E 
2.301E 
3.505E 
4.107E 
2.903E 
3.505E 
2.602  E 
2.301E 
2. 301 E 
3.204E 
2.903E 
2.000E 
2.000E 
2.000E 
2 • 30  IE 

2.602E 
2.000E 
3.2046 
3.5056 
3. 204  E 
3.806E 
2.903E 
1 . 699E 
3.505E 
4.107E 
4.107E 
2.903E 
1.699E 
3.204E 
2.903E 
2 .0006 
3.806E 
3.8066 


TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

T6E227 

TE6227 

TEE227 

TEE22 1 

TEE227 

TEE227 

TEE227 

TEE227 

T6E227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

7EE227 

TEE227 

T EE2c  7 

TEE227 

TEE227 

T6E227 

TEE227 

TEE227 

TEE227 

TEE227 

T6E227 

TEt227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TbE227 

7 EE227 

T ££22  7 

TEE227 

TEE227 

TEE227 

7EE227 

TEE227 

TEE227 

TEE227 

TEE227 

TEE227 

TE6227 

TEE227 

TEE227 

TEE227 

T6E227 

T6E227 

TEE227 
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I.C29E  02, 

2.C0CE  00, 

1.44GE  01, 

1.170E  02, 

1.6CCE  00, 

4.5006  01, 

9.988E  01, 

1.6CCE  00, 

4.500E  01, 

9.637E  01, 

1.4C0E  00, 

3.000E  01, 

7.C29E  01, 

1.2CCE  00, 

9.000E  Cl, 

8.949E  01, 

1.6CCE  00, 

9.0006  01, 

1.186E  02, 

1.60CE  00, 

9.000E  01, 

5.428E  01, 

1.2CCE  GC, 

C.C  . 

1.037E  02, 

2.CCCE  0C, 

C.O  , 

1.072E  02, 

2.CCCE  00, 

7. 1816  00, 

3.886E  01, 

l.OCCE  00, 

1.4486  01, 

1.136E  02, 

1.6CCE  00, 

1.448E  01, 

7.649E  01, 

1.4CC6  00, 

1.448E  01, 

1*  198E  02, 

1.8CC6  CC, 

4.5UGE  01, 

6.428E  01, 

1.2CCE  CC, 

9.C0CE  01, 

5.8266  01, 

1.200E  00, 

9.000E  01, 

4.C93E  01, 

l.OCOE  OC, 

3.000E  01, 

5.257E  01, 

1.6CCE  00, 

3.000E  01, 

DATA  A26  / 

7. 8566  01, 

1.4CCE  OC, 

3.000E  01, 

8.145E  01, 

1.4CCE  00, 

9.C00E  01, 

8.942^  -01, 

1. 2CCE  CC, 

C.O  , 

£.2976  01, 

1.20CE  OC, 

7.181E  CC, 

3 

7.727E  Cl, 

1.20CE  00, 

1.448E  01, 

3 

7.6C8E  01, 

1.CCC6  CG, 

3-.000E  01, 

7 

7.7426  01, 

l.CCCE  CC, 

4.500E  01, 

3 

9. 6276  01, 

i.eccE  oc, 

C.O  , 

9 

9.981L  Cl, 

1.8CCE  CO, 

7. 18 IE  00, 

* 

1 • 07 16  02, 

1.6CC6  OC, 

1.448E  01, 

* 

1.C13E  02, 

1.8CCE  0% 

1.448E  01, 

* 

5.589E  Cl, 

l.OCCE  CC, 

9.000E  Cl, 

t 

7 .90  IE  01, 

l.OCCE  CC, 

9.000E  01, 

* 

6.37CE  01. 

l.OCCE  CC, 

C.C  . 

$ 

8.488E  01, 

2.0CCE  CC, 

1.448E  01, 

* 

5. 0896  01, 

l.OCCE  CO, 

1.4486  01, 

* 

1.109E  02, 

1.8CCE  CC, 

7 . 18  IE  00, 

* 

8.347E  Cl, 

1.4CCE  CC, 

C.C  , 

CATA  A27  / 

1 

8. 5916  01, 

1.4CCE  CC, 

4.500E  01, 

2 

8.226E  01, 

2.0C0E  00, 

4.5CC6  01, 

3 

1. 16  IE  02, 

2.C00E  CC, 

3.C0CE  01, 

4 

8.227E  01, 

1.2CCE  CC, 

9.00CE  01, 

5 

7.388E  Cl, 

1.4CCE  OC, 

4.500E  01, 

0 

9.23SE  Cl, 

1.2CCE  00, 

1.4486  01, 

7 

7.C99E  01, 

1.6CCE  CC, 

7.1616  00, 

8 

9 .446E  01, 

1.2CCE  OC, 

3.000E  01, 

9 

9.580E  01. 

1.2CCE  CC, 

4.500E  01, 

* 

7.246E  01, 

1.6CCE  CC, 

1.446E  Cl, 

* 

8.3C3E  Cl, 

1.6CCE  OC, 

7.181E  00, 

* 

7.453E  01, 

1.6CCE  OC, 

3.000E  01, 

* 

7.799S  01, 

l.OCCE  OC, 

1.448E  01, 

* 

6.02  IE  Cl, 

l.OCCE  CC, 

4.500E  01, 

* 

9.739E  01, 

1.2CCE  CC, 

9.000E  01, 

* 

1.C26E  02, 

1.6CCE  CC, 

C.C-  , 

* 

6.19CE  01, 

l.OCCE  OC, 

9.C0CE  01, 

« 

8.589E  01, 

2.CCCE  CC, 

C.O  , 

N = 1296 


2.903E  00, 

TEE227 

344  S 

1.699E  00, 

T6E227 

345  ■ 

2.9036  00, 

7EE227 

346  i 

2.6026  00, 

TEE227 

347  ' . 1 

3.5C5E  00, 

TEE227 

348  • 

3.5056  00, 

TEE227 

349  ; 1 

1.699E  00, 

TEE227 

35C  ! i 

3.806E  00, 

TE6227 

351  5 | 

2.6026  00, 

TEE227 

352  : • | 

2.6026  00, 

TEE227 

35 3 ' % 

4. IQ7E  00, 

7EE227 

354  1 

I* 

1.699E  00, 

TE6227 

355  ■ 

3.305E  00, 

TE6227 

356  | 

2.000E  00, 

TEE227 

357  , i 

3.806E  00, 

TEE227 

358  i f 

4.107E  00, 

TEE227 

359  ! '* 

4.107E  OC, 

T6E227 

36  C i ^ 

3.204E  OC/ 

T Ef  227 

3c  l 1 | 

TEE227 

3o2  ' j 

3.5056  00, 

TEE227 

363  ’ '<§ 

3.505E  00, 

TEE227 

3C4  ,$ 

1.6996  00, 

TEE227 

365  '.f 

1.6996  00, 

TEE227 

366  ‘1 

2.903E  00, 

T6E227 

367  f 

2.3016  00, 

TEC227 

368  • J 

2. 3016  00, 

TE6227 

364 

2.9036  00, 

TEE227 

37C  :| 

2.9036  00, 

TEE227 

371 

2.6026  00, 

TE6227 

372  . 1 

2.9036  00, 

7 6E227 

373  ! . | 

3.505E  00, 

TEE227 

374  |-  | 

2. 301 E OC, 

T 61:227 

375  ! .% 

2.6026  00, 

1 6 622  7 

376  ; . H 

3.8066  00, 

7EF.227 

377  1 'T 

•i 

3.505E  OC, 

1 l 622  7 

376  J 

2.3016  00, 

T 6622  7 

379  =• 

2.9036  00/ 

TEE227 

3£C 

TEE227 

381  • 1 

3.2046  00, 

TEE227 

382  "! 

4.1076  00, 

TEE227 

38  2 ,i 

2.3016  00, 

TEE227 

384  4. 

2.9036  00, 

T6E227 

385  % 

3. 8066  00, 

T F £22 7 

386 

2-0006  00, 

T6E227 

387 

4.1076  OC, 

T6E227 

388  •.# 

2 .000  6 00, 

T6E227 

335  ‘ # 

2.0006  00, 

TEC227 

39c,-  si 

4.1076  00, 

T6E227 

39i , la 

3.5056  00, 

T E E 227 

352  K ^ 

4.1076  00, 

T6E227 

393  v.':  i'M 

'Lr'  i 

2.0006  OC, 

T 6622  7 

354 

3. 2046  00, 

T 662^7 

2.0006  00, 

TEE227 

356 

2.3016  00, 

TEE227 

3^7vfi| 

3.204 E 00, 

■ TFE227 

3.5056  00/ 

T 6622  7 

399 

TEE227 

4,00 

"k:«  Jl',1  < 


'■X'WPI." 
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FUNCTION  TERP2(ZX,ZY,X,Y,F2,NX,NT«PX,MY,II,JJ) 


S00941  TERP2  PS-472  LI. 

LAGRANGI AN  INTERPOLATION 
DIMENSION  X<1),  Y ( I ) . F2(MX,MY) 

N * II  ♦ NX 
M - JJ  ♦ NY 
TERP2  = C. 

DC  3 I = II,  N 
PX  = 1. 

DC  l K = II,  N 

I F ( K .EQ.  I i GO  TG  1 

PX  = (PX/IXUJ  - X ( K) ) J * (ZX  - XCI 

CONTINUE 

DC  3 J = JJ,  M 

PY  = 1. 

DC  2 K = JJ,  M 

IFIK  .EQ.  J )GO  TO  2 

PY  = (PY/IYI J>  - Y (KJ ) ) * (ZY  - Y ( I 

CCNTINUE 

TERP2  = TERP2  ♦ PY*PX*F2<l,Jl 

RETURN 

END 


661013  7094 
INDEPENDENT  VARIABLES 


TG  1 

- X(KJJJ*(ZX  - X ( K ) ) 


TO  2 

- Y (KJ ) ) * (ZY  - Y < K) J 
PY*PX*F2(1,J» 


TERP2 
TERP2 
TERP2 
TERP2 
TERP2 
TERP2 
TERP2 
TERP2 
TERP2 
TERP2 
TERP2 
TERP^ 
T ERP2 
TERP2 
TfcRP2 
TERP2 
TERP2 
TERP2 
TERP2 
TERP2 
TERP2 
TERP2 


ifeil 

mwmM 


FUNCTION  TERP3<X1,YI,Z1,X,Y,Z,F3,NX,NY,NZ 

»M.X,MY,MZ,l,J»K) 

TERP3 

2 

c 

S00942  TERP3  PS-472  LI,  PAUL 

661013  7094 

6600 

TERP3 

3 

c 

LAGRANGIAN  IN7ERPCLAT ICN  --  3 

INDEPENDENT  VARIABLES 

TERP3 

4 

DIMENSION  X(l),  Y ( 1) • Z(1I,  F3IMX,MY,MZ> 

TERP3 

5 

c 

CALCULATE  LOOP  ENDS 

TERP3 

6 

NI  = I ♦ NX 

TERP3 

7 

N J = J ♦ NY 

TERP3 

e 

NK  = K + NZ 

TERP3 

9 

c 

TRIPLE  SUMMATION 

TERP3 

10 

TERP3  = 0. 

TERP3 

11 

DC  4 LI  = It  NI 

TERP3 

12 

PX  = I. 

TERP3 

13 

c 

X PROOUCT 

TERP3 

14 

CC  1 L = I,  NI 

TERP3 

15 

IFIL  .EQ.  LUGO  TC  1 

. 

TERP3 

lfc 

PX  = (PX/IXILIJ  - X<L>>)*(X1  - X <L ) ) 

TERP3 

17 

1 

CCNTINUE 

TERP3 

18 

CC  4 LJ  = J,  NJ 

TERP3 

19 

PY  = l. 

TERP3 

2C 

c 

Y PRODUCT 

TERP3 

21 

DO  2 L = J,  NJ 

TERP3 

22 

IFIL  .EQ.  LJIGO  TC  2 

TERP3 

23 

PY  = {PY/IY(LJ)  - Y(L)))*IY1  - Y(L)» 

TERP3 

24 

2 

CCNTINUE 

TERP3 

25 

OG  4 LK  - K,  NK 

TERP3 

26 

PZ  = 1. 

TERP3 

27 

c 

Z PRODUCT 

TERP3 

28 

CC  3 L = K,  NK 

TEKP3 

29 

IFIL  .EQ.  LKIGC  TC  3 

TERP3 

30 

PZ  = (PZ/IZILK)  - Z ( L 1 } ) * ( Z1  - Z(l>) 

TERP3 

31 

3 

CCNTINUE 

TEKP3 

32 

c 

SUM 

TERP3 

33 

4 

TERP3  = TERP3  ♦ P X*P Y*PZ*F3 ( L I , L J , LK I 

TERP3 

34 

RETURN 

TERP3 

35 

END 

TEKP3 

36 

' « .1' 
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SUBROUTINE  TONCOR I SPL ,CCRR , FREQ , IBP ) 

TONCOR  GRABLE  * E.L.  CCTC8ER  1989 

ABSTRACT  TONCCR  IS  A CRIVER  FCR  ACOUSTICS  SUBROUTINES 
THAT  CALCULATE  A TONE  CORRECTION  FRGM  A SOUND  LEVEL 
SPECTRUM.  THE  SLOPE  METHOD  (DEFINED  IN  REF.  I)  IS  USED 
TO  FIND  TONAL  IRREGULARITIES , THEN  THESE  ARE  APPLIED  TC 
THE  ISO/FAA  CURVES  (ALSC  IN  REF.  1)  TO  FIND  TONE  COR- 
RECTIONS. THE  MAXIMUM  CF  THESE  IS  RETURNEC  AS  ThE  TONE 
CORRECTION  SOUGHT. 

REFERENCE  1.  DEPARTMENT  CF  TPANSPCRTAT ION , FEOERAL  AVIATION 
REGULATIONS,  TITLE  14,  CHAPTER  1,  PART  36  *♦ 

NOISE  STANCARCS-  AIRCRAFT  TYPE  CERTIFICATION  ** 
FEOERAL  AVIATICN  ADMINISTRATION,  NOV.  3,  19o9. 


INPUT 


OUTPUT 


SPL  = AN  ARRAY  CF  SCUND  PRESSURE  LEVELS  CORRESPONDING 
TO  24  1/3-CCTAVE  BANCS  *ITh  CENTER  FREQUENCY  CF 
FIRST  BANC  AT  5C  CPS. 

COKR=  THE  TCNE  CORRECTION  FCR  ThE  SPECTRUM. 

FREC=  CENTER  FREQUENCY  CF  THE  BANC  CORRESPONDING  TO 
THE  TCNE  CORRECTION. 

IRR  = THE  BANO  NUMBER  CCRRESPCNCING  TC  THfc  TCNE 
CORRECTION. 


LOCAL  VARIABLES 

F = AN  ARRAY  CF  TONAL  IRREGULARITIES 

fA  - an  ARRAY  OF  CENTER  FREQUENCIES 

FC  - AN  ARRAY  CF  TONAL  CORRECTIONS 

N . NUMBER  CF  FREQUENCY  BANCS  (24) 

DIMENSION  SPL (24,17) ,FA(24) ,F(24) ,FC(24) ,CCRP(17) 

OATA  FA  / 50.  ,63.  ,60.  , ICO.  ,125.  ,160.  ,200.  ,250.,  315„, 

1400., 5C0.,63C. , 8CC. , 1 COO. ,125C. ,1600. ,2000. , 2500. , 3150. , 4000 
25C0O.,6  200., 0OOC. ,1CCCC.  / ,N/Z4/ 

00  30  JJ=  l , 1 7 

CALL  T0NES3(SPL(1,JJ),F) 

CALL  FAAIS0(F,FA,N,FC) 

IRR  = 1 
CCRR ( JJ ) =G. 

DC  20  1=2,24 

IF  ( FC( I ) .LE.CORR(JJ) ) GC  TO  20 
IRR  = I 

C0RR1JJ)  = FC ( I ) 

2C  CONTINUE 

FREQ  = FAIIRR) 

20  CONTINUE 
RETURN 
END 


TCNCOK 

TONCOR 

TLNCOR 

TCNCOR 

TONCOR 

TONCOR 

TCNCOR 

TCNCuR 

TCNCOR 

TCNCOR 

TCNCOR 

TONCUR 

TCNCOR 

TCNCOR 

TCNCOR 

TONCOR 

TCNCOR 

TCNCOR 

TONCOR 

TCNCUR 

TCNCOR 

TC'NCOR 

TCNCUR 

TCNCOR 

TCNCUR 

TCNCUR 

TCNCUR 

TCNCUR 

TCNCOK 

TCNCOR 

TONCOR 

TCNCOR 

TCNCUR 

TONCOR 

TCNCUR 

TCNCUR 

TCNCOR 

TCNUR 

TCNCUR 

TONCOR 

TCNCuR 

TCNCOK 

TONCOR 

TCnCOR 

TCNCOR 

TCNCOR 

TCNCOR 

TONCOR 

TCNCUR 


-?&r  - - j 
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SUBROUTINE  T0NE33 1 SPL  ,F ) TONES3 


C GRABLEt  E.  1.  TCNFS3  7COIQ8  TONES3 

c ABSTRACT  THE  SLOPE  METHCO  CF  TONE  IDENTIFICATION  AS  PRESENTED  TONES3 

C IN  REFERENCE  1 IS  USED  TO  FIND  TONAL  IRREGULARITIES  TONES3 

C IN  24  GNE-JH'RC  CCTAVE  BANCS.  T0NES3 

C REFERENCE  1.  DEPARTMENT  CF  TRANSPORTATION,  FEDLksl  AVIATION  1CNES3 

C REGULATIONS,  TITLE  14,  CHAPTER  I,  PART  36  **  TONES3 

C NOISE  STANDARDS-  AIRCRAFT  TYPE  CERTIFICATION  **  TONES 3 

C FEDERAL  AVIATION  ADMINISTRATION,  NOV.  3,  1969.  TONES  3 

C TONES  3 

C INPUT*  SPL  ARRAY  IS  24  ELEMENT  ARRAY  CF  SOUND  PRESSURE  LEVELS  TONES3 

C IN  24  ONE-THIRD  CCTAVE  BANCS  PREFERRED  OCTAVES)  TONES3 

C OUTPUT*  F ARRAY  IS  24  ELEMENT  ARRAY  CF  TONAL  IRREGULARITIES.  TONES3 

C TONES3 

C LOCAL  VARIABLES  MEANING  TONES3 

C S FIRST  CRCEP  SLOPES  TONES 3 

C SPLP  AVERAGED  SCLND  PRESSURE  LEVELS  TUNES 3 

C TON  cS3 

C TONES3 

C T ONES  3 

C REV  I S I ED  ON  MARCH  10,  1971  BY  J.  L.  CRAIG  T0NES3 

C TONES  3 


C THE  STEP  4 CALCULATIONS  HA'E  EEEN  MODIFIED  TO  ALTER  CALCULATION  TONESi 
C OF  SPLPR I ME ( 23 ) . HERE-lC-rCRE  IF  SPL (23 ) HAD  BEEN  CIRCLED  AS  TONES 3 
C PER  CONDITION  B CF  STEP  3,  SPLFRI ME  123 ) NAS  NCT  CALCULATED  AS  TONES? 
C THE  AVERAGE  GF  SPL  1 22 ) AND  SFLC24)  AS  FEP  PARAGRAPH  B OF  STEP  TONES? 


C 4.  THIS  PARAGRAPH  IS  NCR  SATISFIED.  TCNES3 

C TONES  3 

DIMENSION  SPL  ( 24) , S ( 24 ) ,SPLP (24) »F (24)  TONES  3 

C STEP  ONE  TEJNES3 

UG  20  1=4,24  T0NES3 

S(I)  = SPUD  - SPL  ( I—  I ) TUNES  3 

2C  CONTINUE  T ONE S3 

C STEPS  TV«0  ANO  FOUR  TCNES3 

SPLP ( 3 ) = SPL t 3 ) TONES  3 

SPLP l 4 ) = SPL ( 4 ) TONES  3 


DC!  50  1 = 5,24 
SPLP  ( I ) = SPUI) 

IF  i ABS ( S ( 1 1 — S < I-i)).LE.5.)  GC  TC  5C 

STEPS  THREE  AND  FCUR 

IF  ISUI  .06. 0. ) C-0  TO  4C 

IF  I I .01,23. ANO. 

* <S<  D.GI.SU-1)))  SPLP  U ) = (SFUI-IH-SPLU  + 1)  )*.5 
GO  TO  50 

4C  IF  (SCI-I).Gl.O.)  SPLP  ( I—  l ) = (SFL(l-2)  + SPL(l) )*.5 

5C  CONTINUE 

SPLP ( 24 ) = SPL l 24 ) 

IF(A8S(S(24)-SI23) ) .GT. 5. . AND. 5 ( 24 ) . GT. AMAX l (0.,S123>) ) 

* SPLP (24 ) = SPL  123 ) ♦ S(23) 

STEPS  FIVE,  SIX,  SEVEN,  ANC  EIGHT. 

F(l)  = 0. 

F ( 2 ) = 0. 

F ( 3 > = C. 

CC  60  I --4,2  3 

F ( I ) = SPL(I)  - CSPLPU-1)  ♦ SFIP(I)  + SPLP  ( 1 + D ) / 3 . 

6C  CONTINUE 

F t 24 ) = SPU24)  - SPLP  (24) 


T0NES3 
T0NES3 
TUNES  3 
TONESi 
TONES  3 
TONES 3 
TCNES3 
TCNCS3 
TONES’ 
T0NES3 
TONES’ 
T0NES3 
TON6S3 
T0NES3 
T0NES3 
TCNES3 
T0NES3 
T0NES3 
T0NES3 
T0NES3 
TGNDS3 


DC  80  1=4,24 

IF  < F ( I ) .IT . C.  ) F ( I ) = 0. 
80  CONTINUE 
RETURN 
ENC 


TUNES3 
T0NES3 
TUNES  3 
T0NES3 
T0NES3 


SLBRQUT INE  UNIFLW!  AF ,U.  V ,W , AM ACH  »RCP  , IHOP , JK.ET  A.PSI , ALP,  DLT  , 

1 GAM, ROPP, THOPP, 7HP.6T AP.TLE.PS 10, PSIOP) 

TITLE 

UNIFORM  FLOW  EFFECTS 
PURPOSE 

THIS  SUBROUTINE  COMPUTES  UNIFORM  FLOW  EFFECTS  BY  THE  FOLLOWING 
COORDINATE  TRANSFORM  FOR  SOURCE  POSITION 
COORDINATE  TRANSFORM  FOR  OBSERVER  DIRECTION  ANGLES 
SPECIAL  LEADING  EDGE  TERM 
WAVE  NUMBER  TRANSFORM 

DIRECTIVITY  ANGLE  FCR  REFERENCE  PRESSURE  OF  OlFFRACTED 
INCIDENT  AND  IMAGE  FIELDS 

INPUT  - CALL  SECUENCE 

AF  UNIT  VECTOR  IN  DIRECTION  OF  AMBIENT  FLOW 

U,V,W  UNIT  VECTORS  FOR  COORDINATE  SYSTEM  FIXED  TC  ECGE 

AMACH  AIRCRAFT  MACH  NUMBER 

ROPtTHOP  PGLAR  COORDINATES  CF  APPARENT  SOURCE  WITH  JET  FLOW 
! REMOVED 

TF.ETA  OIRECTICN  ANGLES  RELATIVE  TC  ECGE 
PSI  OBSERVER  DIRECTIVITY  ANGLE 

ALP, DLT  ENGINE  CENTERLINE  ANGLES  RELATIVE  TC  HALF  PLANE 


OUTPUT 

GAM  TRANSFORMED  WAVE  NUMBER 

RCPP  MAGNITUDE  OF  TRANSFORMED  SOURCE  POSITION 

TFOPP  PHASt  CF  TRAN SFCRMEC  SCLPCE  POSITION 

TFP, E TAP  TRANSFORMED  CBSER  PCSITICN  ANGLES 
TLE  LEADING  EDGE  TERM 

PSIO  DIRECTIVITY  ANGLES  FCR  C IFFR ACT  EC  INCIDENT  FIELD 

PSIOP  DIRECTIVITY  ANGLES  FCR  CIFFRACTEC  IMAGE  FlfcLC 

NOTE 

ALL  INPUT  AND  OUTPIT  ANGLES  ARE  IN  DEGREES 
DIMENSION  AF(3),l(3),V(3),wl3) , P ( 3 ) ♦ EL  13 ) 

CATA  DEGRAO,RAOOEG,EPS  / 1. 74532S 2 5 19 43E-2 , 57 .295 7795 13082, 1.2E-4/ 
INITIALIZATICN  CGMPUTATICNS 


TLE  = C. 

TFCPP  - THCP 
T HP  = TH 
ETAP  x ETA 
ALP  = ALP 
RCPP  * RCP 
GAM  = l. 

SINETA  = S I N ( E i A * 
COSETA  = SORT ( 1.  - 
IF  t ABS ( AMACH ) .IE. 
WAVE  NUM8ER  TRANSFORM 


DEGPAD ) 

SINETA*SINE1A) 
EPS)  GC  TC  SC 


EMV=AMACH*OOTP ( AF , V ) 
GMA2=  I ./ ( l.-FMV*EMV) 


UNIFLW 
IJNIFLW 
UNIFLh 
ONIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
ONIFLW 
UNIFLW 
UNIFLW 
UNIFLw 
UNIFLW 
ONIFLW 
UNIFLW 
UNIFLw 
UNIFLW 
ON  IFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLw 
UNIFLW 
UNIFLw 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UN  1 FL  W 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLw 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UN  IFLW 
UNIFLW 
UNIFLW 
UNIFLw 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFl.W 


CM  Wr'4 

5J  b'^ 

54  V-p 

55 

56 

57 

58  e 


“'  ” i -^v^r^  * 


&*  * <,y 


ssoggggp 


»fc5 

#11 
Mm 


c 

c 

c. 


20 

AO 


c 

c 

c 


GAM=SQRT IGMA2) 
GAM l=GAM- 1 • 


SOURCE  COORDINATE  TRANSFORM (CRIG I ML  SOURCE  VECTOR) 


CTFOP=COSITHOP*OEGRAO) 

STH0P-=SIN  ( TH0P*DEGRAD ) 

R ( 1 ) = R0P*(  SIFICP*to(l>-CTHCP*VIl)) 

R ( 2 ) - R0P*(STH0P*to(2»-CTH0P*V(2)) 

R I 3 ) = R0P*(  STHGP*M3)-CTH0P*V<3)  ) 

CCT=D0TP(R» AF) 

EL ( 1 ) = R ( l )-0GT*AF  1 1 ) 

EL ( 2 ) = RI 2)-DOT*AF(2) 

ELI  3 ) = R l 3 )-DGT*AF (3 ) 

ELMAG=  SQRTIELI  I ) *EL ( 1 ) +EL I 2 ) * EL  12 ) + EL (3  ) *EL  1 3 ) ) 

IFIELMAG.GT.G. )GG  TO  2C 

ELI  1)  = hill 

ELI  2 ) = to  I 2 ) 

cL I 3 ) = to!  3) 

GO  TO  AO 
CALL  VECNIEL) 

RID  = RI  1 )+GAM  1*  DC  T*  AF  < 1 ) 

R I 2 ) s RI 2)+GAMl*0GT*AF(2) 

K 1 2 ) = R I 3) *GAM1*DCT*AF I 3) 

TMAG=SORT(Rl  l)*RI  1 H-R <2 ) *R I 2 I *PI3) *R 1 3) 1 
COSXI  = -DOT  / RCP 

CCSXIP  = (CGSXI«-AMACH)/(l.*AMACMCCSXn 
S!NXIP=SURTI l.-COSXIP*CCSXIP) 


NEW  SOURCE  VICTOR 


RID 
R<2) 
R 13) 
0CT= 
RID 
R ( 2 ) 
R ( 3 ) 


= TMAG-MStNXIP*ELin-CCSXIP*AF(l)) 

= TMAG*(SINXIP*EL<2)-CCSXIP*AFI2) ) 
=TMAG*( SINXIP+EL (3)-CCS> IF*AF 13) ) 
DQTPIR.U) 

= RI  l)-OOT*L( 1) 

= RI 2)-DOT*U(2) 

= R(3)-00T*U(3) 

RCPP  = SQRTIR(  1)*RU)*RI2)*R(2)  + P(3)*RI3) ) 
0CT=— DOTP(R»V) 
TPCPP=ACGSIOCT/RCPP)*RAOCEG 


GBSERVER  TRANSFORM  (ORIGINAL  CBSEf«VEP  VtCTCR) 


CCSTH 
SINTF 
R I I ) = 
R I 2 ) = 
R ( 3 t = 


= COS  I TH*DEGRAG ) 

= SIN(THOOEGRAC) 

SiNETA*U( l)+COSETA*CCSTF*V 1 1 )-CC3E T A*S INTH*W( 1 ) 
SINETA*UI2)*C0SETA*CCSTH*V(2)— CCSETA*SlNTH*rf(2) 
SINETA«U(3)+CCSETA*CCSTH*V (3)-CCSETA*SINTH*W(3) 
UCT=DOTP(R,AF) 

ELI 1)=  RI I J-DOT *AF  1 1 ) 

EL ( 2 ) = R I 2 )-DOT*AF 1 2 ) 

E L ( 3 ) = R I 3 )-OOT*AF (3  ) 

6LMAG=SQRT(EL( 1 )*EL 1 1 ) ♦£ L (2 ) *EL 1 2 ) +EL 1 3 ) *EL 1 3 ) ) 
IFIELMAG.GT.G. )GO  TO  6C 
ELI 1)=— toll) 

ELI  2 ) =— to!  2) 


UN  I FL  to 
UNIFLto 
UNIFLW 
UNIFLto 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLto 
UNIFLW 
UNIFLto 
UNIFLW 
UNIFLW 
UNIFLto 
UNIFLW 
UN  I FL  to 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UN  I FL  W 
UNIFLW 
UNIFLto 
UNIFLW 
UNIFLW 
UN  I FL  W 
UNIFLW 
UNIFLW 
UNIFLW 
UN  I TL  to 
UNIFLto 
UNIFLW 
UNIFLto 
UN  I FL  to 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UN  IFLw 
UN  I FL  W 
UNIFLW 
UNIFLW 
UNIFLto 
UNIFLW 
UN  IFLW 
UNIFLW 
UNIFLto 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 
UNIFLW 


59 
fcC 
61 
62 
63 
6 A 

65 

66 

67 

68 

69 

70 

71 

72 

73 
7A 

75 

76 

77 

78 

79 
8C 
81 
82 
83 

8 A 

85 

86 

87 

88 
39 
5C 

91 

92 

93 

9 A 
9d 

96 

97 

98 

99 
ICC 
101 
I°2 
1C  3 
10A 
1C5 
1C6 
107 
100 

109 

110 

111 

112 
113 
11A 
115 


269 


o o o o o o o 


EU3>=-W(3>  UNIFLW 

GO  TO  80  UNIFLW 

60  CALL  VECN(EL)  UNIFLW 

80  COSX I =DOT  UNIFLW 

CCSXIP  = (COSXI-AMACHI/U.-CCSXI*AFACFI)  UNIFLW 

sinxip^sqrk  i.-cosxip*ccsxip)  uniflw 

UNIFLW 

NEW  VECTOR  TO  OBSERVER  UNIFLW 

UNIFLW 

Rlli  = SINXIP*ELU>+C0SXIP*AF(1)  UNIFLW 

R < 2 ) =SINXIP*EL(2)*CCSXI  P*AF  (21  UNIFLw 

R( 3 ) =SINXIP*EL(3)*C0SXIP*AF(3)  UNIFLW 

DCT=  DGTP ( R » U ) UNIFLW 

ETAP=A3IN(DOT)*RADD£G  UNIFLW 

T FP  = C . 0 UNIFLW 

ARG I = — OOTP I R , W I UNIFLW 

ARG2=  DOTP(R.V)  UNIFLW 

I F ( ( ARG1.NE.O. )-0R.(ARG2.NE.C.n THP= A I AN2 ( ARGI * ARG2I *RADDEG  UNIFLW 

UNIFLW 

CALC.  SPECIAL  LEADING  EDGE  TERF  FACTCP  AND  REFERENCE  DIRECTIVITY  UNIFLW 

ANGLES  GRAZING  BARRIER  EDGE  FOR  INCIDENT  AND  IMAGE  SIGNALS  UNIFLW 

UNIFLW 

lF(EMV.LT.O.)TLE=EMV/( 1.  ♦ AMACM  CCS?  I F ) UNIFLW 

90  SINALP  = U ( 2 J UNIFLW 

CCSALP  = SGRTU.  - SINALP*SINALF)  UNIFLW 

ARGI  = CQSALP*COSETA*COSUTHOF->CLn^OEGRADi  - SINALP*S  INET  A UNlFlw 

IF (ABS(ARGl) .GT. 1. )ARG1  = SIGN(L.  • ARG  L ) UNIFLW 

P SI0= 180. -ACCS( ARGI) ♦RAOCEG  UNIFLW 

IF  (TH  .LE.'-THOP)  GO  TC  100  UNIFLW 

PSIOP=PSIO  UN  I F«.  w 

GC  TO  200  UNIFLW 

100  ARGI  = CtlSALP*COSETA*CGS(  {ThFCtn»CEGRAC)  - S I N ALP*S INET A UNIFLw 

IF(A6StARGl).GT.l.)ARGI=SIGN(U .ARGI)  UNIFLW 

PSICP=18C.-ACOS< ARGl)*RACDEG  UNIFLW 

200  IF  (TH  .LT.  THOP)  PSIO  = PSI  UNIFLW 

C UNIFLW 

RETURN  UNIFLW 

END  UNIFLW 
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SUBROUTINE  UNI T (01 STAT , NUMBER ,SFU 


• m 
.*  1 


m 


i #/.;\- 
■ a®"2  - ■ 

ife: 

< 3;>^-' 

; Stfi'-  -“■ 
j?,'  5-  v ' 


l m£M 

V.  *.A -5*  £**.>"? 


AUTHOR 


PURPOSE 


MFTHOC 


INPUTS 


0.  F.  MELDRUM 

TO  CCNVERT  DATA  AT  ANY  GIVEN  REFERENCD  CISTANCE 
TO  AN  INDEXED  SPECTRA  AT  3.281  FEET  11  METER) 

ACCOUNT  FOR  SPHERICAL  DIVERGENCE  ANO  ATMCSHERIC 
ABSORPTIONS  A STANCARD  DAY  CONDITIONS  OF 
70  PERCENT  RELATIVE  HUMIDITY  AND  59  DEGREES  F. 


DISfAT 


NUMBER 


DISTANCE  GIVEN  FCP  THE  REFERENCED 
DA7A  (DISIANCD  PREDICTED  AT). 
NUMBER  OF  ANGLES  CP  SET  CF  SPECTRA 
TO  BE  CONVERTED. 

SPECTRA  TC  BE  CONVERTED 


VIA  CABLED  CCMMCN  GFPEC 


1/3  OCTAVE  CENTER  BAND  FREQUENCIES 


CCNVERTEC  TC  INCEXtD  SPECTRA 


OUTPUTS  SPL 

FUNCTION  SUBPRGM  ALCG1C 


CIMENSICN  C0EF(24),SPL(24,NLMBER) 


COMMON  /GFKEU/  FREQI24) 


DATA  CISTGO/3.2S1/.ISV.TCH/C/ 

I F I I SWTCH.NE .0)  GO  TC  ICC 
ISHTCH=1 

CALL  A8S0RPI 70.0,59. C, 3,24, F HE C ,CCEF1 


100  SPHER=20.0*ALOGlCIDISTAT/0ISTGC) 

00  20C  1=1,24 

ATMQS=COEF 1 1 )*(DISTAT-OISTGC) /lOCC.O 
DO  2CC  J=»l, NUMBER 

IFISPLU,  JI.NE.C.C)  SPL  (I  , J)  = SPL  1 1 , J ) 

* +SPHER+ATMCS 

2CC  CONTINUE 
RETURN 
END 


UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UN  IT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UN  1 1 
UN  IT 
UNIT 
UNIT 
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SUBROUTINE  VALUE  S IIMODE . NLS , ME  , >F  , YF  , Z ,SC  1 ,CE  , EPR , OS, 

VALUES 

4 

' X1*X2#Y1,Y2»SUM»SLNL  ,IEC  ) 

VALUES 

CGMMON/VALNL/NLST.NLFT 

VALUES 

COMMON /A SO/ SO ( 3 ) , NSL 

VALUES 

DIMENSION  SUMIl)  * !EC  U ) ,XH  l ) ,X2  < 1 ) , Y1 C1J  ,Y2  U I 

VALUES 

DIMENSION  0S(1)  ,SLNL<3) 

VALUES 

C IMENS ION  X1QI5J  ,X2Ql 5) , YIQ (5 > , Y2C <5 ) ,SUMC 15 ) .SLNLCI 3 ) , I ECCI 5) 

VALUES 

CCMMON/FL IGHT/ IMQDEQ  »XFQ»YFQ»ZC»SCIC,,DEC»EPRC 

VALUES 

COMMON/RE  SUL T/XlCtX2Q, Y1C , Y2C  ♦ SLK  ,SLNL  C , l ECC 

VALUES 

VALUES 

VALUES 

IF  IMGDE=  -1  IN  1 1 1 Al 1 2A7 ICN  CF  CENT  CUR  FRCGRAM 

VALUES 

IMCDE=  C HOLD  NO  ACTION  RETURN 

VALUES 

IMOD£=  l REAL  TIME  CR  360/67  SIMULATION 

VALUES 

1FHM0DE)  1000»  103C*  1C3C 

VALUES 

100C 

CONTINUE 

VALUES 

J.  JK  = 0 

VALUES 

00  1001  I « l » 3 

VAU.ES 

f F( DS ( I ) .LT • 1.0)60  TO  ICOl 

VALUES 

s o ( i )=osm 

VALUES 

JJK= JJK+1 

VALUES 

1001 

CGNT  INUE 

VALUES 

NSL=JJK 

VALUES 

102C 

CONTINUE 

VALUES 

NLST  =NLS 

VALUES 

NLFT  =NLF 

VALUES 

CALL  TEE 227 ( I MODE  » M.N) 

VALUES 

RETURN 

VALUES 

103C 

CONTINUE 

VALUES 

I MCDEQ=  IMGGE 

VALUES 

XFQ=XF 

VALUES 

YFO=YF 

VALUES 

IQ-l 

VALUES 

SC  IQ  = SC I 

VALUES 

OEQ=DE 

VALUES 

EPRO  -ERR 

VALUcS 

CALL  VALUE2 

VALUES 

DC  1028  I =NLS»NLF 

VALUES 

Xli I)=X1Q( I) 

VALUES 

X2 ( I )=X2Q( I ) 

VALUES 

Y l ( I ) = V IQI I j 

VALUES 

Y2(  n = Y20(I) 

VALUES 

SUM! 1 ) = SUMQ< I) 

VALUES 

I EC( I )=1ECQI I) 

VALUES 

1028 

CONTINUE 

VALUES 

OC  1029  1=1, NSL 

VALUES 

IC29 

SLNL ( I ) =SLNLC< I ) 

VALUES 

RETURN 

VALUES 

ENC 

values 

i 


3 

5 

6 

7 

8 
9 

1C 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


i 
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SUBROUTINE  VOIM ( A ARRAY, BARR A V ,NE FR ,NL , NLRC, NALFA , NLS ,NLF ) 

THIS  ROUTINE  ASSURES  THAT  THE  AIRCRAFT  IS  FLYING  IN  THE  (X,Y,2 
COORDINATE  SYSTEM.  THE  POSITIONS  (ONE  TO  Tht  RIGHT  AND  ONE  TC 
THE  LEFT  OF  THE  AIRCRAFT  IN  THE  U,V  SYSTEM)  GF  THE  INTERSECT  10 
OF  THE  CONTOUR  ARE  CALCULATED.  THE  CCCRD I NAT  ES  CF  THESE  TWO  PO 
RELATIVE  TO  THE  AIRCRAFT  ARE  TRANSFORMED  INTO  THE  IX,Y,Z)  SYST 


REVISED 


)Y  D.G.  DUNN  (17  JLN  1974) 

ERROR  CODE  FOR  EACH  PARTICULAR  CCMCUR 
I EC  LT  0 INDICATES  NC.  ERROR 

IEC  EQ  0 INDICATES  CCNTCLR  HAS  CLCSED 

I EC  GT  0 INDICATES  SINGULARITY  CONDITION  EXISTS 


ASSUMPTIONS 

-SC  LT 
0 LT 
RPD  ...  RADI 
OPR  ...  OEGR 


C LT  DE  LT  SO  I.E.  CCSIGE)  GT  ZERO 

LT  SCI  LT  180  ANO  CCS(CE)  OCES  NCT  EQUAL  SCI 
RADIANS  PER  DEGREE  ( 1.74532S252E-2) 

OEGREES  PER  RADIAN  (57.2S577S5  ) 


DIMENSION  SUM(t>)  ,IEC(5),UI5)  , V ( 5 ) ,X1(5) . X2 < 5 ) , Y1 ( 5i , Y2 ( 5 ) 
DIMENSION  U2(5),  V2<5),  SAX<5> 

CCMMQN/ASC/SO( 3) ,NSL 

CGMMCN/CONTNT/AEPR  (6)  ,ALRC(S)  , A A L-F  A ( 6 } 

COMMON/FLIGHT/ IMOOE, XF,YF,Z,SCI ,OS,EPR 
COMMON/RESLLT/X1,X2,YI,Y2.SLN ,SLNL»IEC 

DIMENSION  A ARRAY ( NLRGf  NA  LFA  tNEFR) t BARR AY (NEPR  , NALFA, NL ) 
DIMENSION  SLNL (3) »SUMX ( 5 ) 

DOUBLE  PRECISION  SUMX 


DATA  CONSTANTS 
DATA  10,  II,  12  /C» l ,2/ 

DATA  INOX,  MAXIT,  EPS2  , U,  V,  SAX  /I  , 10 , 1 . 2E-5  , 10*0.  , 3*45.0/ 

CAT A DPR, RP D, ON E,ZERC,P5, EPS, HI, H2 .H3/57.29577S5 ,0.01745329252 , 
l l.C, C.0,0.5, l.E-4,9C.C,160.G,36C.C/ 

GO  TO  1360 
ENTRY  RESTRT 
I01C  INOX  = II 

DC  1020  1=1, NL 

SLM< I)  = ZEKC 
SLMX(I)  •-  ZERO 
I EC  I I ) = -I  l 

102C  CONTINUE 

GC  TO  1 36C 
ENTRY  VALUE 2 
I03C  CONTINUE 

CO  ICAO  I =NLS , NLF 
IC4C  I EC(  I ) = -II 

IF  ( INOX  .GT.  II)  GO  TC  1C6C 
OG  1050  I =NLS»NLF 
SLM(I)  = ZERO 
SLMX(I)  = ZERU 
U2( I ) = ZERU 

V2( I ) = ZERO 

I05C  CONTINUE 
X S=XF 


'•■Ay  x 


•ty&h! 1‘ 


-,  • - ■ ■ • r-r?^f  ’ ' 

* JS-'  ^.** 


ft 


W . 


fattr 1 -V’ 

fts  ; 

fev \ 

fe-;  ■ 
§&<£• 
^SVA  ' = 


YS=YF 

ZO=Z 

ST  = ZERO 
CT  = ONE 

REDUCE  ANGLES  IDE, SCI) 
1060  SC  1 = AM00 1 SC  I »H3 ) 


C 

c 


TC  APFRCPPIATE  CUACPANTS 


SCI=ABS(SCI-H3*FLGAT(IFIXISCI /H2  ) ) ) 
0E=AMQD{ OE  , H3 ) 

OE=DE-rF3*FLOAT(  IFIXI0E/H2)) 

IF  (ABS(OE)-Hl)  1C8C,1C80,1C7C 
RESTRICTION  OF  RANGE  TEST  C-N  DE 
107C  CE=0E—  S IGN l H2 *D£ ) 

SC I = h2- SC  I 

icec  A 1=SC I*RPD 
A2=D£*RPD 
A3  =A 1-A2 
A 2 REPRESENTS 

A3T=ABS(ABSI A3)-1.57C796)-EPS 
1.5707963267949  A REPRESENTATION  CF  PI/2 
IF  ( A 3T  ) 11C0,11CC,  IC5C 

RESTRICTION  OF  RANGE 
1050  TA3=TAN( A3) 

OF  SCI-OE 


TANGENT 
1100  SA2=S  IN ( A2 ) 

SINE  OF  OE 
SA2S=SA2*SA2 

SINE  SOUARED  OE 
CA2S=CNE-SA2S 

COSINE  SQUARED  DE 
CA2=SQRT (CA2S) 

C A l = Ct!S  ( A 1 ) 

C A 1S=CA l*CA 1 


ZS=Z*Z 
DX  = 


XF  - XS 
DY  = YF  - YS 
DZ  = Z - ZO 
CL  = DX*0X  ♦ DY*DY 
CV  = . DC  ♦ DZ*DZ 
IF  (OV  .LE.  ZERO  GC  TC  11C1 

CA4  = SGRTIDU  / OV) 

GC  TO  1102 
llCl  CA4  = CNF 

11C2  ZE  = Z t CA4 
ZES=ZE*ZE 


OBTAIN  THE  NOISE  LEVEL  AT  OISTANCE  SD  AND  AT  ALTITUCE  Z 
DC  1120  1=1, NSL 
ALPHA1=ATANIZE/S0CI) )*0PR 
SLLRO  = P5  * ALOG 1C ( ZE S ♦ SDII)*SD11I) 

SLNLII)  = TBLU3 ( SLLRO , ALPHA1  , EFR,  ALRC  , 

* II,  II,  II,  NLRC,  NALFA,  NEPP,  NLRG,  NALFA, 

112C  CGNTINUE 
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AALFA, 

NEPRI 


AEPR,  AARRAY, 


V01M 
VDIM 
VO  IM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VO  IM 
VDIM 
VDIM 
VDIM 
VDIM 
VCIM 
VDIM 
VDIM 
VDIM 
VDIM 
VCIM 
VDIM 
VDIM 
VDIM 
VDIM 
VCIM 
VDIM 
VCIM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VCIM 
VDIM 
VDIM 
VDIM 
VDIM 

VDIM 

VDIM 

VDIM 

VDIM 

VDIM 

VDIM 

VDIM 

VCIM 

VDIM 

VDIM 

VCIM 

VDIM 


59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 
75 
8C 
81 
82 

83 

84 
35 
86 

87 

88 

89  . 

90  \ 

91  1 

92 

93 ; 

94  ' 

95  : 

96  ' 
97? 

98  : 

99  , 
100 
1C1 ; 
102 
103; 

104 

105 
106/ 
107> 
1C8- 
109 
110? 

111 

112 
113 
114; 
115? 


- *82 


"^T^=  *“-  * 

' 1'^Vv'  ^'*  ’ 
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C OBTAIN  QUADRATIC  EQUATION  CGEFICIEMS  <A,B)  WHICH  DQ  \ 

C NOT  VARY  FOR  EACH  NOISE  CONTCURIJ) 

A-CA2S-CA IS 
B^2.*IZ*SA2*CA2) 

CC=Z  S* l SA2S-CA IS) 

IF  (A)  1140,1130,1140 

1130  IF  IB)  1150,1160,1150 
1140  P1=B/(A*A) 

P1S=P1*P1 
IP  = -II 
GO  TO  1170 
1150  IP  = 10 

GO  TO  1170 
1 16C  IP  = II 

C 

C OBTAIN  SINE  AND  CC5INE  CF  FLIGHT  VECTOR  FOR  TRANSFORMATION 
C OF  COORDINATE  (U,V»  TO  IX, Y, 2) 

1170  CS  = SQRTiOUl 

IF  IDS)  11*30, use, IJ.BC 
1 1 8 C S T=- ( DX/U  S ) 

CT=DY/DS 

C 

C ITERATION  FOR  EACH  CONTOLR(J) 

C 

1190  CO  1340  J = NLS.NLF 

C 

C ITERATION  INVOLVING  THE  ELEVATION  ANGLE  ISA  = ALPHA)  WHICH  IS  A 
C FUNCTION  OF  THE  AIRPLANE  AL1ITLDE  ANC  RANGE  FOR  A SPECIFIED  NCISE 
C CONTOUR. 

C CCOE  USES  WEGSTE INS  SECANT  ITERATION  SCFENE  EXTRACTED  FRCM  SU6R.  RTWI 
C REF...  IBM  SYS/360  SCIENTIFIC  SUBROUTINE  PACKAGE,  VER.I1I, 

C H20-0166-5,  1568 , PP.  215-216 

OX  = S A X ( J I 
I = -II 
K = 12 


C 

C 


c 

c 


FIRST  FUNCTION  EVALUATION 

1C  RO  = 10.** TBLU2 ( EPR , DX,  AEPR,  AALFA,  B ARR AY ( 1 , l , J ) , 1 1 , 1 1 , NtPR, 

* NALFA,  NEPR,  NALFA) 

IF  (RC  - ZE)  2 C,  20,  30 
20  SA  = I DX  + HI)  * P 5 
GG  TO  40 

30  SA  = DPR  * ASIMZE  / RC) 

40  IF  II)  50,  60,  12C 
50  OU  * SA  - DX 

IF  IABSIOU)  - EPS2  * AB S ( SA ) ) 

55  DV  = -OU 

OX  = SA 

I = 10 

SECONO  FUNCTION  EVALUATION 
GO  TO  iO 

60  OY  = OX  - SA 

I = II 

IF  IABS1DY)  - P.S2  * ABS(SA)  ) 


140 , 140,  55 


140 , 14C,  60 


VC  IM 
VDIM 
VO  I M 
VDIM 
VDIM 
VDIM 
VC  IM 
VCIM 
VDIM 
VDIM 
VDIM 
VDIM 
VCIM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VCIM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VDIM 
VCIM 
VDIM 
VDIM 
VDIM 
VDIM 
VCIM 
VDIM 
VDIM 
VDIM 
VCIM 
VC  IM 
VDIM 
VCIM 
VCIM 
VDIM 
VDIM 
VCIM 
VCIM 
VDIM 
VCIM 
VDIM 
VDIM 
VDIM 
VCIM 
VCIM 
VCIM 
VCIM 
VDIM 
VCIM 
VCIM 
VDIM 
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C 

C Tt- 


K = K 4 11 

IF  IK  - MAXI T ) 9C,  90,  140 

IF  (DY)  100,  14C,  ICC 
0V  = 0V  / DY  - CNE 
IF  ( 0 V ) 110,  140,  11C 

01  * DU  / OV 

OX  = OX  + DU 

DV  = OY 

IRC  TO  htAXlT  FUNCTION  EVALUATIONS 
GO  TO  10 
CY  = DX  - SA 

CA  = 6PS2  * ABSIDX) 

IF  UBS(DU)  - DA ) 13C,  130,  80 

IF  (ABS(DY)  - 1C.*DAJ  14C,  14C,  80 
SAX(J)  =•  SA 
RGS  =.  RC  * RO 
'•S  = ROS  - ZE  S 

EST  FOR  PROPER  RANGE  OF  L SGIAREC*  (IF  CCNTG 
IF  ILS)  1230,  123C,  1260 
U( J I =ZERO 
V<J)=ZERO 
I EC ( J ) = IC 

IF  (ABSICA4*0Z)  .LE.  EPS*RC)  GC  IC  132C 
DV  = -DS  * (2  - (KC/CA4I)  / D2  ' 

IF  (ABS(OV)  .LT.  DSI  VC J)  - CV  ' 

IFIA3T)  1320, 1320, 124C 

TE5T  TO  SEE  IF  RADIATION  DIRECIICN  IS  STRAIGHT 
VIJ)  = VIJ)  4 RC  / (CA4  * TA3 ) 

GG  TO  1320 
UJ)  = SORTIOS) 

C=-US*C*-  CC 

IF  UP)  270,  13C0,  1310 

P2S=P  1 S--C  /A 

IF  (P2S)  1280, 12«C, 1290 

TEST  FOR  NOISE  CCN'E  FORMING  AN  ELLIPSE  NOT 

INTERSECTING  THE  SIDELINE 

P2S=-P2S 

IF(P2S-EPS*P IS) 1290,1290,1285 
IECIJ)  = ll 
GO  TO  1 33C 
P2=SIGN(SC|RT<P2S),CA1) 

VIJ )=P14P2 
GO  TO  1320 
VI J)=C/8 
GO  TO  1320 
V ( J 1 =ZERG 
LST=U(J)*ST 
UCT-=U  I J I *CT 
OU=XF-V< J)*ST 
CV-=YF4V(  J)*CT 

TRANSFORMATION  GF  COGRD I NA  TE  S I L , V >,  IC  IX,  Y) 

XII J)=0U4UCT 
X2I J )=DU-UCT 
YUJ)=0V4LSI 
Y2I J l=OV-UST 


IIP  CCNTGUR  HAS  CLOSED) 


VDIM 

VO  IM 

VDIM 

VDIM 

VCIM 

VDIM 

VDIM 

VDIM 

VDIM 

VDIM 

VDIM 

VDIM 

VDIM 

VDIM 

VO  IM 

VDIM 

VDIM 

VDIM 

VCIM 

VDIM 

VDIM 

VDIM 

VDIM 

VDIM. 

VDIM 

VCIM 

VDIM 

VCIM 

VCIM 

VDIM 

VCIM 

VCIM 

VDIM 

VDIM 

VCIM 

VDIM 

VDIM 

VDIM 

VDIM 

VDIM 

VD  IM 

VCIM 

VDIM 

VDIM 

VDIM 

VDIM 

VDIM 

VDIM 

VDIM 

VDIM 

VCIM 

VDIM 

VDIM 

VDIM 

VCIM 

VDIM 

VCIM 


276 


5 


VECTOR  2 , -J 

VECTOR  3 | 

VECTOR  VECTOR  A -i 

VECTOR  S | | 

VECTOR  6 l <| 

♦ A(2J*A<2i  ♦ AI3J*A'.3)>  VECTOR  7 i I 

VECTOR  8 j | 

VECTOR  9 | 

VECTOR  10  j || 

VECTOR  11 

VECTOR  12  ' -f 

VECTOR  13  ! ■ '% 


SUBROUTINE  VECNCA) 
f. 

C ROUTINE  TO  NORMALIZE  A 
C 

DIMENSION  A(3> 

AX  = SORT (A( l!*AI  1 1 
IFIAX.EQ.O. (RETURN 
A { 1)  = Atll/AX 
A ( 2)  = A I 2 ) /AX 
A(3)  * A13I/AX 
RETURN 
END 


■ >3 


SUBROUTINE  WRPNL  INK , 1 ,1 , 1C  T , I PT  ) 

COMMON  /GCONST/  IN , 10 , 1 T 1 , 1 T2 ,FC  ,F 1 , F2 ,F3  ,F4  ,F5 , F6, F7, F8 , F9, F10, 

* 10, 1 1,1 2*1 3. 14, 15. 16, 17, 1 8, 1 9, IIO, PI, P33.P5. POO  1, 

* EPS , UNDEF  ,8L  , ICC  ,CPR  ,RPD  ,ET  A 1 17 ) , Ml , FM1,  II 7,  A,  P I 
AIRCRAFT-OBSERVER  GEOMETRY  CLTPLTS 

COMMON/SWITCH/NT YPE, IT YPE.NERG , ICCP, IPPT17)»ICNI13)»MGPT 
COMMON  /GEOMO/  AP  Y ( 10 ,1 7)  ,APZ  ( 10  i7)  , PD < 10 , 1 7) , DPNDt  10, 17) , 

* 01(10,17), 02(10,17), TDS(17, 10), TTC(17»10)»IRP( 10, 17) 
*,APP,TP,RHP, APO,TC,RHO,CA,CZ,7SP(17,10) ,CGV 

CCMMON/CL ABEL/CH 12,8) 

COMMON  /GPRAM/ALTP,ALTR,SLCPE,AMACH,N0BS,SLDIST(101,NTENG,  IUNIT 

* , ISPTRM,  IAIM0S,IAIR,IA!RAB(24)  ,MEMP  .TEMP  { 50 ) , T ALT  (50) 

* »NPKES,PRES(  50)»PALT(5Q) ,NHUMIC,RAIT (50) , RHUM I Cl  50 ) , CTEMP 

* .CPKES.CRHUMC, IEGA, IGOR. DTE KF  ,DPR£S v CHUM  I C ,XKN,NC , FLC( 50 ) , 

* ZNR<50) ,ZNI( 50) , L INEC T , PAXL I N , I PAGE  ,BCG  ,TCG  ,FLR , AALT , EPF 
COMMON/ PNLO/PSPL  ( 17,20  ,EPM.(5,1C)  ,T EPNL 15,10) 

CCMMON/GCONVC/C (2,10) ,SLCISX{ 10) 

COMMON/CRSPL S/DOB < 17) »PSCR(17)»CF8(4C8) ,NPSCR 
DIMENSION  PNL<3) ,TCPNL(3)  ,T(3) 

DATA  PNL/4H  PNL  * AH  ( P , 4HN08  1 / , TCPM./4H  TCP»4P.NL(  P»4HND0)/» 

* T /AH  T ,4H  (S.4HECJ  / 

WR ITE ( L » 100 ) 

LCT=LCT  + 1 
OC  FORMAT ( 1H  ) 

WRITE (L, 90) (ETAl J),J=1,17) 

10  FORMAT ( 2X, 10HX I (OEG) , 17F7. 1 ) 

DO  95  J*  1 » 1 7 

I F ( P SPL ( J , I ) .EQ.C. JPSPU J,I  + IC)=C, 

15  CONTINUE 

WRITE (L, 110) PNL, (PSPL(J.I) ,J*1,17I 
LCT=LCT+2 

IF1NK.NE.3)  GO  TO  1C5 

WRITE (L,  l iC) TCPNL , (PSPL< J,  1*10)  ,J* 1,17) 

-LCT=LC  T ♦ 1 

105  WRITEIL, 110)7 » !TPO(J» I ) »J=1,17) 

LCT=LCT+1 
WRITEIL,  IOC) 

LCT=LC  T+ 1 

.10  FGRMATUH  ,3A4,Ffc.l,l6F7.1) 

WRITE (L, 120) (EPNL ( J, I ) ,J  = 1 ,5) 

LCT=LCT ♦ 1 

;20  FORMAT  I 20H  EPNL* ( EPNDB ) = ,F6 . 1 , 1 X ,28F BASED  ON  MIN/MAX  PNL 

*=  ,F6.1,1H,,F6.1,24H  PNDB  ANC  TIME  LIMITS  = , 5X, Fo. 1 , IF, ,F6. 1, 

* IX, 3HSEC ) 

IFMPT.EQ.1JG0  TO  121 
IF! IPRT ( 1 ) #NE • 6) GO  TO  128 
.21  CONTINUE 

I FINLOPT  .EQ.  0 )G0  TG  12 € 

IF  (NLOPT-1)  122,  122,  124 
122  XNL  = EPNU  1,1  ! 

GC  TO  125 

124  XNL-'EPNL  (3, 1 ) 

125  ELANG=B2I!,9) 

CPAR9=P0( 1,9) 

IF  (IUNIT  .EQ.  C)CPAR9-PDII,5)*C.3C48 
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WRPNL 

WRPNL 

WRPNL 

WRPNL 

WRPNL 

WRPNL 

WRPNL 

WKPNL 

WRPNL 

WRPNL 

WRPNL 

WRPNL 

WRPNL 

WRPNL 


*£fiva^l 


CPAR5=AL0G1Q<CPAR5) 

WRPNL 

55 

WRITE120, 170 )XNL, EPF, SLANG, CPAR5 

WRPNL 

60 

17C  FGRMAT( 1PE 12. 3 » 3E1 2.3 1 

WRPNL 

61 

128  CONTINUE 

WRPNL 

62 

IF(NK.NE«3)GO  TO  14C 

WRPNL 

63 

WRITEIL»130)  <TEPNL(J,n,J-l,i> 

WRPNL 

64 

LCT=LCT*l 

WRPNL 

65 

13C  FORMAT ( 20H  EPNL  IEPNDB)  * ,F6.1,1X, 

WRPNL 

66 

* 28HBASED  ON  MIN/MAX  TCPNL  = ,F6.1,1H, 

WRPNL 

6? 

*,F6.l, 1X,23HPN0B  AND  TIME  UMTS  = , 5X  ,F6.  L , 1H , , F6 . 1 , IX,  3HSEC  ) 

WRPNL 

68 

1^0  WRITEIL, 100) 

WRPNL 

65 

LCT=LCT+1 

WRPNL 

70 

px=po( i,9> 

WRPNL 

71 

BX=82{ I, SI 

WRPNi. 

72 

IF< IUNIT  .NE.  0 ) GC  TO  145 

WRPNL 

73 

IFI  IPT.EQ.UGC  TC  145 

WRPNL 

74 

If( IPT.EO.8JGO  TO  145 

WRPNL 

75 

PX=P  X*C ( 2 * } ) 

WRPNL 

76 

145  CONTINUE 

WRPNL 

77 

wRITElLt  15G)EPF,PX,CH(I0MT-U,1)  ,EX 

WRPNL 

76 

LCT-LCT+ 1 

WRPNL 

75 

15C  FORMAT ( 20H  ENG. PERF.  PARR.  = , l FElO.i , 18H,  R Ar\G£  AI  CPA  = , 

WRPNL 

ac 

* E10.3,A3,15H,  ELEV. ANGLE  = ,E1C.3,5H  DEC-./  * 

WRPNL 

81 

RETURN 

WRPNL 

82 

ENO 

WRPNL 

83 
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SUBROUTINE  k SHOUT ( IPRNT . ICL T , 1 7 Y f E ,USPl  ,NUSPl , PS l . INUSPI 
PURPCSE 

PRINTOUT  THE  WING  SHIELDING  VARIABLES 

INPUT  - CALLING  SEQUENCE 

IPRNT  - REPORT  INDICATOR  FGR  SoERCUTINE  PRINTH 
IOUT  - OUTPUT  UNIT 

I TYPE  - COMPONENT  NOISE  TYPE 

USPL  - ARRAY  OF  INPUT  CR  BLILT  IN  UNSHIELDED  SPL  TC  BE  USED 
NUSPL  - NUMBER  OF  USPL 

PSI  - DIRECTIVITY  ANGLES  AT  kFICH  PSI  ARE  INPUT 

INUSP  - NON-ZERO  WHEN  USPL  ARE  TC  BE  PRINTED,  I.E.  NOT  PREDICTED 

INPUT  - COMMON 

REFRAC  - ALL  VARIABLES  ARE  PRINTED 


DIMENSION  • 'SPL l I ) ,PS I (I) ,CCM1 1 ( 8 ,4 ) 
COMMON/ TURcJ IN/ROT  IS)  , I SW3 


* ASF, IWSFE 


DATA  C0MTI/4HC0RE,4H  NGI,4i.aE  »5*IH 

* 4HTURB , AH l NE  ,4HNCIS,4H.E 

* 

2 


«4*1H  , 

4HC0MP,4HRESS,4HCR  A ,4HND  I ,4hNLET  ,4H  FAN, 41-  N0I.4HSE 
, 4HEXI T ,4H  FAN  ,4H  NCI.4HSE  »4H  ,4H  ,4h  ,4H 


PRINT  STANOARD  TITLE 

CALL  PRINTHI IPRNT, LCT,IOLT) 

PRINT  COMPONENT  NOISE  TYPE  TITLE 

IF ( ITYPE.NE.3)ITIT=ITYPE-1 
I F ( ITYPE.EQ.3H  TI  T=I  SW3-1 
WRITE! TOUT, IOO)  ICCKTI (I , ITIT) ,1=1,8} 
IOC  FORMAT! IH0,43X,8A4) 

PRINT  INPUT  TYPE 


WRITE! I0UT.2CC) 

200  FORMAT! 1H0,38X,39HW  I N G 


SHIELDING  INPUTS) 


PRINT  INPUT  FOR  FAN , TURBINE  ANC  CORE  NCISE  CASES 
WRITE! IOUT, 3001  ! I WED  1 1 ) ,1  = 1 ,3 ) 

30C  FORMAT! ////17X.46H1)  EDGE  S^LLTICNS  CCNSIDEREC  !1  = YES,  0 = NU)/ 

1 22X, 13HTRAILING  E.  = , 1 3 , 1H , , 1C  X U2HIE AD  I NG  E.  =,13,1H,, 

2 15X , EHTI P E.  =,131 

IF!  INUSP. EQ.O  ) GC  TC  6CC 
WRITE! IOUT, 400)  < USPL ! I) , I = I ,N L S?U 
400  FORMAT! 1H0, 16X.31H2)  UNSHIELDED  DIRECTIVITY  CURVE/ 1>0, 19X , 

1 1LHSPL  1DB)  =,1CF7.»/!31X,1CF7.1)) 

WRITE! IOUT »5GC>  ! PSI ! I ) ,1  = 1 ,NLSFL) 

500  FORMAT! 1H0, 19X,  UHPSI  (DEG)  = , ICF7- 1 / 13 1 X , 10F7. 1 1) 


W SHOUT 

2 

WSHOUT 

i 

WSHOUT 

4 

WSHCUT 

5 

WSHOUT 

e 

WSHOUT 

7 

WSHOUT 

8 

WSHOUT 

9 

WSHOUT 

10 

WSHOUT 

11 

WSHOUT 

! 2 

WSHOUT 

13 

wshuut 

14 

WSHOUT 

15 

WSHOUT 

16 

WSHOUT 

17 

WSHOUT 

16 

WSHOUT 

19 

WSHOUT 

2C 

WSHOUT 

21 

WSHOUT 

22 

, WSHOUT 

23 

WSHOUT 

24 

WSHCUT 

25 

WSHOUT 

?6 

WSHOUT 

27 

WSHOUT 

28 

/ WSHOUT 

29 

WSHOUT 

30 

WSHOUT 

31 

WSHCUT 

32 

WSHOUT 

33 

WSHUUT 

34 

WSHOUT 

35 

WShUOT 

36 

WSHOUT 

37 

WSHOUT 

38 

wSFCU ! 

39 

ws:-0'  r 

40 

WSHOUT 

41 

WSHCUT 

42 

WSHUUT 

43 

WSHOUT 

44 

WSHOUT 

45 

WSliOUT 

46 

WSHOUT 

47 

WSHOUT 

48 

WSHCUT 

49 

WSHOUT 

5C 

WSHOUT 

51 

WSHOUT 

52 

WSHOUT 

53 

WSHOUT 

•j4 

WSHOUT 

55 

WSHOUT 

56 

WSHOUT 

57 

WSHOUT 

56 
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c 

C PRINT  FOR  OISCHARGE  FAN,  CCRE  ANC  TURBINE  CASES  BUT  NOT  INLET  FAN 
C 

60C  IFI  ITYPE.EQ.4  ! GG  TG  1000 

WRITE  ( IOUT , 7CO J EMJ  * TSTSC,  IFASS(l),  1 = I ,NASRG) 

70C  FORMAT (yy/l7X»27H3S  EXHALST  FLCW  RACH  NC.  = ,F7.3,1H,, 

1 27HSTAT IC  TEMPERATURE  RATIC  = ,F7.3// 

2 17X  t 48H4)  CORRECTION  FACTOR  FCR  ANGULAR  SHIFT  CF  SOURCE  / 

3 1H0* 19X, IIHALFA  = f 8F8.3 / (3 IX  ,8F8.3 J ) 

WRITE  (IOUT, 9001  (CPSIOdl,  I = l,NASRC) 

WRITE  U0UT,T5CJ  ASF 

750  FORMAT! 1H0, 16X.36H5J  ANGLE  OFFSET  FOR  ANGULAR  SHIFT  OF, 

1 16H  SOURCE,  GAMA  = ,F8.3) 

w«iTEUoyy,80o)  >.beta(  n ,i=i,nasrc> 

8C0  FORMAT(  IH0..l6X,35Hfc)  RADIAL  CFFSFT  GF  APPARENT  SGURCE  / 

1 1H0, 19X» IIHBETA  = , 8F 8. 3/ (3  l X ,8F8.3 ) ) 

WR i TE ( IOUT , 9C0 J (CPSIG( I ) ,1=1 , NASRC) 

900  FORMAT  ( lH(J»i9X,llHCGT(PSI0)  *,8f 8-3/ (3iX  ,8F8.3) ) 

C 

100C  RETURN 
ENO 
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59 
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6C 
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61 
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69 

WSHUUT 

70 

WSHOU*1' 
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SUBROUTINE  hSL*ST0U7YPE,INASRG,ISl,lS2,SI6, 

* STl,ST2fSV3»$T4»ST5»ISGR) 

PURPOSE  TO  STORE  KING  SHIELDING  CATA  FCR  COMPONENT 

DIMENSION  ISl<3),ISr(3),STl(3)  ,S12U),ST3(1I  ,ST4(l),Sr5in,Sl6ll> 
CCMM0N/REFRAC/EMJ,TSTSG,INF0<3)  ,FASS  124)  ,BET  AI24 1 , CPS  ICC  24) , NASKQ  j 

* ASF.IWSFE 

COMMON /UN SHLO/LSPLI 19)  ,P$I  (IS)  » MSFL  » INUSP 

IF(  I SCR .GT . 1 )GQ  TC  1GC 

STORE 

t S 1 ( I )aNLSPL 
IS  1( 2)=INU3P 
00  20  1=1,3 
2C  IS2< I )=lWtD( I ) 

TEST  WHETHER  DIRECTIVITY  CURVES  If  BE  READ  IN. 

IF  NOT  ASSUME  DEFAULT  CR  PREDICTEC  VALUES 

IF( INUSP. LT.2JG0  TO  4C 


m 


STORE  DIRECTIVITY  CURVES  INPUT  AS  LATA 


CALL  SN(LSPL,ST2,1,NLSPL,2) 

CALL  SN(PSI,ST3,i,NUSPL,2) 

IF  INLET  FAN  EXIT 

4C  IF( I TYPE  «EQ. A )GC  TC  EC 

STORE  SHIELDING  DATA  FCK  AFT  FAN , TLR6 1 NE  ANC  CCRE 

ST1(  I ) =EM J 

ST1( 2) =TSTSO 

STK  3 ) = ASF 

ISi( 3 I = INASRO 

l F ( INASRO. EQ.OJGO  TO  EC 

STORE  EMPIRICA1  CURVES  FOR  JET  PEFRACTICN  PCCfcL 

CALL  SN(0ETA,ST4,I,INASKC,2) 

CALL  SN(CPSIQ»ST5vl»INASRC,2) 

CALL  SN  ( PASS  » ST6  , l , I NA  S,RC»  2 ) 

8C  RETURN 

RESTORE  WING  SHIELDING  DATA 

100  NLSPL= I S 1 ( I ) 

INUSP= I S 1 ( 2) 

00  120  1=1,3 
I2C  IWEDI I )=IS2( » * 

TEST  IF  D IREu  < I VI T Y CLRVE  INPUT  AS  DATA 
IF  NOT  ASSUME  OEFALLI  CR  PRECICTEC  VALUES 

I F ( INUSP. I T. 2) GO  TO  1AC 

RESTORE  OIRECUVITY  CURVES 


mm 


Ht1-  * <$(f£ 


. i.  . « * 


CALL  SN  t USPL  t SJ2-#  1 »NUSPL  t l! 

CALL  SN(PSI,STBt ! vNUSPL.i) 

EXIT  IF  INLET  FAN 

IAC  IF  ( ITYPE  . EQ.  A)  GC  TC  80 

RESTORE  SHIELDING  DATA  FCR  AFT  FAK,TLRBIK£  AhC  CC-RF. 

EMJ=ST  H 1) 

T SISO=ST I C 21 
ASF  = STII3) 

INASRG-ISH3I 

IF(  INASP.O.EQ.OJGO  10  SC 

RESTORE  EMPIRICAL  CURVES  FCR  JET  REFRACTION  MODEL 

CALL  SN( BETA  t ST  A • I « INASRC 1 1 ) 

CALL  SN(CPSI0rST5il>lNASR(jtlJ 
CALL  SN(FASS,SIfc,I  ,INASRC,U 
GO  TO  8G 
END 


WSDSTO 
WSDSTO 
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WSDST C 
WSDSTO 
WSDSTO 
WSDSTO 
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WSOSTO 
WSDSTO 
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FUNCTION  XINTEG(X,Y,NPTS) 


PURPOSE 
AUTHOf 

MOOIF  ICATIfj'-IS 
METHOC 


USAGE 


TG  I ME  URATE  A TABUATEC  FUNCTION  OF  GNE 
VARIABLE  BY  TRAPE2CILAL  RULE 
R.  H.  PASTERS 
NONE 


INDEPENDENT 


INPUTS 


OUTPUTS 

ERROR  RETURN 
STORAGE 
TIMING 
REFERENCES 
SUBROUTINES  CALLED 


THIS  SUBROUTINE  USES  Y>.£  TRAPEZOIDAL  RULE  TO 
INTEGRATE  A TABULATED  ^UNCTION  WHICH  HAS  EQUAL  OR 
UNEQUAL  STEP  SIZES. 

A = XINTEG (X,Y,NF7S) 

DIMENSION  XII)  ,YI1) 

X - ARRAY  OF  NPTS  INDEPENDENT  VARIABLE  VALUES  FOR 
UNEQUAL  SPACING  CR  DELTA  X VALUE  FOR  EQUAL 
SPACING 

Y - ARRAY  CF  NPTS  TABULATED  FUNCTION  VALUES 
NPTS  - NUMBER  CF  PCIMS  TC  BE  INTEGRATED  (POSITIVE 
FOR  LNECLAL  SPACING,  NEGAT1E  FOP  EQUAL 
SPACING) 

A - THE  INTEGRAL  CF  TriE  TABULATED  FUNCTION 
NONE 

112  BASE  EIGHT 

NG  TIMING  RUNS  WERE  MACE 

NONE 

NGNE 


DGCUflEM  MION  XMFP-S-162 

NPTS  .GE.  2 = POINTS  LNECLAL LY  SPACEC, 

NPTS  .LE.-2  = PCINTS  ECLALLv  SPACEC, 

OTHERWISE  THE  INTEGRAL  IS  SET  TC  ZERO. 

1)  FOR  UNEQUAL  SPACING  THE  X ARRAY  CONTAINS  THE 
I ■’EpcND£NT  VARIABLE  VALUtS  CORRESPONDING  TO 
Th  Y ARRAY  (DtFFNDENT  VALUES). 

2)  Fr  CQUAL  SPALING  X(l)  CONTAINS  THE  INCREMENT 
8ET  EN  INCEPENCEM  VARIABLE  VALUES. 

3)  NPT  . ?S  THE  NLN6EP  CF  CEPENCENT  VARIABLE  POINTS 
TO  lie  INTEGRATEC  <♦  FC«  UNEC!.  AL  SPACING,  - FOR 
EQUAL  SPACING). 

A)  ANYTIME  THERE  APE  LESS  THAN  C DATA  PCInTS 
THE  INTEGRAL  IS  SET  TC  ZEPC, 

DIMENSION  X('),  Y (2 ) 

I F ( NPTS  .LE  < GG  »C  2CC 

IF(NPTS.LE.2)  GO  TO  ACC 

♦♦♦♦♦UNEQUAL  SPAC l NG****A 
NPTS l=NP  TS- I 

SUM=Y(  U*(X(2)-X{ I))+Y(NPTS)*(X(NFTS)-X(NPTS1) ) 

IF(NPTS.EQ*. 2)  GO  TC  ISO 
DC  100  I=2,NPTS1 
SUM=SLM*-Y  (I  )*(X(l«-l)-X(  I- 1 ) j 
IOC  CONTINUE 
I5C  X INTEG  = . 5* SUM- 
RE  TURN 

200  CONTINUE 
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fi 
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| 
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| 
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X INTEG 

31 
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32 
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X INTEG 

V c. 

fi 

3 

X INTtG 
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X INTEG 

35 

| 

X (NTEG 

36 
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X INTEG 

37 

e i 

2 

XINTEG 

36 

1 

XINTEG 

3S 

I 

XlUTtG 

':C 

1 

XINTEG 

A 1 

I 

XINTEU 

A2 

I 

X INTT'; 

A3 

te 

XINTEG 

A A 

I 

X INTtG 

A3 

1.*.; 

XINTEG 

Afc 

I ^ 

XINTEG 

A7 

1 . 

XINTEG 

A6 

1 : 

XINTEG 

AS 

XINTEG 

50 

ps 

X INTEG 

SI 

X INTui. 

52 

fs 

X INTEG 

S3 

X INTEG 

3 A 

ii 

X INTEG 

55 

■ I 

XINTEG 

5fc 

X INTEG 

57 

XINTEG 

56 

H 
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XINTEG 

♦♦♦♦♦EQUAL  SPACING*****  XINTEG 

NPTSA-IABSINPTS)  XINTEG 

NPTSl*NPTSA— 1 XINTEG 

SUM=.5*I  Y(  U+YINPTSA) ) XINTEG 

If (NPISA.EQ.2)  GO  TQ  35C  XINTEG 

DO  300  I=2»NPT$1  XINTEG 

SLM=SOM+YUJ  XINTEG 

300  CGNTINUE  XINTEG 

35C  XINTEG=X( 1)*SUM  XINTEG 

RETURN  XINTEG 

ACC  CONTINUE  „^,ktc****A  XINTEG 

♦♦♦♦♦LESS  THAN  2 DATA  POINTS*****  XINTEG 

XINTEG=0.  XINTEG 

RETURN  XINTEG 

END 
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FU.NCTICN  XPM1DXIY) 

FUNCTION  XPM10XIY)  SU8-SECII0N  FCR  CCXPLTING  (EXPIY) 
MAXIMUM  MACHINE  ACCURACY  AND  TC  AVCIC  OVERFLOWS. 
OGUBLE  PRECISION  S,  P 
EQUIVALENCE  IS,SK),  (P,PKI 
OATA  YL,  ONE,  EP  /. 3465736,  1.0,  1.2E-7/ 

12  IF  lABS(Y)  - YU  14,  13,  13 

13  XPMIDX  = lEXP(Y)  - ONE ) / Y 

GO  TO  18 

14  S = ONE 

P = ONE 

F = ONE 

15  F = F «■  ONE 

P = P * Y / F 

16  S = S ♦ P 

IF  t ABStPK)  - EP  * ABS(SKI)  17,  17,  15 

17  XPMIDX  = S 

18  RETURN 
END 


- 1)  / Y TO 


XPMIDX 

XPM10X 

XPMIDX 

XPMIDX 

XPM10X 

XPMIDX 

XPMIDX 

XPMIDX 

XPMIDX 

XPMIDX 

XPMIDX 

XPMlOX 

XPMIDX 

XPMIDX 

XPMIDX 

XPMIDX 

XPMIDX 

XPMIDX 

XPMIDX 


SUBROUTINE 

ZERO  ( DATA  » NUMBER ) 

ZERO 

2 

c 

AUTHOR 

D.  F.  MELDRUM 

ZERO 

3 

c 

ZERO 

4 

c 

PURPOSE 

TO  ZERO 

CUT  AN 

ARRAY 

,'BRO 

5 

c 

ZERO 

6 

c 

INPUTS 

DATA 

ARRAY 

TC  EE 

ZERCEC  CUT 

ZERO 

7 

c 

NUMBER 

NUMBER  CF  ELEMENTS  TC 

BE 

ZERCED  OUT 

ZERO 

8 

c 

ZERO 

9 

c 

OUTPUTS 

DATA 

ARRAY 

fch  ICH 

IS  ZERCEC 

GUT 

FOR 

ZERO 

10 

c 

(NUMBER}  CF 

ELEMENTS. 

ZERO 

11 

c 

ZERO  • 

12 

c 

ZERO 

13 

DIMENSION 

OATA (NUMBER ) 

ZERO 

14 

OC  100  1*1 

i NUMBER 

ZERO 

15 

ICC  OATAI I )=Q. 

ZERO 

16 

c 

ZERO 

17 

RETURN 

ZERO 

18 

END 

ZERO 

19 

I 


290 


GPO  007-J77 


